VB编程实例

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

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

下面是我看了两天书后编写的一个小程序：

功能是能建立两个窗口，一个密码窗口，一个为修改密码窗口。当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改的密码为解锁密码。中间有错误提示和误操作提示。

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

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

②程序的编写

Text1：

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

2、text2

3、command1

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

4、command2

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

5、初始指令

6、全局变量

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

②建立第二个窗口

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

③第二个窗口的程序编写

1、Text1：

Private Sub Text1_LostFocus()

Dim b As Integer

Dim pw_1 As String, pw_2 As String

pw_2 = Form1.m

pw_1 = Text1.Text

If pw_1 <> pw_2 Then

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

End If

End Sub

2、text2：

Private Sub Text2_LostFocus()

If Text2.Text = "" Then

MsgBox "新密码不能为空"

End If

End Sub

3、text3：

Private Sub Text3_LostFocus()

If Text2.Text <> Text3.Text Then

MsgBox "两次输入密码不一样"

Text2.Text = ""

Text3.Text = ""

Text2.SetFocus

End If

End Sub

4、command1：

Private Sub Command1_Click() If Text2.Text = Text3.Text Then n = Text2.Text

End If

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Form1.Show

Form2.Hide

End Sub

5、command2：

Private Sub Command2_Click() Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Form1.Show

Form2.Hide

End Sub

初始设置（Form）

Private Sub Form_Load()

Text1.PasswordChar = "*" Text1.Text = ""

Text2.PasswordChar = "*" Text2.Text = ""

Text3.PasswordChar = "*" Text3.Text = ""

End Sub

全局变量申明

Public n As String