VB中Form1输入正确密码后才能对Form2进行操作?
用VB做了一个软件后,也用VB做了一个密码登录器,怎样让它们连接起来?使登录正确密码后对能使用它。...
用VB做了一个软件后,也用VB做了一个密码登录器,怎样让它们连接起来?使登录正确密码后对能使用它。
展开
展开全部
比如你Form1是密码登陆器,Form2是程序主界面!你添加2个按钮,分别是cmdCancel和cmdOK.
代码:
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
LoginSucceeded = False
Unload Me
End Sub
Private Sub cmdOK_Click()
If txtUserName = "豆豆" Then
If txtPassword = "HNBR38-YH2ZE4-FHFC63-CFPRZ3-7U9E7G-RVTTH9" Then
LoginSucceeded = True
Me.Hide
Form2.Show
Unload Me
Else
MsgBox "无效的密码,请重试!", vbCritical, "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "无效的帐号,请重试!", vbCritical, "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
这个是最最简单的方法!也就是把密码帐号写进去!如果你要反汇编时不看到密码可以动态设置变量或者设置算法
代码:
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
LoginSucceeded = False
Unload Me
End Sub
Private Sub cmdOK_Click()
If txtUserName = "豆豆" Then
If txtPassword = "HNBR38-YH2ZE4-FHFC63-CFPRZ3-7U9E7G-RVTTH9" Then
LoginSucceeded = True
Me.Hide
Form2.Show
Unload Me
Else
MsgBox "无效的密码,请重试!", vbCritical, "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "无效的帐号,请重试!", vbCritical, "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
这个是最最简单的方法!也就是把密码帐号写进去!如果你要反汇编时不看到密码可以动态设置变量或者设置算法
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在你的form1建立一个text和command
在command1中放以下代码
if text1.text = "你自己设定的密码" then
form2.show
unload me
else
msgbox "密码输入错误!",16,"Error"
end if
在command1中放以下代码
if text1.text = "你自己设定的密码" then
form2.show
unload me
else
msgbox "密码输入错误!",16,"Error"
end if
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
if 密码 正确 then
你的软件窗口显示
登陆窗口卸载
exit sub
else
msgbox "密码错误"
endif
你的软件窗口显示
登陆窗口卸载
exit sub
else
msgbox "密码错误"
endif
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
If 输入=你的密码 Then
Form2.Show
Form2.Show
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
密码正确后
可以
Form2.Show
Unload Form1
可以
Form2.Show
Unload Form1
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询