用vb写一个文件:功能:输入密码,点击确定,如果对了就跳转到一个隐藏文件...

发布网友 发布时间：2024-08-07 03:03

我来回答

共4个回答

热心网友 时间：2024-08-22 16:39

'一个Text1,一个Command1

Private Sub Command1_Click()
If Text1.Text = "000000" Then
Shell "Notepad.exe D:\新文件夹" ' Else
MsgBox "密码不正确"
End If
End Sub

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

If Text1.Text = "000000" Then
Shell "Notepad.exe D:\新文件夹" ' Else
MsgBox "密码不正确"
End If
End Sub

如果还不明白，在窗体中设一个text1、一个command1，
把以下全复制到rorm命令里就可以了（就是双击command1，把下面的做个粘贴）

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

End Sub

If Text1.Text = "000000" Then
Shell "Notepad.exe D:\新文件夹" ' Else
MsgBox "密码不正确"
End If

热心网友 时间：2024-08-22 16:37

一个 text1 一个Command1 确定键
Private Sub Command1_Click()
If Text1 = "123" Then 这里改你的密码
MsgBox "祝贺你,成功登录"
Form2.Show: Form.Hide ' 显示窗口2，隐藏窗口1 ，
或你把这里的代码换成 shell "c:\123.exe"他就改成了打开 123.exe
Else
MsgBox "对不起,密码错误,无法登录!"
End If
End Sub

热心网友 时间：2024-08-22 16:42

一个Text1,一个buttum1

Private Sub buttum_Click()
If Text1.Text = "这里写你要设置的密码" Then
Shell "这里写你要打开的文件的名字"
Else
MsgBox ("密码不正确",,"密码不正确")
End If
End Sub

热心网友 时间：2024-08-22 16:43

'一个Text1,一个Command1

Private Sub Command1_Click()
If Text1.Text = "密码" Then '密码自己改
Shell "Notepad.exe D:\文件.txt" '应用程序 和 文件名自己改
Else
MsgBox "密码不正确"
End If
End Sub

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