如何弹出一个对话框，进行密码效验
编号：QA000650
建立日期: 1999年3月17日 最后修改日期：2000年10月31日
所属类别：
wy:
vb5.0
win95
点击一按纽，弹出一个对话框，进行密码效验。这个过程用vb怎么实现? 我先建 立 一 个 From1窗 体，里面画一个CommandButton。然后建 立一个frmLogin窗 体。现在想click 一下command1 调出frmLogin窗 体，不知道这怎么做，在Private Sub Command1_Click()过程里应添加什么代码？在frmLogin里校验password的具体做法是怎样？
回答:
在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中。
dalong的意见：
如果在启动程序时
可加模块：
sub main()
dim a as string
a=inputbox("输入密码")
if a="密码" then form1.show
else
msgbox "非法用户!!"
end
end if
end sub
最后启动main()
相关问题：
QA001024 "如何保存密码等信息"
此问题由李海回答。
| |
|
|
| |
|
|
