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

用 VB 编写一个密码解锁界面我也就是刚开头学 用 VB 编写一个密码解锁界面 我也就是刚开头学 VB 语言， VB 语言很强大，有别于其它语言，操作性很强，就是很富有制造 性得电脑语言； 下面就是我瞧了两天书后编写得一个小程序： 功能就是能建立两个窗口，一个密码窗口，一个为修改密码窗口；当密码输入正确后才能打开或者做一些事情，点击修改密码跳往其次个界面，修改胜利后以修改得密码为解锁密码；中间有错误提示与误操作提示； ①先建立一个小窗口，如下图： 帐号一得“ textbox ”编号为“ ②程序得编写 Text1： text1 ”，后面一次类推， command 指令为 1； 初始帐号为“ 07823”，假如可以得话可以给加入更多得功能，比如记忆多个账户与多对密码之 类得等等； 2、text23、command1初始密码为“ 2、text2 3、command1 初始密码为“ 1234 ”， open 函数可以打开文件，自己可以设置文件路径； 4、command2 跳往其次个界面，隐匿第一界面； 5、初始指令 6、全局变量 全局变量本界面可以修改、其它界面可以调用得变量； ②建立其次个窗口Text 得序号从上到下依次次序排列，③其次 ②建立其次个窗口 Text 得序号从上到下依次次序排列， ③其次个窗口得程序编写 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 command 得命令一次从左到右排列 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 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