如何弹出一个对话框，进行密码效验.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

在 frmLogin窗 体 上 面 放 置 一 个 文 本 框 ， 将 它 的 passwordchar属 性 设 置 为 "*"， 这 样 用 户 在 输 入 密 码 时 ， 文 本 框 显 示 “ *” 。 你 可 以 在 Form1中 定 义 一 个 Public变 量 sPassword。 在 Command1_Click()中 如 下 ： 
    sPassword = "" 
    frmLogin.Show 1 
    If sPassword = "你 的 密 码 " Then 
     MsgBox "好 同 志 ！ " 
    Else 
     MsgBox "敌 人 ！ " 
    End If 
    在 frmLogin的 确 认 按 钮 的 Click事 件 中 加 入 如 下 语 句 ： 
    Form1.sPassword = Text1.Text 
    就 是 这 样 。 当 然 你 也 可 以 把 Form1中 检 验 的 内 容 放 在 frmLogin中 。 
<END>
： 
    如 果 在 启 动 程 序 时 
    可 加 模 块 ： 
    sub main() 
    dim a as string 
    a=inputbox("输 入 密 码 ") 
    if a="密 码 " then form1.show 
    else 
    msgbox "非 法 用 户 !!" 
    end 
    end if 
    end sub 
    最 后 启 动 main() 
<END>