Oppure

Loading
14/10/09 14:26
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
aaa
14/10/09 15:07
cassin.simone
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
aaa
14/10/09 16:49
Louis
Ciao mash_mash,
penso d'aver risolto nel seguente modo:
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
:k:
aaa