Visual Basic 6 - while end

Forum - Visual Basic 6 - while end

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 16:26
Mercoledì, 14/10/2009

rieccomi con un altro rompicato :
ho una textbox dove digito dei valori(text1.text) e una matrice di text2(10 elementi), ogni volta che cambia la text1 cambia valore questo deve essere inserito nella 1^ text2() libera.
Suppongo ci voglia un ciclo come da oggetto , ma non riesco a tradurlo in codice

cassin.simone (Member)
Guru

Messaggi: 1051
Iscritto: 03/06/2009

Postato alle 17:07
Mercoledì, 14/10/2009

Testo quotato

Postato originariamente da mash_mash:

rieccomi con un altro rompicato :
ho una textbox dove digito dei valori(text1.text) e una matrice di text2(10 elementi), ogni volta che cambia la text1 cambia valore questo deve essere inserito nella 1^ text2() libera.
Suppongo ci voglia un ciclo come da oggetto , ma non riesco a tradurlo in codice

Provo a darti un consiglio per elaborare tu stesso il codice.
Allora, metti che hai quando clicchi il bottone (button1) debba scrivere nella 1a text2 libera. Dovresti controllare con un if quale elemento è vuoto (partendo dal primo) e, come l'if trova la matrice vuota, ci scrive il valore dato.

SC

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 18:49
Mercoledì, 14/10/2009

Ciao mash_mash,
penso d'aver risolto nel seguente modo:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
    Dim j As Integer
    For j = (Text2.LBound) To (Text2.UBound)
        If Len(Text2(j).Text) = 0 Then
            Text2(j).Text = Text1.Text
            Exit For
        End If
    Next j
End Sub