双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

inputbox内的输入字符能否用“*”代替？

2004-05-07 11:07:53 142 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lifdb 墨衍会员 · AI 创作全网分发关注 + 加入社区

C#中调用VB中Inputbox功能 C#自己没有Inputbox这个类，但是Inputbox也蛮好用的，所以有两种方法可以使用一：.间接调用vb中的Inputbox功能 1。在项目中添加对Microsoft.VisualBasic引用 2。在项目中添加命名空间Using Microsoft.VisualBasic; 3。以后就可以直接使用VB中的好多类库（爽啊……）阅读详情

inputbox内的输入字符能否用“*”代替？

...全文

手把手教你调试RTL8201F：从芯片手册解读到LWIP驱动移植本文详细解析了RTL8201F PHY芯片的开发流程，从寄存器配置到LWIP驱动移植，重点介绍了RMII模式下的特殊配置要点和调试技巧。通过实战案例和高级调试方法，帮助工程师解决网络性能问题，实现与FreeRTOS+LWIP协议栈的稳定集成。阅读详情

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

评论 7

切换为时间正序

wlk 2004-05-10

打赏
举报

回复

up

lifdb 2004-05-10

打赏
举报

回复

谢谢

BlueBeer 2004-05-08

打赏
举报

回复

同意楼上观点~

broown 2004-05-08

打赏
举报

回复

这样做会使简单的编程，变为复杂的操作。你还不如直接新建一个from直接做个相同功能的inputbox,并在text的属性栏Password=true

yjplus 2004-05-08

打赏
举报

回复

Password=TRUE

wumy_ld 2004-05-08

打赏
举报

回复

1。做个窗体来模拟一个 inputbox 要简单得多。

2。如果非要用inputbox，不是不可以实现，而是比较麻烦（可能会不稳定）代码如下：

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

’-----------------以下代码测试通过--------------------
’以下代码放在模块文件中(.bas)
Option Explicit
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

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

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
==========================

yinweihong 2004-05-07

打赏
举报

回复

http://www.5ivb.net/club/dispbbs.asp?boardID=1&ID=25243