Textbox

Bonjour, j'ai un texbox pour taper un mot de passe, j'aimerai que par défaut il est écrit "Mot de passe", et qu'il s'efface quand on clique dedans.

Quelqu'un a une idée?

Merci

Bonjour,

Tu supprimes l'astérisque de la propriété "PasswordChar" et dans la propriété "Text" tu inscris "Mot de Passe". Il te suffis alors d'utiliser la procédure évènementielle "GotFocus" pour redéfinir le TextBox en champ pour mot de passe en utilisant à nouveau l'astérisque :

Private Sub TextBox2_GotFocus()
    TextBox2.PasswordChar = "*"
End Sub

Merci, voila la résultat.

Ai-je mal fais quelque chose?

Teste ceci :

Private Sub TextBox2_GotFocus()

    TextBox2.PasswordChar = "*"
    TextBox2.SelStart = 0
    TextBox2.SelLength = Len(TextBox2.Text)

End Sub

Private Sub TextBox2_LostFocus()

    Dim MotDePasse As String

    MotDePasse = TextBox2.Text

    If MotDePasse <> "theguilt" Then '<-- le mot de passe valide

        MsgBox "Mot de passe incorrect !"
        TextBox2.Text = "Mot de Passe"
        TextBox2.PasswordChar = "*"
        TextBox2.SelStart = 0
        TextBox2.SelLength = Len(TextBox2.Text)

        Exit Sub

    End If

    MsgBox "Le mot de passe est correct !"
    TextBox2.PasswordChar = ""
    TextBox2.Text = "Mot de Passe"
    'ici ton code pour la Suite quand le mode de passe est correct !
    '...
    '...
    '...

End Sub

bonjour merci j'arrive pas a le faire fonctionner tu as reussi sur mon fichier?

Merci

Salut theguilt,

Ça fonctionne chez moi.

Au Plaisir.

Jean

bonjour, je cherche plus à qu'il y est écrit "mot de passe" a chaque fois que le textbox est vide

Merci