vb在vb编程中的一个特别菜的问题....vb

来源：百度知道 编辑：UC知道 时间：2024/05/16 05:44:29
做一个密码框,当输入正确密码(比如1234)以后,点击确定能够打开扫雷游戏.如果密码输入错误弹出对话框"非法用户,请重新输入"怎么编写啊,谢谢啦!

放一个 TextBox 和 一个 CommandButton
Private Sub Command1_Click()
If Text1.Text = "1234" Then
Call Shell("winmine.exe", vbNormalFocus)
Else
Call MsgBox("非法用户，请重新输入")
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.PasswordChar = "*"
Command1.Caption = "确定"
End Sub

首先画个文本框text1
然后代码:
if text1.text = "1234" then
......
else
msgbox "非法用户,请重新输入"
end if

If Text1.Text = "1234" Then
Shell "C:\WINNT\System32\winmine.exe", 1
Else
MsgBox "非法用户,请重新输入"
End If

同意一楼的。

用这个方法调用扫雷游戏。
Shell(path[style])

path为扫雷游戏的路径。
[style]为可选项。为窗体出现的模式。有值1和0可选。

就是这么简单,最好再把文本框的PASSWORDCHAR设为*.
不过,要打开扫雷游戏,试下找到它的路径所在(在哪我真是不清楚),再使用打开程序的方式打开.