怎么能使PASSWORD显示“*”啊~~求救！！！

Question

自己写个密码验证窗体代替inputbox不就行了。

Answer 1

将你输入密码的文本框的passwordchar属性设为“*”，你在属性视窗中可以找到此属性。注意，不用加引号。

Answer 2

这个问题不好解决，我以前也遇到过，后来还是用窗体代替了inputbox

Answer 3

VB中的InputBox不能实现隐蔽密码输入，只能使用自定义窗体中的TextBox实现。

Answer 4

把PASSWORD “*”字样,显示为明文Public Declare Sub RtlMoveMemory Lib "kernel32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
'发WM_GETTEXT消息函数
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public hLength As Long
Public bArr() As Byte, bArr2() As Byte
Public Const WM_GETTEXT = &HD
Public Const WM_GETTEXTLENGTH = &HE
'获取文本的函数
Public Function GetText(ByVal hWndNow As Long) As String
    '获取文本长度
    hLength = SendMessage(hWndNow, WM_GETTEXTLENGTH, 0, 0)
    If hLength > 0 Then
        '设置缓冲区
        ReDim bArr(hLength + 1) As Byte, bArr2(hLength - 1) As Byte
        Call RtlMoveMemory(bArr(0), hLength, 2)
        '发送WM_GETTEXT消息
        Call SendMessage(hWndNow, WM_GETTEXT, hLength + 1, bArr(0))
        Call RtlMoveMemory(bArr2(0), bArr(0), hLength)
        '得到文本
        GetText = StrConv(bArr2, vbUnicode)
     Else
        GetText = ""
    End If
  
End Function