inputbox 如何让123456变成******

Question

请问我在inputbox 界面里面写入123456，怎么让123456变成是密码的形式，即******  
谢谢！！！！！！！！！  
急！！！

Answer 1

要实现这个功能除非新建一个窗口，做得跟inputbox一样的风格来实现。

Answer 2

用inputbox 这个不能实现这个功能吗？

Answer 3

在一个FORM里面调用另一个form怎么使用？

Answer 4

胡扯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 LongPrivate Const EM_SETPASSWORDCHAR = &HCCPublic Declare Function SetTimer Lib "user32" _
                        (ByVal hwnd As Long, _
                        ByVal nIDEvent As Long, _
                        ByVal uElapse As Long, _
                        ByVal lpTimerFunc As Long) _
                        As LongPrivate Declare Function KillTimer Lib "user32" _
                          (ByVal hwnd As Long, _
                          ByVal nIDEvent As Long) _
                          As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                          (ByVal lpClassName As String, _
                          ByVal lpWindowName As String) _
                          As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
                          (ByVal hWnd1 As Long, _
                          ByVal hWnd2 As Long, _
                          ByVal lpsz1 As String, _
                          ByVal lpsz2 As String) _
                          As LongDim m_lngTimerId As LongPrivate Sub main()    m_lngTimerId = SetTimer(0, 0, 1, AddressOf TimerProc)    Call InputBox("请输入姓名", "输入框")End SubPublic Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)    Dim lngHwnd As Long    lngHwnd = FindWindow(vbNullString, "输入框")                '参数复制是Input的Title参数
    lngHwnd = FindWindowEx(lngHwnd, 0, "Edit", vbNullString)    '继续查找子窗口，使用TextBox类名"Edit"    If lngHwnd Then        Call PostMessage(lngHwnd, EM_SETPASSWORDCHAR, &H2A, 0)  '&H2A是什么？就是*的AscII码42，这个参数为""就是不显示密码了。
        Call KillTimer(0, m_lngTimerId)                         '关闭计时器    End IfEnd Sub
以上代码编译后才有效

Answer 5

不同窗体能使用同一个mscomm吗？
比如在一个form中使用了mscomm.output=a
在另一个form中还能使用mscomm.output=b吗？
请大家多多指点！
在线等！

Answer 6

好像不行啊，说常量，数组什么之类的不能是Public的成员啊。

Answer 7

http://topic.csdn.net/t/20040623/16/3116721.html
老问题了，最好还是做个窗体

Answer 8

何必想那么复杂呢，用文本框控件即可，事先设置：Text1.PasswordChar = "*"

Answer 9

'*************************** 窗体Form1 的代码
Dim password$
Private Sub Form_Load()
   passw = MyInputBox("请输入密码", "登录")
   MsgBox IIf(passw = "123456", "密码正确", "密码错误")
End Sub'*************************** 模块 Module1 的代码Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private 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
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private hHook&, hEdit&
Private Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   If nCode = HCBT_ACTIVATE Then
      hEdit = FindWindowEx(wParam, 0, "Edit", vbNullString)
      SendMessage hEdit, EM_SETPASSWORDCHAR, Asc("*"), ByVal 0&
      UnhookWindowsHookEx hHook
   End If
End FunctionPublic Function MyInputBox(prompt As String, Optional title As String, Optional default As String) As String
   hHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, App.hInstance, App.ThreadID)
   MyInputBox = InputBox(prompt, title, default)
End Function

Answer 10

更正:Dim password$ 
改为
Dim passw$ 

Answer 11

人为制造困难,累不累呢
简单就是美,何必使用那么多的API

Answer 12

建议你自己写个inputbox了，既美观又耐用，还能支持多选，单选，返回值也能控制还能防止注入，多好。

Answer 13

我明白你的意思了，public 几个变量  title caption return_value options arrays 什么的
显示时inputboxn(asdfadf,asdfa,asdfasd,fasdf,asdfasdf,asdfadsf) as 布尔（或者返回值）
自己搞个函数
在里面
初始化完这些public 变量
form.show vbmodel(记不清了，也可能是１）
inputboxn=****
end sub
form　里
on_load 时读这些public 
显示
用户输入
点确认的时候写倒 public 里面去
unload me自然从inputboxn　里回来，读public，就行了，当然你可以装做是inputboxn返回的