禁用密码 TextBox Caps-Lock is On 警告

Question

我正在创建一个登录的东西，我有这个问题，每次我点击这个“显示密码”按钮并且 Caps-Lock 被激活时，一个警告弹出并且不会离开（至少我认为不会，这对最终用户来说会更糟）

我想完全摆脱这个警告。

在将我的问题重定向到这个问题之前：
How to disable system's caps-lock notification on Textbox

我已经试过了。

Private Sub ShowPassword_MouseDown(sender As Object, e As MouseEventArgs) Handles ShowPassword.MouseDown
    If txt_Password.Text <> "" Then
        txt_Password.UseSystemPasswordChar = False

    End If
End Sub
Private Sub ShowPassword_MouseUp(sender As Object, e As MouseEventArgs) Handles ShowPassword.MouseUp
    If txt_Password.Text <> "" Then
        txt_Password.UseSystemPasswordChar = True
    End If
End Sub

警告应该消失。
希望这个问题可以帮助除我以外的其他人。 编辑：谢谢吉米。 :D

Answer 1

当你这样做时：

[TextBox].UseSystemPasswordChar = [Bool Value]

每次都会重新创建控件的句柄 (.Net source code)

当TextBox.Text 值改变时，气球工具提示将显示新控制手柄：工具提示将堆积。

一个简单的解决方法 - 因为在这里禁用警告可能不是一个好的选择 - 是在您的 Show Password 按钮的 MouseDown 处理程序中将 PasswordChar 属性设置为 Char.MinValue 或 Nothing，然后设置它回到MouseUp 上的先前值。这不会重新创建句柄 (.Net Source code)，并且可以按 Caps-Lock 键禁用气球工具提示。

在设计器中将UseSystemPasswordChar 设置为False。
在Form.Load 或txt_Password.Enter：txt_Password.PasswordChar = ChrW(&H25CF)

Private Sub ShowPassword_MouseDown(sender As Object, e As MouseEventArgs) Handles ShowPassword.MouseDown
    txt_Password.PasswordChar = Char.MinValue
End Sub

Private Sub ShowPassword_MouseUp(sender As Object, e As MouseEventArgs) Handles ShowPassword.MouseUp
    txt_Password.PasswordChar = ChrW(&H25CF)
End Sub