Scusa oregon non ho un array di label ma un array di textbox circa 200 da selezionare con 4 command
Scusa oregon non ho un array di label ma un array di textbox circa 200 da selezionare con 4 command
fa' doppio click sulla textbox
Ciao ottengo sempre come vedi dal codice :
Ciaocodice:Private Sub Text1_Change(Index As Integer) End Sub
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()"
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)
Prova così:
codice: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
Esattamente...sfrutta la Index per accede al textbox selezionato
No MP tecnici (non rispondo nemmeno!), usa il forum.
Ok funziona Grazie a tutti
posta la soluzione, grassssie
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
codice: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