精华内容
下载资源
问答
  • 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控件及源程序 可以用代码将多个限制类型用 OR 连接,这样就可以实现,只可用指定的几种组合。形式就不单一了,代码核心不够稳定,...则界面显示 "无",热键是即时生效的,设置成功,热键就可以使用了。
  • Java局域网通信——飞鸽传书源代码 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入门经典》的源代码及课后练习答案 对应的书籍资料见: Visual C++ 2005入门经典 基本信息 原书名: Ivor Horton's Beginning Visual C++ 2005 原出版社: Wiley 作者: (美)Ivor Horton...
  • vc++ 应用源码包_2

    2012-09-15 14:27:40
    MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件...
  • vc++ 应用源码包_1

    2012-09-15 14:22:12
    MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件...
  • vc++ 应用源码包_6

    2012-09-15 14:59:46
    MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件...
  • vc++ 应用源码包_5

    2012-09-15 14:45:16
    MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件...
  • vc++ 应用源码包_4

    2012-09-15 14:38:35
    MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件...
  • vc++ 应用源码包_3

    2012-09-15 14:33:15
    MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码,重载控件...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    MSN 仿真界面全部源代码 如题,非常好的界面设计实例,自绘控件的实现。 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:40
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
  • Pascal有Delphi、Basic有 VB、C++有 VC、C++Builder、Powerbuilder... 但是,为什么汇编语言就没有一个像样的集成开发环境呢?难道汇编注定要在DOS-Edit里面编辑,在命令行下编译链接吗?于是,萌发了制作这个软件的...
  • Pascal有Delphi、Basic有 VB、C++有 VC、C++Builder、Powerbuilder... 但是,为什么汇编语言就没有一个像样的集成开发环境呢?难道汇编注定要在DOS-Edit里面编辑,在命令行下编译链接吗?于是,萌发了制作这个软件...
  • 124,注册成功 125,失败 重点是122 步骤6 再次返回 w32dasm * Possible Reference to String Resource ID=00122: "?鲹e ?" 但是双击后 提示说找不到这个字串符 不是没有 是因为 "?鲹e ?"是乱码 w32dasm...
  • 该控件在使用的时候,必须经过注册,并且在运行时,客户端程序必须安装有VB运行时的动态连接库。 在运行时,用户端的计算机必须有鼠标或触摸板等点输入设备。 5.12测试计划 本模块的输入基本有鼠标点击来完成,不...
  • dx修复工具

    2019-01-15 21:51:20
    界面上的“检测并修复”按钮,程序就会自动完成校验、检测、下载、修复以及注册 的全部功能,无需用户的介入,大大降低了使用难度。 本程序适用于多个操作系统,如Windows XP(需先安装.NET 2.0,详情 请参阅...
  • 实例153 检查参数是否成功传递给用户自定义过程 实例154 使用递归过程实现阶乘运算 6.2 综合应用 实例155 制作改变窗体颜色的自定义过程 实例156 利用错误号获取错误名称 实例157 将汉字转换为Unicode字符代码...
  • 实例153 检查参数是否成功传递给用户自定义过程 实例154 使用递归过程实现阶乘运算 6.2 综合应用 实例155 制作改变窗体颜色的自定义过程 实例156 利用错误号获取错误名称 实例157 将汉字转换为Unicode字符代码...
  • “库文件名”以.lib或.obj为后缀的将被视为静态库,可使用绝对路径或相对路径(相对当前源代码所在目录),如依赖多个静态库请分别列出并以逗号分隔;“在库中的对应命令名”请务必准确填写静态库中公开导出的符号...
  • 利用输入法注入DLL

    2013-05-19 22:45:22
    件夹,其中服务输入法是VC写的,控制程序是VB的,代码都是有注释的。测试发现该方法能 过目前所有杀软,也能注入冰刃。当然缺点还是有的,就是目标程序如果不接受输入法那就 没办法了,但是现在一般的游戏都不会...
  • 3、组件的开发和使用很方便:如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...
  • 6.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驱动程序 ...
  • 进入后,你可以用方向键移动光标选择CMOS设置界面上的选项,然后按Enter进入副选单,用ESC键来返回上一级菜单,用PAGE UP和PAGE DOWN键来选择具体选项,F10键保留并退出BIOS设置。 1.STANDARD CMOS SETUP(标准...

空空如也

空空如也

1 2
收藏数 29
精华内容 11
关键字:

vb注册界面代码注册成功