如何在VB中inputbox密码显示为"*"呢?

发布网友 发布时间：2022-05-14 07:59

我来回答

共4个回答

热心网友 时间：2023-10-10 18:30

1、vb和asp一样都是一种动态语言。只是实现把数据库数据检索显示出来填充到界面上。所以密码框并不是使用vb设置的。通常都会结合html、css实现界面。而密码框正是html的一个标签
2、密码框*号是html中的一个密码框【input type=password】实现的。只要把类型设定为密码型type=password即可

热心网友 时间：2023-10-10 18:30

先设置一个加密的算法，然后调用：
Private Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If nCode = HCBT_ACTIVATE Then
Dim hwndEdit As Long
hwndEdit = GetDlgItem(wParam, &H1324)
SetWindowLong hwndEdit, GWL_STYLE, ES_PASSWORD Or GetWindowLong(hwndEdit, GWL_STYLE)
SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), 0
UnhookWindowsHookEx hHook
End If
HookProc = 0
End Function
Public Function InputMyBox(Prompt As String, Optional Title As String, Optional Default As String) As String
If Len(Title) = 0 Then Title = App.Title
hHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, App.hInstance, App.ThreadID)
InputMyBox = InputBox(Prompt, Title, Default)
End Function
使用时，编码如下：
Private Function Check_Sn() As String
Dim InputStr As String
InputStr = InputMyBox("你要输出的内容", "box名称")
End Function

热心网友 时间：2023-10-10 18:31

VB中inputbox不能以密码显示~~！！！！！

如果要实现你说的功能，那你自己做一个窗体就可以了~~~

热心网友 时间：2023-10-10 18:31

好像是不可以的。
这个有人问过，有其他回复，给个链接你去看看。
http://zhidao.baidu.com/question/13560172.html?md=3

参考资料：http://zhidao.baidu.com/question/13560172.html?md=3