用VB编写一个密码解锁界面.pdf

用VB编写一个密码解锁界面

我也就是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，就是很富有创造

性得电脑语言。

下面就是我瞧了两天书后编写得一个小程序：

功能就是能建立两个窗口，一个密码窗口，一个为修改密码窗口。当密码输入正确后才能打开

或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改得密码为解锁密码。中间

有错误提示与误操作提示。

①先建立一个小窗口，如下图：

帐号一得“textbox”编号为“text1”，后面一次类推，command指令为1。

②程序得编写

Text1：

初始帐号为“07823”，如果可以得话可以给加入更多得功能，比如记忆多个账户与多对密码之

类得等等。

2、text2

3、command1

初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。

4、command2

跳往第二个界面，隐藏第一界面。

5、初始指令

6、全局变量

全局变量本界面可以修改、其它界面可以调用得变量。

②建立第二个窗口

Text得序号从上到下依次顺序排列，command得命令一次从左到右排列

③第二个窗口得程序编写

1、Text1：

PrivateSubText1_LostFocus()

DimbAsInteger

Dimpw_1AsString,pw_2AsString

pw_2=Form1、m

pw_1=Text1、Text

Ifpw_1pw_2Then

b=MsgBox(密码错误,5+vbExclamation,错误提示)

EndIf

EndSub

2、text2：

PrivateSubText2_LostFocus()

IfText2、Text=Then

MsgBox新密码不能为空

EndIf

EndSub

3、text3：

PrivateSubText3_LostFocus()

IfText2、TextText3、TextThen

MsgBox两次输入密码不一样

Text2、Text=

Text3、Text=

Text2、SetFocus

EndIf

EndSub

4、command1：

PrivateSubCommand1_Click()

IfText2、Text=Text3、TextThen

n=Text2、Text

EndIf

Text1、Text=

Text2、Text=

Text3、Text=

Form1、Show

Form2、Hide

EndSub

5、command2：

PrivateSubCommand2_Click()

Text1、Text=

Text2、Text=

Text3、Text=

Form1、Show

Form2、Hide

EndSub

初始设置（Form）

PrivateSubForm_Load()

Text1、PasswordChar=*

Text1、Text=

Text2、PasswordChar=*

Text2、Text=

Text3、PasswordChar=*

Text3、Text=

EndSub

全局变量申明

PublicnAsString