piti prôblème de programme

Question

j'ai créé un programme sous visual basic 6 avec :une textbox pour deux mots de passe qui conduisent chacun à une form differente (form1 et form2)et quand j'entre un mot de passe (juste) ca me dit:"C'est pas le bon mot de passe" puis ouvre la form1 et quand je tape l'autre mot de passe pour acceder a l'autre form (form2) et ca me dit:"C'est pas le bon mot de passe" puis ouvre la form2 voila le code: 

Private Sub Command1_Click()
If Text1.Text = "momo" Then
Form2.Show
Else
MsgBox "C'est pas le bon mots de passe", vbCritical
End If
If Text1.Text = "bonjour" Then
Form3.Show
Else
MsgBox "C'est pas le bon mots de passe", vbCritical
End If
End Sub


Voila merci de me repondre et de m'aider  ;) 
 :shy)

cs_rene38 · Answer

Bonjour

Private Sub Command1_Click()
If Text1.Text = "momo" Then
   Form2.Show
   Exit Sub
End If
If Text1.Text = "bonjour" Then
   Form3.Show
   Exit Sub
End If
MsgBox "C'est pas le bon mots de passe", vbCritical
End Sub

horko · Answer

tu devrais tenter un truc du genre :

Private Sub Command1_Click()
  If Text1.Text = "momo" Then
    Form2.Show
  ElseIf Text1.Text = "bonjour" Then
    Form3.Show
  Else
    MsgBox "C'est pas le bon mots de passe", vbCritical
  End If
End Sub

cs_rene38 · Answer

ou mieux :

Private Sub Command1_Click()
Select Case LCase(Text1.Text)
   Case "momo" 
      Form2.Show
   Case "bonjour"
      Form3.Show
   Case Else
      MsgBox "C'est pas le bon mot de passe", vbCritical
End Select
End Sub

Scalpweb · Answer

Ou alors :


Select Case text1.text
   Case "momo"
    form2.show
   Case "bonjour"
    form3.show
   Case Else
     msgbox "Ce n'est pas le bon mot de passe", vbcritical, ""
End Select


Pourquoi ton code ne fonctionnait pas :

Parceque quoi qu'il arrive, ton textbox ne pouvait pas être egale à la fois à "momo" et à "bonjour". Donc, dans tout les cas, le programme éxécutait toujours un des deux Else. Voilà.
Si ta pas compris, demande moi.

Pice-WCorp bientôt sur le net.

Devil17049 · Answer

MERCI Vous êtes des boss vous m'avez fourni une très très grande aide je vous en remerci !! 
si j'ai un blem je serai qui contacter  :big)  ;)

Piti prôblème de programme

5 réponses

Discussions similaires