VB编程实例.doc_第1页
VB编程实例.doc_第2页
VB编程实例.doc_第3页
VB编程实例.doc_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

用VB编写一个密码解锁界面我也是刚开始学VB语言，VB语言很强大，有别于其它语言，操作性很强，是很富有创造性的电脑语言。下面是我看了两天书后编写的一个小程序：功能是能建立两个窗口，一个密码窗口，一个为修改密码窗口。当密码输入正确后才能打开或者做一些事情，点击修改密码跳往第二个界面，修改成功后以修改的密码为解锁密码。中间有错误提示和误操作提示。先建立一个小窗口，如下图：帐号一的“textbox”编号为“text1”，后面一次类推，command指令为1。程序的编写Text1：初始帐号为“07823”，如果可以的话可以给加入更多的功能，比如记忆多个账户和多对密码之类的等等。2、text23、command1初始密码为“1234”，open函数可以打开文件，自己可以设置文件路径。4、command2跳往第二个界面，隐藏第一界面。5、初始指令6、全局变量全局变量本界面可以修改、其它界面可以调用的变量。建立第二个窗口Text的序号从上到下依次顺序排列，command的命令一次从左到右排列第二个窗口的程序编写1、Text1：Private Sub Text1_LostFocus()Dim b As IntegerDim pw_1 As String, pw_2 As String pw_2 = Form1.mpw_1 = Text1.TextIf pw_1 pw_2 Thenb = MsgBox(密码错误, 5 + vbExclamation, 错误提示)End If End Sub2、text2：Private Sub Text2_LostFocus()If Text2.Text = ThenMsgBox 新密码不能为空End IfEnd Sub3、text3：Private Sub Text3_LostFocus()If Text2.Text Text3.Text ThenMsgBox 两次输入密码不一样Text2.Text = Text3.Text = Text2.SetFocusEnd IfEnd Sub4、command1：Private Sub Command1_Click()If Text2.Text = Text3.Text Thenn = Text2.TextEnd IfText1.Text = Text2.Text = Text3.Text = Form1.ShowForm2.HideEnd Sub5、command2：Private Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Form1.ShowForm2.HideEnd Sub初始设置（Form）Private Sub Form_Load()Text1.PasswordChar = *Text1.Text = Text2.PasswordChar = *Text2.Text = Te
人人文库> 全部分类> 行业资料 > 管理策划

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论