Le contrôle zone de texte ou TextBox vous permet de créer un champ de saisie de mot de passe. Les caractères qui y apparaissent sont appelés caractères d’écho et sont définis par la propriété PasswordChar.
Prenons un exemple d’une application de saisie de mot de passe simple. Il y a un champ de saisie de mot de passe et un bouton de commande. Le bouton est verrouillé lors de l’initialisation de la fenêtre. Si l’utilisateur entre le mot de passe correct dans le champ de saisie, alors le bouton est déverrouillé, s’il est faux, il est reverrouillé.
Figure: 1. Fenêtre de mot de passe
Alors, créez un formulaire sur lequel placer la zone de texte et le bouton de commande. À l’aide de la fenêtre Propriétés, définissez leurs valeurs de propriété comme indiqué dans le tableau. 2.
Tableau 2: Valeurs de propriété définies dans la fenêtre Propriétés
Objet | Propriété | Valeur |
Userform | Caption | Mot de passe |
Zone de texte | Name | TxtMotpasse |
Bouton de commande | Name | CmdMessage |
Caption | Cliquez ici |
Dans le module formulaire, saisissez le code suivant :
Private motdepasse As String Private Sub UserForm_Initialize() cmdMessage.Enabled = False txtMotpasse.PasswordChar = "*" motdepasse = "chancelin" End Sub Private Sub txtMotpasse_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) If KeyCode = vbKeyReturn Then If LCase(txtMotpasse.Text) = LCase(motdepasse) Then cmdMessage.Enabled = True Else cmdMessage.Enabled = False End If End If End Sub Private Sub cmdMessage_Click() MsgBox "Le mot de passe est entré correctement" End Sub
Commentaires :
■ Pour simplifier la saisie du mot de passe, on ne prend pas en compte la différence entre la majuscule et la minuscule. Ceci est accompli en convertissant toutes les lettres entrées en minuscules à l’aide de la fonction LCase ().
■ La propriété Enabled indique si un contrôle peut recevoir le focus et répondre à des événements générés par l’utilisateur. La syntaxe de la propriété Enabled est objet.Enabled.
La syntaxe de la propriété Enabled présente les éléments suivants :
Élément | Description |
Object | Obligatoire. Un objet valide. |
Boolean | Facultatif. Indique si l’objet peut réagir aux événements générés par l’utilisateur. |