Bases visuelles Filigrane passwordchar?

Question

Je suis en train de faire un formulaire de connexion à mon programme où j'ai un filigrane pour les deux zones de texte Email et mot de passe. Quand une zone de texte est vide, son texte en filigrane apparaît comme "Nom d'utilisateur" et "Mot de passe". Mon code est: Classe publique frmLogin

Private Sub TextBox2_LostFocus(sender As Object, e As System.EventArgs) 
    If TextBox2.Text = "" Then 
     TextBox2.ForeColor = Color.DarkGray 
     TextBox2.Text = "Username" 
    End If 

End Sub 

Private Sub TextBox2_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox2.GotFocus 
    TextBox2.Text = "" 
    TextBox2.ForeColor = Color.Black 
End Sub 

Private Sub TextBox1_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox1.GotFocus 
    If TextBox2.Text = "" Then 
     TextBox2.ForeColor = Color.DarkGray 
     TextBox2.Text = "Username" 
    End If 
    TextBox1.Text = "" 
    TextBox1.ForeColor = Color.Black 
End Sub 

Private Sub TextBox1_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox1.LostFocus 
    If TextBox1.Text = "" Then 
     TextBox1.ForeColor = Color.DarkGray 
     TextBox1.Text = "Password" 
    End If 
End Sub 

End Class

Mais mon problème est que je veux utiliser des caractères de mot de passe pour le mot de passe. Mais je veux toujours que le texte du filigrane soit en texte régulier. Quand je vérifie l'utilisation d'un mot de passe, il transforme mon filigrane en "**" au lieu de "Mot de passe". Comment puis-je résoudre ce problème?

Answer 1

Cela semble bon:

Private Sub TextBox1_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox1.GotFocus 
     Textbox1.PasswordChar = "*" 
     Textbox1.Clear() 
End Sub 


Private Sub TextBox1_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox1.LostFocus 
     TextBox1.PasswordChar = ControlChars.NullChar 
End Sub