在VB中创建一个多表单应用程序

时间:2019-04-19 10:15 来源:365bet备用网址大陆 作者:admin

在VB中创建多表单应用程序
DimnAsIntegerPrivateSubCommand1_Click()文本1。
Enabled = TrueText1。
SetFocus的------是无用的过程调用或EndSubPrivateSubCommand2_Click()被调用的参数IfText1。
请先启用= FalseThenMsgBox。
DimnAsIntegerPrivateSubCommand1_Click()文本1。
Enabled = TrueText1。
SetFocus的------是无用的过程调用或EndSubPrivateSubCommand2_Click()被调用的参数IfText1。
Enabled = FalseThenMsgBox?首先使用“输入密码”功能。
Elseiftext1abcthenn = N + 1ifn = 3thenMsgBox 3单密码输入不正确,你没有登录的权利!
EndElseMsgBox + Str(n)+密码错误,请再试一次。
Text1 = Text1
SetFocusEndIfElseText1
有效= FalseText1 = Form1。
HideForm2。
ShowEndIfEndIfEndSub程序功能:1,当您单击窗体上的“输入密码”按钮,文本1文本框的激活性质为真,重点是收购。
2.输入密码后,点击“查询密码”按钮,在Form1窗体,在文本1中输入的内容,确保无论是“ABC”的小写字母。如果是这样,form1表单将消失并显示form2。如果你输入了错误的密码,系统会提示您重新输入。如果你犯了一个错误,而进入三个密码,您可以退出系统。
发展

回到顶部