Risultati da 1 a 4 di 4

Discussione: Evento Casella di testo



  1. #1

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Evento Casella di testo

    Ciao a tutti

    In Excel, a differenza di Acces e non ne capisco il perché, le caselle di testo non dispongono degli eventi GotFocus e LostFocus.

    Se io ho una userform con 4 caselle di testo come faccio a colorarne lo sfondo quando viene selezionata una singola textbox con il mouse o con il tasto TAB?

    Ovviamente deve essere "colorata" solo la textbox che ha il "fuoco" e le altre devono essere bianche.

    Grazie per l'attenzione.

    Alfredo

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao Alfredo,
    per excel, gli eventi più simili che puoi usare sono "Enter" e "Exit" (almeno sono quelli che conosco io).

    Il codice diventerebbe una cosa del genere:

    Codice: 
    Private Sub TextBox1_Enter()
    TextBox1.BackColor = RGB(255, 255, 0)
    End Sub
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.BackColor = RGB(255, 255, 255)
    End Sub
    
    Private Sub TextBox2_Enter()
    TextBox2.BackColor = RGB(255, 255, 0)
    End Sub
    Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox2.BackColor = RGB(255, 255, 255)
    End Sub
    
    Private Sub TextBox3_Enter()
    TextBox3.BackColor = RGB(255, 255, 0)
    End Sub
    Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox3.BackColor = RGB(255, 255, 255)
    End Sub
    
    Private Sub TextBox4_Enter()
    TextBox4.BackColor = RGB(255, 255, 0)
    End Sub
    Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox4.BackColor = RGB(255, 255, 255)
    End Sub
    Ti lascio un file di esempio...
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165
    Grazie Tore sapevo d'essermi perso in un bicchier d'acqua.

    Alfredo

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Magari ti eri "fissato" con il GetFocus e non pensavi al resto.
    Capita spesso anche a me :286:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

Discussioni Simili

  1. [Risolto] Su click casella di testo
    Di fiore64 nel forum Domande su Microsoft Access
    Risposte: 5
    Ultimo Messaggio: 02/05/17, 14:29
  2. [Risolto] Rotazione casella di testo
    Di Danixel74 nel forum Domande su Microsoft Access
    Risposte: 5
    Ultimo Messaggio: 19/03/17, 13:48
  3. Casella di testo
    Di MarioA nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 17/02/17, 10:54
  4. Casella di testo con formato di controllo
    Di Gius nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 23/06/16, 15:16
  5. Casella di testo per ricerca
    Di Mausa nel forum Domande su Microsoft Access
    Risposte: 3
    Ultimo Messaggio: 09/02/16, 17:54

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •