19/07/11 14:16
peppino84
salve cari
ho di nuovo ripreso a fare qualche lavoretto in VB6
il mio algoritmo è molto semplice ma lungo pertanto esco fuori dai limiti di lunghezza della routine
di seguito espongo il problema ridotto all'osso
in un form ho un command e 5 textbox
il command avvia il calcolo di una semplice equazione y=x^2
con x da 1 a 5
vorrei che i 5 risultati venissero inseriti nelle rispettive textbox che ho denominato txty1, txty2, txty3, txty4, txty5,
[Code]
Private Sub Command1_Click()
Dim x As Integer, y() As String
For x = 1 To 5 Step 1
y(x) = CStr(x ^ 2)
txty(x).Text = CStr(y(x))
Next x
End Sub
il problema è che non riesco a impostare un indice per le textbox
ho cercato in giro ma non trovo nulla oppure sbaglio a cercare
ho provato in diversi modi (anche a caso devo ammettere), ad esempio
txty"x".Text = CStr(y(x))
txty&x.Text = CStr(y(x))
qualcuno sa dirmi come si fa??
scusate per la seccatura
grazie a tutti
ho di nuovo ripreso a fare qualche lavoretto in VB6
il mio algoritmo è molto semplice ma lungo pertanto esco fuori dai limiti di lunghezza della routine
di seguito espongo il problema ridotto all'osso
in un form ho un command e 5 textbox
il command avvia il calcolo di una semplice equazione y=x^2
con x da 1 a 5
vorrei che i 5 risultati venissero inseriti nelle rispettive textbox che ho denominato txty1, txty2, txty3, txty4, txty5,
[Code]
Private Sub Command1_Click()
Dim x As Integer, y() As String
For x = 1 To 5 Step 1
y(x) = CStr(x ^ 2)
txty(x).Text = CStr(y(x))
Next x
End Sub
il problema è che non riesco a impostare un indice per le textbox
ho cercato in giro ma non trovo nulla oppure sbaglio a cercare
ho provato in diversi modi (anche a caso devo ammettere), ad esempio
txty"x".Text = CStr(y(x))
txty&x.Text = CStr(y(x))
qualcuno sa dirmi come si fa??
scusate per la seccatura
grazie a tutti
aaa