Pagina 2 di 2 primaprima 1 2
Visualizzazione dei risultati da 11 a 20 su 20
  1. #11
    Utente di HTML.it
    Registrato dal
    Jun 2008
    Messaggi
    11
    Scusa oregon non ho un array di label ma un array di textbox circa 200 da selezionare con 4 command

  2. #12
    fa' doppio click sulla textbox

  3. #13
    Utente di HTML.it
    Registrato dal
    Jun 2008
    Messaggi
    11
    Ciao ottengo sempre come vedi dal codice :

    codice:
    Private Sub Text1_Change(Index As Integer)
    
    End Sub
    Ciao

  4. #14
    Utente di HTML.it
    Registrato dal
    Jun 2008
    Messaggi
    11
    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()"

  5. #15
    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)

  6. #16
    Utente di HTML.it
    Registrato dal
    Mar 2014
    residenza
    Vicenza
    Messaggi
    310
    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

  7. #17
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,476
    Esattamente...sfrutta la Index per accede al textbox selezionato
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  8. #18
    Utente di HTML.it
    Registrato dal
    Jun 2008
    Messaggi
    11
    Ok funziona Grazie a tutti

  9. #19
    posta la soluzione, grassssie

  10. #20
    Utente di HTML.it
    Registrato dal
    Jun 2008
    Messaggi
    11
    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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.