在 InputBox 中使用密码字符“*”

Question

我想*在输入框中使用字符但出现错误提示

conversion from "*" to string invalid 

如何让我的输入框将键入的文本隐藏到密码字符中？

这是我的代码

Dim value As String
value = InputBox("Security Check", " Enter password", "*")

If value = "123456" Then
    numr.Enabled = True
End If
End Sub 

Answer 1

对于内置的 Function InputBox 来说这是不可能的。您设置的值“*”是该函数的默认值。http://msdn.microsoft.com/en-us/library/6z0ak68w(v=vs.90).aspx

这是你可以做的事情。http://www.vbforums.com/showthread.php?627996-Accepting-password-characters-for-InputBox-function