Visual Basic 6 - valore combobox

Forum - Visual Basic 6 - valore combobox

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 15:54
Mercoledì, 19/09/2007

problema : Ho una combobox1 (caricata con la procedura additem) e associata ad un altra combobox che chiameremo combobox2.
La combobox2 (disattivata di default) doovrebbe attivarsi se e solo nella combobox1 viene selezionato 1 valore caricato nella sua lista .
E' possibile fr cio' ? grazie

iGuLy (Ex-Member)
Pro

Messaggi: 66
Iscritto: 17/05/2007

Postato alle 16:34
Mercoledì, 19/09/2007

Potresti usare un codice di questo tipo:

Codice sorgente - presumibilmente VB.NET

Private Sub Combo1_Click()
    Combo2.Enabled = True
End Sub
 
Private Sub Form_Load()
    Combo1.AddItem "ciao"
    Combo1.AddItem "wella"
End Sub

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 11:06
Giovedì, 20/09/2007

grazie per la celere risposta , ma sicuramente mi son espresso male : la mia intenzione e' quella di far accettare alla combobox1 solo i dati inseriti nella sua lista , e , in base a questa condizione fare attivare un'altra combobox inizialmente disattivata .
Ovvero : verificare che se digito un valore diverso da quello inserito nel listato della combobox1 , oltre ad un messaggio di avviso la mia procedura diventa exit.
grazie mille 8-)

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 14:50
Giovedì, 20/09/2007

Non ho capito perche' non va quel codice ...

Perche' dici "digitare nella combo" ... devi solamente selezionare con il mouse dalla combo, non ci devi scrivere ...

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 15:02
Giovedì, 20/09/2007

Ciao, vediamo se ho capito bene.
Allora tu hai due combo, una visibile e l'altra non visibile.
Quando scegli un elemento nella prima combo, ed esso è comune(c'è anche nella seconda combo) allora la seconda combo deve diventare visibile, altrimenti resta invisibile.

Codice sorgente - presumibilmente VB.NET

Private Sub Combo1_Click()
dim i as integer
For i = 0 To Combo2.ListCount
    If Combo1.List(Combo1.ListIndex) = Combo2.List(i) Then
    Combo2.Visible = True
    End If
Next i
 
End Sub
 
Private Sub Form_Load()
Combo2.Visible = False
Combo1.AddItem "prova1"
Combo1.AddItem "prova2"
Combo2.AddItem "pippo"
Combo2.AddItem "prova1"
End Sub

Spero di esserti stato d'aiuto.
Ciao.

Ultima modifica effettuata da LuigiBiasi il 20/09/2007 alle 15:14

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 16:00
Giovedì, 20/09/2007

Perfetto!
Ridomanda : qual'e' l'istruzione per evitare di far leggere ad una combobox un valore digitato accidentalmente ?

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 16:47
Giovedì, 20/09/2007

Lo Style della combo deve essere = 2