Créez un nouveau Projet;
Mettez deux label, deux Zones de texte, et un Bouton pour annuler.
Mettez * dans Passewordchar du Propriété de la deuxième zone de texte pour crypter le mot de passe.
Mettez ce Code dans la première zone de texte :
Private Sub Text1_keyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
'----------Teste pour éviter la Zone Vide ----
If Text1.Text = "" Then
Msgbox "Zone Obligatoire"
Else
If Text1.Text <> "Nom d'Utilisateur" Then
Msgbox "Nom Invalid"
Text1.Text = ""
Else
Text2.SetFocus
End If
End If
End If
End Sub
---------------------------------
Private Sub Text2_keyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
'---------- Teste pour éviter la Zone Vide ----
If Text2.Text = "" Then
MsgBox "Zone Obligatoire"
Else
If Text2.Text <> "Mot de Passe" Then
MsgBox "Mot de Passe Invalide"
Text2.Text = ""
Else
Command1.SetFocus
End If
End If
End If
End Sub
Conclusion :
si vous avez un probleme vous pouvez contacter : jabraic@yahoo.fr
si vous voulez autres astucs consulter ma site web www.ifrance.com/visualbnet
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.