Visualizzare textbox invisibile su form

anpol60

il 15 set 2020, 19:09

5 risposte

anpol60

Utente Attivo

Iscritto da: set, 2020

Messaggi:: 67

Visualizzare textbox invisibile su form

15 set 2020, 19:07

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

S
surfernet
Molto attivo
Iscritto da
ago, 2019
Messaggi:
597
Re: Visualizzare textbox invisibile su form
15 set 2020, 20:50
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à
A
anpol60
Utente Attivo
Iscritto da
set, 2020
Messaggi:
67
Re: Visualizzare textbox invisibile su form
15 set 2020, 20:55
Ciao. Grazie per la dritta. Ho già provato l'evento Change, ma ma mi visualizza la textbox che rimane invisibile.

Rubik

Utente Attivo

Iscritto da: ago, 2020

Messaggi:: 440

Re: Visualizzare textbox invisibile su form

15 set 2020, 21:55

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

A
anpol60
Utente Attivo
Iscritto da
set, 2020
Messaggi:
67
Re: Visualizzare textbox invisibile su form
15 set 2020, 22:38
Grazie Rubik.
Ottimo!

Rubik

Utente Attivo

Iscritto da: ago, 2020

Messaggi:: 440

Re: Visualizzare textbox invisibile su form

20 set 2020, 14:04

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