-
vb界面设计(续)
2019-05-12 16:48:54输入完成后点击注册按钮则会显示注册成功字样 代码如下 Private Sub Text2_GotFocus() 'getfocus的用法不会的可以查百度 Label7.Caption = “密码的长度不得超过8位!” Text2.Locked = False End Sub Sub Text1_...#界面设计注册部分
点击注册后会显示
输入完成后点击注册按钮则会显示注册成功字样代码如下
Private Sub Text2_GotFocus() 'getfocus的用法不会的可以查百度
Label7.Caption = “密码的长度不得超过8位!”
Text2.Locked = False
End Sub
Sub Text1_KeyPress(KeyAscii As Integer)
Dim f%
f = 0
If KeyAscii = 13 Then
If IsNumeric(Text1) Then
Text1.text = “”
MsgBox (“姓名中不得包含数字!”)
Text1.SetFocus
f = 1
End If
If f = 0 And Text1.text = “” Then
Text1.text = “”
MsgBox (“请输入姓名!”)
End If
If f = 0 And Text1.text <> “” Then
Text2.SetFocus
End If
If Text1.text <> “” Then
Label7.Caption = “密码的长度不得超过8位!”
End If
End If
End Sub
Private Sub Text1_LostFocus()
If IsNumeric(Text1) Then
Text1.text = “”
MsgBox (“姓名中不得包含数字!”)
Text1.SetFocus
End If
If Text1.text = “” Then
Text1.text = “”
MsgBox (“请输入姓名!”)
Text1.SetFocus
End If
If Text1.text <> “” Then
Label7.Caption = “密码的长度不得超过8位!”
End If
End Sub
Sub Text2_KeyPress(KeyAscii As Integer)
Dim f%
f = 0
If KeyAscii = 13 Then
If Len(Text2.text) > 8 Then
MsgBox (“密码长度不得超过8位!”)
Text2.text = “”
f = 1
Text2.SetFocus
Label7.Caption = “密码的长度不得超过8位!”
End If
If f = 0 And Text2.text = “” And Text1.text <> “” Then
MsgBox (“请输入密码!”)
Text2.SetFocus
End If
If f = 0 And Text2.text <> “” Then
Text3.SetFocus
End If
End If
Label7.Caption = “”
End Sub
Private Sub Text2_LostFocus()
Dim f%
f = 0
If Len(Text2.text) > 8 Then
MsgBox (“密码长度不得超过8位!”)
Text2.text = “”
f = 1
Text2.SetFocus
End If
If Text2.text = “” And Text1.text <> “” And f = 0 Then
MsgBox (“请输入密码!”)
Text2.SetFocus
End If
Label7.Caption = “”
End Sub
Sub Text3_KeyPress(KeyAscii As Integer)
Dim f%
f = 0
If KeyAscii = 13 Then
If Text3.text <> Text2.text And Text2.text <> “” And Text3.text <> “” Then
MsgBox (“第二次输入的密码不正确!”)
Text3.text = “”
f = 1
End If
If f = 0 And Text3.text = “” And Text2.text <> “” And Text1.text <> “” Then
MsgBox (“请再次输入密码!”)
End If
If f = 0 And Text3.text <> “” Then
Text4.SetFocus
End If
End If
End Sub
Private Sub Text3_LostFocus()
Dim f%
f = 0
If Text3.text <> Text2.text And Text2.text <> “” And Text3.text <> “” Then
MsgBox (“第二次输入的密码不正确!”)
Text3.text = “”
f = 1
End If
If Text3.text = “” And Text1.text <> “” And Text2.text <> “” And f = 0 Then
Text3.text = “”
MsgBox (“请再次输入密码!”)
End If
End Sub
Sub Text4_KeyPress(KeyAscii As Integer)
Dim f%
f = 0
If KeyAscii = 13 Then
If Text4.text = “” And Text1.text <> “” And Text2.text <> “” And Text3.text <> “” Then
MsgBox (“请输入手机号!”)
f = 1
Text4.SetFocus
End If
If f = 0 And Text1.text <> “” And Text2.text <> “” And Text3.text <> “” Then
Text5.SetFocus
End If
End If
End Sub
Private Sub Text4_LostFocus()
If Text4.text = “” And Text1.text <> “” And Text2.text <> “” And Text3.text <> “” Then
MsgBox (“请输入手机号!”)
Text4.text = “”
Text4.SetFocus
End If
End Sub
'Sub Text5_KeyPress(KeyAscii As Integer)
’ Dim f%
’ f = 0
’ If KeyAscii = 13 Then
’ If Text5.Text = “” And Text1.Text <> “” And Text2.Text <> “” And Text3.Text <> “” And Text4.Text <> “” Then
’ MsgBox (“请输入邮箱!”)
’ f = 1
’ Text5.SetFocus
’ End If
’ If f = 0 And Text1.Text <> “” And Text2.Text <> “” And Text3.Text <> “” And Text4.Text <> “” Then
’ Command1.SetFocus
’ End If
’ End If
'End Sub
Private Sub Timer1_Timer()
Label8.Caption = Now()
End Sub -
vb学生成绩管理系统
2013-06-28 08:55:24二、界面设计 1.创建工程 新建一“标准EXE”工程.工程名为“成绩查询”. 2.创建主窗体(frmMain)-MDI主窗体 设计菜单: 增加 删除 修改 查询 退出 增加学生记录 删除学生记录 修改成绩 增加课程... -
很不错的VB热键HOOK控件及源程序
2010-03-08 09:41:29很不错的VB热键HOOK控件及源程序 可以用代码将多个限制类型用 OR 连接,这样就可以实现,只可用指定的几种组合。形式就不单一了,代码核心不够稳定,...则界面显示 "无",热键是即时生效的,设置成功,热键就可以使用了。 -
JAVA上百实例源码以及开源项目源代码
2018-12-11 17:07:42Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java... -
Java开发技术大全(500个源代码).
2012-12-02 19:55:48代码范例列表 第1章 示例描述:本章演示如何开始使用JDK进行程序的开发。 HelloWorldApp.java 第一个用Java开发的应用程序。 firstApplet.java 第一个用Java开发的Applet小程序。 firstApplet.htm 用来装载... -
Visual C++ 2005入门经典--源代码及课后练习答案
2013-02-02 16:42:04该资料是《Visual C++ 2005入门经典》的源代码及课后练习答案 对应的书籍资料见: Visual C++ 2005入门经典 基本信息 原书名: Ivor Horton's Beginning Visual C++ 2005 原出版社: Wiley 作者: (美)Ivor Horton... -
vc++ 应用源码包_2
2012-09-15 14:27:40MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件... -
vc++ 应用源码包_1
2012-09-15 14:22:12MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件... -
vc++ 应用源码包_6
2012-09-15 14:59:46MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件... -
vc++ 应用源码包_5
2012-09-15 14:45:16MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件... -
vc++ 应用源码包_4
2012-09-15 14:38:35MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件... -
vc++ 应用源码包_3
2012-09-15 14:33:15MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件... -
vc++ 开发实例源码包
2014-12-16 11:25:17MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件... -
DIrectX老版本
2019-01-04 16:21:44点击“实验室”选项卡可以开启实验功能:C++强力修复功能,通过全新的代码设计,彻底改善对于顽固异常文件的处理,极大提高修复成功率。API Sets强力修复功能,参照了DirectX文件的精细修复方式,极大地改善了修复... -
JAVA上百实例源码以及开源项目
2016-01-03 17:37:40Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和... -
汇编语言集成开发工具
2009-07-27 16:43:07Pascal有Delphi、Basic有 VB、C++有 VC、C++Builder、Powerbuilder... 但是,为什么汇编语言就没有一个像样的集成开发环境呢?难道汇编注定要在DOS-Edit里面编辑,在命令行下编译链接吗?于是,萌发了制作这个软件的... -
关于汇编语言集成开发工具VisualASM 1.0
2010-05-03 23:52:26Pascal有Delphi、Basic有 VB、C++有 VC、C++Builder、Powerbuilder... 但是,为什么汇编语言就没有一个像样的集成开发环境呢?难道汇编注定要在DOS-Edit里面编辑,在命令行下编译链接吗?于是,萌发了制作这个软件... -
exe文件脱壳步骤txt下载
2009-01-07 10:16:49124,注册成功 125,失败 重点是122 步骤6 再次返回 w32dasm * Possible Reference to String Resource ID=00122: "?鲹e ?" 但是双击后 提示说找不到这个字串符 不是没有 是因为 "?鲹e ?"是乱码 w32dasm... -
高校医务收费系统数据库设计说明书
2010-01-27 11:46:04该控件在使用的时候,必须经过注册,并且在运行时,客户端程序必须安装有VB运行时的动态连接库。 在运行时,用户端的计算机必须有鼠标或触摸板等点输入设备。 5.12测试计划 本模块的输入基本有鼠标点击来完成,不... -
dx修复工具
2019-01-15 21:51:20主界面上的“检测并修复”按钮,程序就会自动完成校验、检测、下载、修复以及注册 的全部功能,无需用户的介入,大大降低了使用难度。 本程序适用于多个操作系统,如Windows XP(需先安装.NET 2.0,详情 请参阅... -
Visual Basic开发实战1200例(第Ⅰ卷).(清华出版.孙秀梅.巩建华).part2
2016-06-14 11:23:42实例153 检查参数是否成功传递给用户自定义过程 实例154 使用递归过程实现阶乘运算 6.2 综合应用 实例155 制作改变窗体颜色的自定义过程 实例156 利用错误号获取错误名称 实例157 将汉字转换为Unicode字符代码... -
Visual Basic开发实战1200例(第Ⅰ卷).(清华出版.孙秀梅.巩建华).part1
2016-06-14 11:19:42实例153 检查参数是否成功传递给用户自定义过程 实例154 使用递归过程实现阶乘运算 6.2 综合应用 实例155 制作改变窗体颜色的自定义过程 实例156 利用错误号获取错误名称 实例157 将汉字转换为Unicode字符代码... -
易语言程序免安装版下载
2011-04-07 09:28:50“库文件名”以.lib或.obj为后缀的将被视为静态库,可使用绝对路径或相对路径(相对当前源代码所在目录),如依赖多个静态库请分别列出并以逗号分隔;“在库中的对应命令名”请务必准确填写静态库中公开导出的符号... -
利用输入法注入DLL
2013-05-19 22:45:22件夹,其中服务输入法是VC写的,控制程序是VB的,代码都是有注释的。测试发现该方法能 过目前所有杀软,也能注入冰刃。当然缺点还是有的,就是目标程序如果不接受输入法那就 没办法了,但是现在一般的游戏都不会... -
基于J2EE框架的个人博客系统项目毕业设计论文(源码和论文)
2011-03-12 10:44:333、组件的开发和使用很方便:如ASP的组件是由C++,VB等语言开发的,并需要注册才能使用;而JSP的组件是用Java开发的,可以直接使用; 4、一次编写,处处运行:作为JAVA开发平台的一部分,JSP具有JAVA的所有优点,... -
asp.net知识库
2015-06-18 08:45:45实现C#和VB.net之间的相互转换 深入剖析ASP.NET组件设计]一书第三章关于ASP.NET运行原理讲述的补白 asp.net 运行机制初探(httpModule加载) 利用反射来查看对象中的私有变量 关于反射中创建类型实例的两种方法 ASP... -
软件工程工资管理系统
2009-07-01 11:34:036.3.3主要代码分析 14 }7.系统测试方案和测试报告 21 7.1测试方案 21 7.2测试过程 21 7.2.1登陆测试 21 8.安装和使用说明 25 8.1安装说明 25 8.1.1安装VB6.0E 25 8.1.2安装Microsoft SQL Server 2000 ODBC驱动程序 ... -
计算机应用技术(实用手册)
2011-07-29 16:32:16进入后,你可以用方向键移动光标选择CMOS设置界面上的选项,然后按Enter进入副选单,用ESC键来返回上一级菜单,用PAGE UP和PAGE DOWN键来选择具体选项,F10键保留并退出BIOS设置。 1.STANDARD CMOS SETUP(标准...