VB编程实例

《VB编程实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、用VB编写一个密码解锁界面我也是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，是很富有创造性的电脑语言。下面是我看了两天书后编写的一个小程序：功能是能建立两个窗口，一个密码窗口，一个为修改密码窗口。当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改的密码为解锁密码。中间有错误提示和误操作提示。①先建立一个小窗口，如下图：帐号一的“textbox”编号为“text1”，后面一次类推，command指令为1。②程序的编写Text1：初始帐号为“07823”，如果

2、可以的话可以给加入更多的功能，比如记忆多个账户和多对密码之类的等等。2、text23、command1初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。4、command2跳往第二个界面，隐藏第一界面。5、初始指令6、全局变量全局变量本界面可以修改、其它界面可以调用的变量。②建立第二个窗口Text的序号从上到下依次顺序排列，command的命令一次从左到右排列③第二个窗口的程序编写1、Text1：PrivateSubText1_LostFocus()DimbAsIntegerDimpw

3、_1AsString,pw_2AsStringpw_2=Form1.mpw_1=Text1.TextIfpw_1<>pw_2Thenb=MsgBox("密码错误",5+vbExclamation,"错误提示")EndIfEndSub2、text2：PrivateSubText2_LostFocus()IfText2.Text=""ThenMsgBox"新密码不能为空"EndIfEndSub3、text3：PrivateSubText3_LostFocus()IfText2.Text<>Text3.TextT

4、henMsgBox"两次输入密码不一样"Text2.Text=""Text3.Text=""Text2.SetFocusEndIfEndSub4、command1：PrivateSubCommand1_Click()IfText2.Text=Text3.TextThenn=Text2.TextEndIfText1.Text=""Text2.Text=""Text3.Text=""Form1.ShowForm2.HideEndSub5、command2：PrivateSubCommand2_Click()Te

5、xt1.Text=""Text2.Text=""Text3.Text=""Form1.ShowForm2.HideEndSub初始设置（Form）PrivateSubForm_Load()Text1.PasswordChar="*"Text1.Text=""Text2.PasswordChar="*"Text2.Text=""Text3.PasswordChar="*"Text3.Text=""EndSub全局变量申明PublicnAsString