Oppure

Loading
19/08/08 13:13
gaffre
Ciao a tutti!
Ecco il mio problema, mi serve saper fare questa procedura. Vorrei che cliccando sui nomi della lista di una combobox avvengano cose diverse.
Per esempio, se clicco su "pinco" allora avviene una cosa, mentre se clicco su "pallino" avviene un'altra.
aaa
19/08/08 13:21
Alceus
Private Sub Form_Load()
Combo1.AddItem ("pinco")
Combo1.AddItem ("pallino")
End Sub


Private Sub Combo1_Click()
If Combo1.Text = "pinco" Then
'Evento che si verifica se si preme su pinco
ElseIf Combo1.Text = "pallino" Then
'Evento che si verifica se si preme su pallino
End Sub

:k:
Ultima modifica effettuata da Alceus 19/08/08 13:35
aaa
19/08/08 19:43
gaffre
si però io vorrei che questo si verificasse con il click di un command button.
aaa
20/08/08 7:18
GrG
Basta ke sposti il codice nella Sub Command1_Click()
aaa
20/08/08 9:54
gaffre
No perchè voglio che quando si cambia nome sul combobox avviene una cosa e poi con un click su un pulsante ne avviene un'altra, però a seconda del nome impostato sulla combobox cliccando sul pulsante devono avvenire cose diverse.
aaa
20/08/08 10:39
antometal
se ti spieghi meglio, magari con un esempio forse posso aiutarti
aaa
20/08/08 13:01
GrG
se ho capito bene, non basta fare così?

Private Sub Combo1_Click()
If Combo1.Text = "pinco" Then
'Evento che si verifica se si preme su pinco
ElseIf Combo1.Text = "pallino" Then
'Evento che si verifica se si preme su pallino
End Sub
Private Sub Command1_Click()
If Combo1.Text = "pinco" Then
'Evento che si verifica se si preme su pinco
ElseIf Combo1.Text = "pallino" Then
'Evento che si verifica se si preme su pallino
End Sub 
aaa