ビジュアルベーシックWatermark passwordchar？

Question

私は現在、自分のプログラムにログインフォームを作成しています。ここには、2つのテキストボックスの電子メールとパスワードの透かしがあります。

テキストボックスが空の場合、その透かしテキストが「ユーザー名」と「パスワード」のように表示されます。

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 

エンドクラス

パブリック・クラスfrmLoginしかし、今私の問題は、私はパスワードのパスワードの文字を使用したいということです。 私のコードです。しかし、私はまだウォーターマークのテキストを通常のテキストにしたい。パスワードを使用するかどうかをチェックすると、ウォーターマークが「パスワード」ではなく「**」に変わります。どうすれば修正できますか？

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