Πρώτα Βήματα - Γλώσσες προγραμματισμού

Απ: μεταβλητή απο module σε φόρμα vb.net

locust — Sun, 24 Jan 2010 09:35:58 GMT

Αν και όποτε έχεις λίγο χρόνο να μου εξηγήσεις γιατί είναι λάθος τακτική να πειράζω τα modifiers, θα το εκτιμούσα.

Απ: μεταβλητή απο module σε φόρμα vb.net

Τάσκος Γιώργος — Sun, 24 Jan 2010 04:56:53 GMT

Κανένα πρόβλημα.

Απ: μεταβλητή απο module σε φόρμα vb.net

locust — Sun, 24 Jan 2010 03:38:07 GMT

Σε ευχαριστώ , δούλεψε άψογα με το event

Απ: μεταβλητή απο module σε φόρμα vb.net

Τάσκος Γιώργος — Sun, 24 Jan 2010 03:15:44 GMT

Γενικά είναι λάθος τακτική να πειράζεις τους modifiers των controls μιας φόρμας για να δώσεις τιμές.

Θα καταφέρεις αυτό που θέλεις ορίζοντας ένα Event και κάνοντας Raise αντί frmMain.Label1.Text = .....
Κάνοντας Handle το event στην φόρμα σου μπορείς να στείλεις όλα τα στοιχεία που χρειάζεσαι και να τα χρησιμοποιήσεις
εκεί που θέλεις εσύ.

μεταβλητή απο module σε φόρμα vb.net

locust — Sun, 24 Jan 2010 01:55:22 GMT

Καλησπέρα,

Συγνώμη για τον τίτλο δεν ξέρω πως να περιγράψω το πρόβλημά μου πιο συνοτπικά

Μεταφέρω ένα αρχείο απο την server εφαρμογή στον client. Όταν ο client διαβάζει το αρχείο, έχει έναν counter που μετράει τα bytes που λήφθησαν. Αυτός ο counter βρίσκεται μέσα στο module με τις ρουτίνες για την επικοινωνία με τον server. Στην κεντρική φόρμα μου έχω ένα label που θέλω να μου δείνχνει αυτό τον μετρητή. Ενώ ο κώδικας δεν χτυπάει, και το αρχείο μεταφέρεται κανονικά, το κείμενο του label παραμένει το ίδιο. To modifier του control είναι public.

Public Sub ReceiveFile

Do
                numBytesRead = 0
                numBytesRead = NWStream.Read(bytesToRead, 0, BUFFER_SIZE)
                FileSTR.Write(bytesToRead, 0, numBytesRead)
                bytes = bytes + numBytesRead
                frmMain.Label1.Text = "Ληφθηκαν: " & bytes & " KB."
              
            Loop Until numBytesRead = 0