inputbox 中怎么输入密码的时候显示为*号,

jinzh2000 2003-05-20 08:35:24
inputbox 中怎么输入密码的时候显示为*号,
...全文
672 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
cy_nwau 2003-05-21
  • 打赏
  • 举报
回复
给我一个Email,我给你专门订做的myinputbox.ocx
费了我1个小时
to cy_nwau@163.com
Maconel 2003-05-20
  • 打赏
  • 举报
回复
楼上大概看错了,楼主说的是inputbox里的文本框,自己是不能那样改属性的
就用dragon525() 的第一种方法或cy_nwau(小人物) 的方法
就是自己做个窗体,象inputbox一样,用到时,就form2.show(假如窗体名字叫form2)
在这里边,text的属性你就可以自己改了,把passwordchar设为*就好
hongzerenhe 2003-05-20
  • 打赏
  • 举报
回复
不用楼上的这么复杂的,只要把TEXT的PASSWORDCHAR属性设为“*”就行呢
dragon525 2003-05-20
  • 打赏
  • 举报
回复
1。做个窗体来模拟一个 inputbox 要简单得多。

2。如果非要用inputbox,不是不可以实现,而是比较麻烦(可能会不稳定)代码如下:

' 可以启动一个线程序专门用于监控INPUTBOX对话框的,如果INPUTBOX找到,就给
' 它里面的文本框发送一个EM_SETPASSWORDCHAR的消息就可以了。
' 线程函数里面的应该使用FindWindow来找到该INPUTBOX的窗口。
'====================转帖:

'-----------------以下代码测试通过--------------------
'以下代码放在模块文件中(.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 = &HCC

Public 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



,--------------以下代码为测试代码---------------------------


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
==========================
ufozq77 2003-05-20
  • 打赏
  • 举报
回复

TEXT的PASSWORDCHAR属性中输入一个“*”,就可以了。
jinzh2000 2003-05-20
  • 打赏
  • 举报
回复
怎么自定义
cy_nwau 2003-05-20
  • 打赏
  • 举报
回复
自定义一个输入窗口。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧