Visualizzare textbox invisibile su form

di anpol60 il
5 risposte
Utente Attivo
Iscritto da
set, 2020
Messaggi
67
Buona sera. Innanzitutto voglio ringraziare i moderatori che hanno accettato la mia richiesta di iscrizione e poi saluto tutti i partecipanti.
Il problema che vorrei portare alla vostra attenzione è un codice che non riesco ad inserire in una form di Vb6.
In pratica, in una form, ho una combobox popolata di valori di default ed una textbox che di default è invisibile.
Vorrei fare in modo che, quando nella combobox scelgo il valore "topolino", la textbox diventi automaticamente visibile per poterci scrivere dentro. Spero di essere stato chiaro.
Nell'attesa di un riscontro, porgo cordiali saluti.

5 Risposte

  • Molto attivo
    Iscritto da
    ago, 2019
    Messaggi
    597
    Nell'evento change del textbox controlli il valore selezionato e se è un certo valore valorizzi visibile a true della textbox , ho usato poco vb6 e parlo di 20 anni fà , potrei sbagliare il nome degli eventi o delle proprietà
  • Utente Attivo
    Iscritto da
    set, 2020
    Messaggi
    67
    Ciao. Grazie per la dritta. Ho già provato l'evento Change, ma ma mi visualizza la textbox che rimane invisibile.
  • Avatar di Rubik
    Utente Attivo
    Iscritto da
    ago, 2020
    Messaggi
    440
    Private Sub Combo1_Click()
    index = Combo1.ListIndex
    Form1.Caption = "click su " & Combo1.List(index) & " Index= " & index
    If UCase(Combo1.List(index)) = "TOPOLINO" Then
        Text1.Visible = True
    Else
        Text1.Visible = False
    End If
End Sub
    L'evento Change si attiva se cambi la proprietà Text
  • Utente Attivo
    Iscritto da
    set, 2020
    Messaggi
    67
    Grazie Rubik.
    Ottimo!
  • Avatar di Rubik
    Utente Attivo
    Iscritto da
    ago, 2020
    Messaggi
    440
    Se gli "If Then Else", non ti piacciono, puoi scrivere anche così: 
    Private Sub Combo1_Click()
    Index = Combo1.ListIndex
    Form1.Caption = "click su " & Combo1.List(Index) & " Index= " & Index
    Text1.Visible = UCase(Combo1.List(Index)) = "TOPOLINO"
End Sub
Devi accedere o registrarti per scrivere nel forum
5 risposte