counter istedet for 1 og 2 og 3

Hvis du arbejder i VB6 kan du kopiere fx. en tekstbox. Der bliver spurgt om du vil oprette et controlarray hvilket du svarer ja til.

Tekstboksnavnene vil herefter fremstå som Text(1) og Text(2), osv.

Mener du herefter kan referere til dem med Text(counter).

Ud fra hukommelsen. Min altså ;)

nåååå det fordi jeg selv havde prøvet

frmMain.guidet(counter).Text = hej

skal det så stå bag text??

virker stadig ikke

prøv
guidet1(counter).text

den skal jo skrive til
guidet1
guidet2
guidet3

som er 3 textboxe

For i = 0 to 3
guidet(i).text = i
Next

det virker nemlig ikke

Har du oprettet dem som et controlarray?

Bemærk i identifikationsruden øverst i properties vinduet. Der vil din tekstbokse stå angivet som controlarray med fx. guidet1(0), guidet1(1) osv.

Står det ikke på den måde, er dine tekstbokse ikke en del af et array.

Alle tekstbokse i dit array vil have de samme properties som den du starter kopieringen fra.

Hvordan laver jeg dem til controlarray?

Se min kommentar: 15/07-2006 18:20:06.

Bemærk i identifikationsruden øverst i properties vinduet. Der vil din tekstbokse stå angivet som controlarray med fx. guidet1(0), guidet1(1) osv.

Forstod ikke lige hvad identifikationsruden øverst i properties vinduet er :S

Man kan jo ikke kalde dem guidet(0) i name

smid svar har fundet

Nej.

Opret en ny tekstboks.

Kopier den.

Når du paster den, vil du blive spurgt om du ønsker at oprette et controlarray.

Svar ja til det.

Så længe du paster denne tekstboks, vil du tilføje den nye til arrayet.

Det eneste sted du kan se de tilhører arrayet, er i det omtalte foroven. Derudover vil navn mv være identiske. Derfor er det en god idé at sætte sine properties inden man opretter arrayet (hvis de skal være ens af udseende fx.)

Svar ;)

Hvad gør man så med en winsock?

man kan jo ikke sige
Private Sub telnet1(0)_DataArrival(ByVal bytesTotal As Long)

Aner det ikke!

Jeg ved ikke hvordan Winsocks fungerer, men måske er fremgangsmånde noget á la:

Private Sub telnet1_DataArrival(ByVal bytesTotal As Long)
  If telnet1(0). et eller andet, så...

Husk de officielt bærer samme navn men kan refereres til via tilføjelse af arraynummeret. Måske kan du isolere hædelserne til de enkelte winsocks på den måde.

Så gør du bare sådan..

Private Sub telnet1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  telnet1(Index).blabla
End Sub