怎样上输入到inputbox里的字符以*号显示？

Question

如题！

Answer 1

设置 PASSWORDCHAR 为 *

Answer 2

晕，agree  yijiansong(凯歌)

Answer 3

inputbox里的字符串不可以设置passwordchar属性,最好最简便的方法是自己做一个窗体

Answer 4

1.用模式窗体自己做一个好了。（比较简单）2.用下面的Hook虽然可以实现，但不太稳定。代码如下Module.bas中
-----------------------------------------------------
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
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 Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Public Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Const EM_SETPASSWORDCHAR = &HCCPublic g_bDone As Boolean
Public g_strTitle As String
Public Sub HookInputBoxThread()
    Do Until g_bDone
        Dim h As Long, hText As Long
        h = FindWindow("#32770", g_strTitle)
        If h <> 0 Then
            hText = GetDlgItem(h, &H1324)
            If hText <> 0 Then
            SendMessage hText, EM_SETPASSWORDCHAR, Asc("*"), 0
            g_bDone = True
            End If
        End If
    Loop
End Sub-----------------测试代码form1.frm----------------
Private Sub Command1_Click()
    Dim hThread As Long, lpThreadID As Long
    g_bDone = False
    g_strTitle = "测试程序"
    hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf HookInputBoxThread, ByVal 0&, 0, lpThreadID)
    Dim s As String
    s = InputBox("请输入数据", g_strTitle)
    MsgBox s
End Sub----------------------------------------

Answer 5

1.自己做一个模式窗体来模拟好了。（如楼上所说，很简单的）
2.用Hook可以实现，比较麻烦，而且不是很稳定。代码如下：----------------------Module1.bas---------------
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
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 Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Public Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Const EM_SETPASSWORDCHAR = &HCCPublic g_bDone As Boolean
Public g_strTitle As String
Public Sub HookInputBoxThread()
    Do Until g_bDone
        Dim h As Long, hText As Long
        h = FindWindow("#32770", g_strTitle)
        If h <> 0 Then
            hText = GetDlgItem(h, &H1324)
            If hText <> 0 Then
            SendMessage hText, EM_SETPASSWORDCHAR, Asc("*"), 0
            g_bDone = True
            End If
        End If
    Loop
End Sub-----------------------测试代码form1.frm--------------
Private Sub Command1_Click()
    Dim hThread As Long, lpThreadID As Long
    g_bDone = False
    g_strTitle = "测试程序"
    hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf HookInputBoxThread, ByVal 0&, 0, lpThreadID)
    Dim s As String
    s = InputBox("请输入数据", g_strTitle)
    MsgBox s
End Sub------------------------------------------------------------------------------

Answer 6

自己作就是了，passwordchar为*就可以了

Answer 7

设置 PASSWORDCHAR 为 * 就行了。

Answer 8

只有自己做啦，用textbox 的passwordchar改成*

Answer 9

设置成*,不如作一个无模式form

Answer 10

设置inputbox的passwordchar属性。

Answer 11

自己作就是了，passwordchar为*就可以了

Answer 12

设置 PASSWORDCHAR 为 *

Answer 13

设置 PASSWORDCHAR 为 *
设置 PASSWORDCHAR 为 *
设置 PASSWORDCHAR 为 *
设置 PASSWORDCHAR 为 *
设置 PASSWORDCHAR 为 *
设置 PASSWORDCHAR 为 *
设置 PASSWORDCHAR 为 *
设置 PASSWORDCHAR 为 *
设置 PASSWORDCHAR 为 *
设置 PASSWORDCHAR 为 *
...