Visual Basics Watermark passwordchar?

Question

В настоящее время я создаю форму для входа в свою программу, где у меня есть водяной знак для двух текстовых полей Email и Пароль.

Когда текстовое поле пуст, в нем появится текст его водяного знака, например «Username» и «Password». Мой код: Public Class 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

Но теперь моя проблема заключается в том, что я хочу использовать символы пароля для пароля. Но я все еще хочу, чтобы текст водяного знака был в обычном тексте. Когда я проверяю использование символа пароля, он превращает мой водяной знак в «**» вместо «Пароль». Как я могу это исправить?

Answer 1

Это кажется хорошим:

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