[VB6] Selezionare una Texbox da un gruppo tramite command

[maingio]

Scusa oregon non ho un array di label ma un array di textbox circa 200 da selezionare con 4 command

[optime]

fa' doppio click sulla textbox

[maingio]

Ciao ottengo sempre come vedi dal codice :

Private Sub Text1_Change(Index As Integer)

End Sub

Ciao

[maingio]

Per optime se faccio una textbox col nome di txt_comm il tutto funziona
ma se creo 2 textbox txt_comm(0) e txt_comm(1) non funziona
da errore di compilazione
"La dichiarazione della routin non corrisponde alla descrizione dell'evento o della routin con lo stesso nome "
sulla "Sub txt_comm_Click()"

[optime]

le tue textbox si chiamano tutte Text1, e sono un array
il loro indice è l'index che vedi nel codice che ti mostra al doppio click

molto semplicemente, memorizza l'index in una variabile globale, e il command lo fai agire su text1(nome_variabile_globale)

[SirJo]

Prova così:

Dim ActiveTextBox As TextBox

Sub Text1_Click(Index As Integer)
   Set ActiveTextBox = Text1(Index)
End Sub


Private Sub Command18_Click()
   Dim sValore As String
   sValore = "A"
   ActiveTextBox.Text = ActiveTextBox.Text & sValore
End Sub

[oregon]

Esattamente...sfrutta la Index per accede al textbox selezionato

[maingio]

Ok funziona Grazie a tutti

[optime]

posta la soluzione, grassssie

[maingio]

Ricapitolando Form con circa 200 textbox Tex1(x) avevo bisogno di selezionare una texbox e colorarla
questo e' il codice usato che funziona
Grazie a tutti per i suggerimenti

Dim ActiveTextBox As TextBox

Sub Text1_Click(Index As Integer)
   Set ActiveTextBox = Text1(Index)
End Sub

Private Sub Command2_Click()
   Dim sValore As String
   sValore = "A"
   ActiveTextBox.Text = ActiveTextBox.Text & sValore
End Sub