跪求

Question

小弟我用inputbox函数：InputBox("请输入管理密码：")，可这样的话，密码是显示出来的，大家都能看见，这叫啥密码啊？能不能再输入的时候框里面显示*号呢？？？如果能，怎样将真正的密码赋给一个变量呢？如果不能，还请大家帮忙想个方法啊！！谢谢大家啊！！！！

Answer 1

Public Sub Startup()
    Me.Caption = CST_SYSTEM_TITLE & "登录"
    txtDBPath.Text = ReadPath
    Me.Show 1
End SubPrivate Sub cmdCancel_Click()
    G_IsLogin = False
    Unload Me
End SubPrivate Sub cmdOK_Click()
    
    On Error GoTo ErrHandle:
    
    Dim sSQL As String
    Dim rs   As ADODB.Recordset
    
    '检验数据库文件是否存在
    If G_FSO.FileExists(txtDBPath) = False Then
        MsgBox "没有找到数据库文件，请重新设置数据库路径", vbOKOnly, CST_SYSTEM_TITLE
        Exit Sub
    End If
    If IsFileExist(txtDBPath) = False Then Exit Sub
            '保存留数据库路径
    G_DBPath = txtDBPath.Text
    WriteFile G_DBPath
    
    G_User = txtUser
    
    If CheckingConn = False Then Exit Sub
        
    '检验用户是否存在
    G_IsLogin = IsUserExist(txtUser, txtPWD, G_IsAdv)
    If G_IsLogin = False Then
        MsgBox "用户不存在或密码错误!", vbOKOnly, CST_SYSTEM_TITLE
    Else
        Unload Me
    End If
    Exit Sub
ErrHandle:
    MsgBox Err.Description
    Err.Clear
    G_IsLogin = False
End SubPrivate Sub cmdSetting_Click()
    On Error Resume Next
    '查找数据库路径
    With dlgOpen
        .Filter = "*.mdb|数据库文件;*.*|所有文件"
        .ShowOpen
        If .FileName <> "" Then txtDBPath.Text = .FileName
    End With
End SubPrivate Sub txtPWD_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Call cmdOK_Click
End SubPrivate Sub txtUser_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Call cmdOK_Click
End Sub

Answer 2

crycoming(瞎编) 你搞咁多事做灭啊？人家要的是InputBox的PasswordChar那种属性，像textbox一样。我不会，帮你顶哦，不过用一个Form来代替InputBox也可以啊，很简单的啦，用TextBox，设置PasswordChar="*"就好啦！还有别动不动就下跪哦，男儿膝下有黄金！

Answer 3

用TEXT：Text1.PasswordChar = "*"

Answer 4

同意建立自己的一个窗体来代替inputbox

Answer 5

用窗體代替inputbox
將text1的PasswordChar寫成 *