Visual Basic 6 - Utilizzo ComboBox su VB6

Forum - Visual Basic 6 - Utilizzo ComboBox su VB6

AldoPiccione (Normal User)
Newbie

Messaggi: 4
Iscritto: 23/08/2011

Postato alle 14:44
Martedì, 23/08/2011

Ciao a tutti! Ho dei dubbi sulle Combobox, in pratica vorrei che se l'utente scegliesse un'elemento della lista variasse qualcosa nel form. Ad esempio, se dalla lista sceglie "Ciao" vorrei che su un Label fosse scritto "Arrivederci", è possibile farlo? Scusate se la domanda è banale, ma ho cercato su internet e non ho trovato risposte..

Sal47 (Normal User)
Pro

Messaggi: 96
Iscritto: 05/02/2009

Postato alle 20:40
Martedì, 23/08/2011

Ciao,
in un Form inserisci un ComboBox con proprietà Style=0 e in List un elenco a piacere (tipo A B C ecc), poi con il codice seguente risolvi:
---------------
Option Explicit

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
    Label1 = "Arrivederci"
Case 1
   Label1 = "Grazie"
Case 2
    Label1 = "A domani"
    End Select
End Sub
--------------
Saluti

AldoPiccione (Normal User)
Newbie

Messaggi: 4
Iscritto: 23/08/2011

Postato alle 9:37
Mercoledì, 24/08/2011

Grazie mille per la puntuale risposta!! Nel mio programma ho inserito una funzione di login, e vorrei sapere se, con un unico command (in questo caso ho utlizzato due immagini) posso gestire sia il login dell'user che dell'admin, il codice utilizzato da me è questo, però ho utlizzato due command:

Codice sorgente - presumibilmente VB.NET

Private Sub Image1_Click()
    If Text1.Text = "user" And Text2.Text = "ciaociao" Then
        Me.Visible = False
        Form2.Show
        
     Else
        MsgBox "Username e Password non riconosciuti", vbCritical, "Errore"
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
    End If
 
End Sub
 
Private Sub Image2_Click()
    If Text1.Text = "amministratore" And Text2.Text = "ciao" Then
        Me.Visible = False
        Form3.Show
        
     Else
        MsgBox "Username e Password non riconosciuti", vbCritical, "Errore"
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
    End If
End Sub

Ultima modifica effettuata da AldoPiccione il 24/08/2011 alle 12:11

Sal47 (Normal User)
Pro

Messaggi: 96
Iscritto: 05/02/2009

Postato alle 17:56
Mercoledì, 24/08/2011

Ciao,
premettendo che sono anche io "alle prime armi", vorrei provare ad aiutarti ancora ma non capisco bene il nuovo quesito:
- vuoi eliminare una delle due Images?
- quando dici "però ho utilizzato due command" ti riferisci alle due Images o alle due TextBox?

AldoPiccione (Normal User)
Newbie

Messaggi: 4
Iscritto: 23/08/2011

Postato alle 18:42
Mercoledì, 24/08/2011

In pratica, per una questione puramente grafica, invece di utilizzare due command utilizzo due immagini, e vorrei eliminare una delle due per far si che una svolga il compito sia di login utente che di login admin..

Sal47 (Normal User)
Pro

Messaggi: 96
Iscritto: 05/02/2009

Postato alle 19:14
Mercoledì, 24/08/2011

Allora io ho provato a fare così:
- lasciare le due textbox senza alcun nome,
- aggiungere due label  "Digita nome Utente" e "Digita password",
- eliminare la seconda Image,
- e modificare il codice così:
--------------------
Option Explicit
Private Sub Image1_Click()
If Text1.Text = "user" And Text2.Text = "ciaociao" Then
      Me.Visible = False
      Form2.Show
      GoTo 1
End If
If Text1.Text = "amministratore" And Text2.Text = "ciao" Then
      Me.Visible = False
      Form3.Show
      GoTo 1
End If
MsgBox "Username e Password non riconosciuti", vbCritical, "Errore"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
1:
End Sub
--------------
Saluti

AldoPiccione (Normal User)
Newbie

Messaggi: 4
Iscritto: 23/08/2011

Postato alle 18:42
Giovedì, 25/08/2011

Grazie mille