7489
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
cy_nwau 2003-05-21
给我一个Email,我给你专门订做的myinputbox.ocx
费了我1个小时
to cy_nwau@163.com
费了我1个小时
to cy_nwau@163.com
Maconel 2003-05-20
楼上大概看错了，楼主说的是inputbox里的文本框，自己是不能那样改属性的
就用dragon525() 的第一种方法或cy_nwau(小人物) 的方法
就是自己做个窗体，象inputbox一样，用到时，就form2.show（假如窗体名字叫form2）
在这里边，text的属性你就可以自己改了，把passwordchar设为*就好
就用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
==========================
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属性中输入一个“*”，就可以了。
TEXT的PASSWORDCHAR属性中输入一个“*”，就可以了。
jinzh2000 2003-05-20
怎么自定义
cy_nwau 2003-05-20
自定义一个输入窗口。
html使用对话框接收密码,Excel黑科技 vba中用Inputbox对话框接受输入密码时显示为*... Option Explicit'API宣告#If Win64 ThenPrivate Declare PtrSafe Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtrPrivate Declare ...
VB6.0使用InPutBox显示密码输入框.rar VB6.0使用InPutBox显示密码输入框，InPutBox大部分情况下是用于输入数据，与用户交互，但这些数据并不是密码类型的，本实例是展示是使用InPutBox作为密码输入框，其实也是挺简单的： Private Sub Command1_Click()...
delphi InputBox输入密码用*代替，怎样让delphi的inputbox输入框显示密码代表符* 定义 Mydialogs.pas unit Mydialogs; interface ...uses Windows, Graphics, Forms, StdCtrls, Consts, Dialogs, Controls,SysUtils,Types;...function GetAveCharSize(Canvas: TCanvas): TPoint;...
C# 登录密码框TextBox显示*或者● 登录密码框显示*或者●选中TextBox属性找到TextBox属性PasswordChar,在后面输入对应的*或者●即可调试效果 选中TextBox属性 找到TextBox属性PasswordChar,在后面输入对应的*或者●即可 调试效果
easyx库中Inputbox函数接收用户输入字符串的指针类型不兼容 严重性 代码 说明 项目 ...easyx库中关于inputbox韩式的示例代码如下： 很显然，我们在类型定义并没有什么问题，问题出现在项目的属性上。 解决方法：（以VS2019为例） 项目 ----> 属性 ----> 配置属性 ----&...
如何写函数使InputBox如何实现输入文本显示为*? 如何写函数使InputBox如何实现输入文本显示为*?因为我用InputBox输入的管理员密码,所以怎样写个函数来实现这个目的,能否提供代码,在线等待,谢谢!
C#弹窗提示输入密码 String PM = Interaction.InputBox("请输入密码", "输入密码", "", 100, 100); if (PM != "2222") { MessageBox.Show("请输入正确的密码谢谢！！！！！"); return; } 如果需要输入的密码为加密****，则需要自定义...
怎么实现Inputbox中输入的东西用*****显示 我想button1click后弹出一个输密码的窗 然后返回密码窗中文本栏的数据，在那里输入的数据要用＊＊＊显示 要怎么实现呢 是 new 一个class继承inputbox 还是自己再做个窗体，让其返回那些数据呢。 顺便问一问 如果我...
Excel VBA 怎样为 inputBox 输入框设置星号掩码-密码屏蔽输入框 本文提供的代码，将允许隐藏 VBA inputbox 输入框中输入的字符，即输入的字符将显示为 * （星号）或您设置其它特殊符号
input输入密码类型，点击小眼睛显示密码或隐藏功能 一般的登录输入密码类型的，都会用一张图片点击查看密码，我遇到了这样的功能，所以就记下来了。 <div class="pwd label"> <div class="icons"> <img src="../../../static/images/mima.png" alt...
vba编程控制excel输入不同的密码显示不同的sheet 都说office，似乎大家都知道office，甚至可以说都懂得office。...1、打开的时候，只显示默认的home-sheet，并提示请输入密码，根据不同的密码显示不同的sheet 2、vba编程入口需要口令才能进入 3、基于口...
VBA环境下InputBox输入文本格式显示为(*)程序出现问题，想各位朋友请教 Click() Dim password As String password = MyInputBox("请输入密码", "登录") If password = "1234567890" Then Debug.Print "密码正确" Else Debug.Print "密码不正确" End If End Sub 错误发生在：hHook = ...
VB6.0使用InPutBox显示密码输入框.rar下载 VB6.0使用InPutBox显示密码输入框，InPutBox大部分情况下是用于输入数据，与用户交互，但这些数据并不是密码类型的，本实例是展示是使用InPutBox作为密码输入框，其实也是挺简单的： Private Sub Command1_Click() ...
VBA之打开工作簿输入密码才能显示内容 打开工作簿,弹出弹窗输入密码,如果密码错误则关闭工作簿 首先在 thisworkbook里设置 当打开工作簿时 执行代码 代码如下: Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim sht As Worksheet '隐藏所有表 ...
VB InputBox 对话框星号保护隐私 Option ExplicitPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" _(ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _ByVal lParam As Long) As ...
C# 学习笔记四 弹出输出框 Interaction.InputBox 在C#中，进行windows窗体应用程序编程的时候，经常需要弹出输入框，输入密码，输入文本之类的。然而，C#中没有直接弹出输入框的语句，MessageBox只能显示一段消息而不能输入。我们需要调用Microsoft.VisualBasic，...
VBA 列的隐藏和显示,密码验证 VBA 列的隐藏和显示,密码验证 Sub button1_Click() 'default password finalPwd = "123456" ' If Sheets("Sheet1").Columns("E:G").Hidden = True Then 'INPUT PASSWORD inputPwd = InputBox("INPUT PASSWORD...
如何在InputBox（）的输入框中实现输入的字符显示为：*****(在线给分) 如何在InputBox（）的输入框中实现输入的字符显示为：***** 我必须这样用，当然可以设置EDIT的属性可以实现这个，但是我是修改密码，修改密码之前，提示他输入旧密码，所以要个他一个提示并能输入？ 而且不要调用...
关于InputBox的问题，怎样在InputBox中间输入密码？而不是直接显示输入的字符？ 小弟用InputBox来接受用户输入的字符，但是是作为密码，不能直接显示用户所输入的字符，而需要用*来代替显示，请问应该如何实现？
