VB中Form1输入正确密码后才能对Form2进行操作?

用VB做了一个软件后,也用VB做了一个密码登录器,怎样让它们连接起来?使登录正确密码后对能使用它。... 用VB做了一个软件后,也用VB做了一个密码登录器,怎样让它们连接起来?使登录正确密码后对能使用它。 展开
 我来答
sunshinebean
2009-04-08 · TA获得超过304个赞
知道小有建树答主
回答量:189
采纳率:0%
帮助的人:271万
展开全部
比如你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
这个是最最简单的方法!也就是把密码帐号写进去!如果你要反汇编时不看到密码可以动态设置变量或者设置算法
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友42ed5ea5c
2009-04-08 · TA获得超过201个赞
知道答主
回答量:350
采纳率:100%
帮助的人:217万
展开全部
在你的form1建立一个text和command

在command1中放以下代码

if text1.text = "你自己设定的密码" then
form2.show
unload me
else
msgbox "密码输入错误!",16,"Error"
end if
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
mmx1122
2009-04-07 · TA获得超过2597个赞
知道小有建树答主
回答量:3142
采纳率:0%
帮助的人:1041万
展开全部
if 密码 正确 then
你的软件窗口显示
登陆窗口卸载
exit sub
else
msgbox "密码错误"
endif
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
菜鸟鸿
2009-04-07 · TA获得超过600个赞
知道小有建树答主
回答量:506
采纳率:0%
帮助的人:313万
展开全部
If 输入=你的密码 Then
Form2.Show
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友e28c80924
2009-04-07 · TA获得超过1013个赞
知道小有建树答主
回答量:451
采纳率:0%
帮助的人:497万
展开全部
密码正确后
可以
Form2.Show
Unload Form1
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式