VisualBasic6.0程序设计案例教程(上)ppt.ppt

VisualBasic6 0程序设计案例教程 上 本课程以VB6 0为语言背景VisualBasic 简称VB 是Microsoft公司开发的一种通用的面向对象的程序设计语言 用于开发Windows环境下的应用程序 Visual 指的是开发图形用户界面 GUI 的方法 Basic 指的是BASIC BeginnersAll PurposeSymbolicInstructionCode 语言 一种在计算技术发展历史上应用得最为广泛的语言 VisualBasicScriptingEdition VBScript 是广泛使用的脚本语言 它是VisualBasic语言的子集 可嵌入HTML语言中 用于网页设计 如ASP ActiveServerPage 文件 VB程序设计 课程介绍 1 C及C 系列 C C C Builder VC VC Net 2 Basic系列 QBASIC VB VB Net3 数据库管理系统VisualFoxPro PowerBuilder Oracle等4 Java Sun公司研制 开发网络应用软件 从C发展而来5 Net 微软公司研制支持Web服务的软件开发环境 采用分布式计算技术 包含ASP Net ADO Net VC Net VB Net等Net2002中核心语言是C C 综合了C 和Java的优点Net2003中核心语言是J J 类似于C 和Java 程序语言发展的现状 目前世界上有两大主流软件一是Java 二是Net 关于VB VB是从原有的BASIC发展起来的 它的语法简单 但功能强大 目前可供选择的程序设计语言很多 如C Java等 但不可否认的是 VB是目前最通用 最易于使用的编程语言之一 虽然有些人 看不起 Basic语言 但要知道Microsoft公司当初是从Basic语言起家的 微软公司总裁BillGates曾经这样说过 如果您有任何解决不了的问题 都可以给我拿来 我都可以用Basic来解决 微软公司始终对Basic充满信心 打算将Basic一直发展下去 关于VB 当Windows操作系统问世不久 人们在开发Windows应用程序时遇到了很大困难时 就是VB改变了这种状况 微软公司总裁比尔 盖茨说 VB1 0是 用Basic语言开发Windows应用程序最强有力的工具 令人震惊的新奇迹 VB发展历程 1991年推出VB1 01992年推出VB2 01993年推出VB3 01995年推出VB4 01997年推出VB5 01998年推出VB6 02002年推出VB NET7 0 教学目的 教学内容 工具性 掌握一种计算机开发工具 以解决实际问题基础性 为以后学习计算机应用课程 结合专业 打下良好的基础抽象性和逻辑性 培养抽象 逻辑思维能力提高计算机的应用能力 VB程序设计 课程介绍 教学目的 教学内容 VB程序设计 课程介绍 学习方法 VB程序设计课是一门实践性很强的课程 要多练 并要善于模仿 认识VB 认识VisualBasic 学习一门程序设计语言 首先要了解其特点和开发环境 VB作为一种新型的面向对象程序设计语言 其设计思想和编程方法与传统编程语言有着重大差别 第一章VisualBasic的基本概念 1 1VisualBasic简介1 2VB集成开发环境介绍1 3VB程序设计中的一些基本概念1 4窗体和基本控件1 5VB应用程序的工作方式及创建应用程序的步骤1 6案例一 文本信息复制 1 7案例实训 1 1程序设计语言 1 三种程序设计语言要利用计算机来解决问题 就必须采用程序设计语言来编制程序 程序设计语言大致有三类 机器语言 汇编语言 高级语言 机器语言00111110000110101111111000100100 汇编语言LDA 26ADDA 36OUT 48 AHALT 高级语言LETA 26 36PRINTAEND 2 高级语言的两种翻译方式 计算机不能直接识别和处理高级语言一般采用两种翻译方式 一是编译方式 二是解释方式 它们所采用的翻译程序分别称为编译程序和解释程序VB采用上述两种翻译方式 通常情况下 学习阶段采用解释方式 应用阶段采用编译方式 3 面向过程和面向对象 两种程序设计方法 1 面向过程程序设计 传统方法 以解决问题的过程作为程序的基础和重点数据和过程分离执行程序的流程是预先安排好的 2 面向对象程序设计模仿人们在客观世界中对事物分类的自然倾向 把问题分解为对象而非过程 符合人们的习惯的思维方式把程序和数据 封装 起来成为一个对象 并从相同类型的对象中抽象出一种新型的数据结构 类 如模型与成品 类具有封装性 继承性和多态性 有利于提高程序的可重用性和可维护性 1 2VB概述 1 VB的发展过程基本BASIC 结构化BASIC 可视化BASIC 网络化BASIC VB Net 2 VB的特点1 面向对象的可视化编程把程序和数据 封装 起来成为一个对象 每个对象都是可视的 从VB工具箱中选用控件 即现成部件 如文本框 命令按钮等 构成应用程序的用户界面 2 事件驱动的编程机制传统的程序设计语言面向过程 VB语言面向对象通过事件来触发执行相应的事件过程 事件驱动 从而执行对象的操作和达到运算 处理的目的 3 结构化的设计语言4 友好的VB集成开发环境 1 2VB概述 3 VB6 0的新特性 1 数据访问的新特性2 Internet功能的增强3 控件 语言和向导方面的新增特性a DataGrid DataList DataCombo等新增的数据控件 它们都支持新的ADO控件 使VB数据库操作更加灵活 方便 b 可以创建自己的数据源和数据绑定对象 c 函数可以将数组作为返回值 并且可以为可变大小的数组赋值 d 安装向导 数据对象向导 数据窗体向导以及应用程序向导 这些新增的向导及功能增强的向导 可以使开发人员能设计出更优秀的应用程序 4 创建ActiveX控件更加轻松方便5 在线帮助更加完善 1 启动VB按运行一般应用程序的方法来启动它 创建一个默认的 标准EXE 类型的VB应用程序 新建工程 对话框VB集成开发环境2 退出VB 4 VB的启动和关闭 1 3VB的集成开发环境 集VB程序的设计 编辑 编译和调试于一体 集中提供程序开发所需要的各种工具 窗口和方法 1 主窗口由标题栏 菜单栏和工具栏组成 VB工作状态 模式 标题栏总显示当前模式 设计模式 创建应用程序的大多数工作都是在设计时完成的 在设计时 可以设计窗体 绘制控件 编写代码并使用 属性 窗口来设置或查看属性设置值 运行模式 代码正在运行的时期 用户可与应用程序交流 可查看代码 但不能改动它 中断模式 程序在运行的中途被停止执行时 在中断模式下 用户可查看各变量及不是属性的当前值 从而了解程序执行是否正常 在此模式下会弹出 立即 窗口 在窗口中输入简短的命令 并立即执行 窗体设计器 工具箱 工程资源管理器 对象属性窗口 查看对象 查看代码 2 工具箱和控件 VB工具箱中包含了各种VB标准控件 包含一个指针和20个标准控件 控件就像盖房子使用的门 窗 砖瓦等 都是现成部件 只要到现场组合就可以了 1 在窗体上添加一个控件2 控件的缩放 移动 复制和删除3 选定多个控件4 控件的布局 工具箱 3窗体编辑器窗口 设计应用程序的用户界面 设计窗体的外观 添加控件 图形 移动控件 改变大小等 4 工程管理窗口 工程是指用于创建一个应用程序的文件的集合 工程管理窗口管理当前工程中的窗体和各种模块在工程管理窗口有3个按钮 单击 查看代码 按钮 可打开 代码编辑器窗口 查看代码 单击 查看对象 按钮 可打开 窗体设计器查看 查看正在设计的窗体 单击 切换文件夹 按钮 则可以隐藏或显示包含在对象文件夹中个别项目列表 工程的管理 VB是通过工程 Project 也称为项目 来管理应用程序中的所有不同文件的 1 工程中的文件 常用 工程文件 vbp窗体文件 frm标准模块文件 bas2 创建 打开 保存和关闭工程说明 一个应用程序可以包括多个工程 但对于初学者来说 一般只需用到单个工程 因此通常不必执行 添加工程 命令 3 添加 删除和保存文件 4生成可执行文件两种运行程序的方式 解释方式 编译方式执行 文件 菜单中的 生成 exe 命令示例 1 将示例1的应用程序 编译 成可执行文件 然后进入Windows环境 直接运行该程序文件 2 分别采用解释方式和编译方式运行 时钟 程序 实例2 示例1 5 属性窗口 用于列出所选定窗体或控件的属性设置值 并允许用户设置或修改 属性是指对象的特征 如大小 标题或颜色等数据 这些属性值将作为程序运行时各对象属性的初始值 1 对象列表框 2 排序方式选项卡 3 属性列表框 4 属性解释区 6 代码编辑窗口 用来编辑程序代码 在设计模式中 通过双击窗体或窗体上任何对象或通过 工程管理器 窗口中的 查看代码 按钮来打开如图所示代码编辑器窗口 各种事件过程 用户自定义过程等源程序代码的编写和修改均在此窗口中进行 7 立即窗口 在VB集成环境IDE中 运行 视图 立即窗口 命令或按下 Ctrl G 组合键即可打开立即窗口 立即窗口是VB所提供的一个系统对象 在设计状态时可以在立即窗口中进行一些简单的命令操作 如变量赋值或用 或Print 两者等价 输出一些表达式的值 如图1 8所示 8 窗体布局窗口 显示窗体在屏幕中的位置 调整窗体的位置 1 4对象和事件的基本概念 1 对象与类1 对象对象是现实世界中的实体 可以是具体的事物 也可以是抽象的事物 如一个人 一台计算机 一辆车等都是对象 一份帐单 一张表格也是对象 每个对象都有自己的特征 行为和发生在该对象上的一切活动 例如把某个 人 作为对象 该对象具有身高 肤色 体重 视力等特征 具有跑步 说话 吃饭等行为 以及外界作用在 人 上的各种活动 如起床铃声 高考发榜等 在面向对象程序设计中把对象的特征称为属性 对象的行为称为方法 对象的活动称为事件 这构成了对象的三要素 对象是构成VB程序的基本成分和核心 对象是VB系统中的基本运行实体 如窗体 Form 标签 Label 文本框 TextBox 命令按钮 CommandButton 等 对象是一组程序代码和数据的集合 2 类类是同种对象的集合与抽象 是一个整体概念 也是创建对象实例的模板 对象是类的实例化 类与对象是面向对象程序设计语言的基础 以 汽车 为例 说明类与对象的关系 汽车是一个笼统的名称 是整体概念 我们把汽车看成一个 类 一辆辆具体的汽车 比如你的汽车 就是这个类的实例 也就是这个类的对象 实际上 工具箱的各种控件就是控件类 当在窗体上放置一个控件时 就将类转换为对象 既创建了一个控件对象 简称为控件 如图1 9所示类与对象关系 3 VB中对象的建立和命名对象的建立方法一 单击工具箱控件对象 然后在窗体上按住左键拖拉到所需要的大小后释放 方法二 双击工具箱控件对象 则立即在窗体出现一个默认大小的对象框 对象的命名每一个对象都有有自己的名字 每个窗体 控件对象在建立时VB系统给出了一个默认名 用户可通过属性窗口设置 名称 来给对象命名 命名的原则 1 必须由字母或汉字开头 随后可以是字母 汉字 数字 下划线 最好不用 串组成 2 长度 255个字符 2 对象的属性 事件与方法1 属性 Property 对象中的数据就保存在属性中 所有对象都有各自的属性 它们是用来描述和反映对象特征的参数 例如 控件名称 Name 标题 Caption 颜色 Color 字体 FontName 等属性决定了对象展现给用户的界面具有什么样的外观及功能 对象属性设置的方法 方法一 在设计模式下 通过属性窗口直接设置对象的属性 方法二 在程序的代码中通过赋值实现 动态修改 对象 属性 属性值例如 给一个对象名为 cmdDisp 的命令按钮 Caption 属性赋值字符串 你好 其在程序代码中的书写格式为 cmdDisp Caption 你好 设置标签的标题 2 事件 事件过程及事件驱动 1 事件对于对象而言 事件就是发生在该对象上的行为 每个对象都有一系列由系统预先设置好的 能被对象识别的动作 例如 鼠标的移动 MouseMove 单击 Click 和双击 DblClick 改变 Change 等 每一种对象能识别的事件是不同的 2 事件过程当在对象上发生了事件后 应用程序就要处理这个事件 而处理的步骤就是事件过程 事件过程的形式如下 Sub对象名 事件名 参数列表 处理事件的程序代码 EndSub例如 单击名为 cmdHide 的命令按钮 使命令按钮不可见 则对应的事件过程如下SubcmdHide Click CmdHide Visible FalseEndSub 3 事件驱动 当某个事件 一般由用户操作来触发 发生时 系统就会自动执行此事件的事件过程 由事件控制整个程序的执行流程事件过程要经过事件的触发才能被执行 这种工作模式称为事件驱动方式 示例 命令按钮Command1的单击 Click 事件过程为 PrivateSubCommand1 Click Forml Caption 在窗体上画圆 以圆心 2400 1500 半径为800画圆Forml Circle 2400 1500 800EndSub 示例1 设计界面 运行界面 对象 命令按钮 事件驱动运行时单击命令按钮 即触发了Click事件 系统就会自动执行事件过程Command1 Click中的程序代码 程序代码 事件过程 3 方法方法是对象能够执行的动作 它是对象本身内含的函数或过程 用于完成某种特定的功能一般格式 对象名 方法名 参数 示例 Form1 Cls 消除窗体Form1上的内容Form1 Print VisualBasic6 0 在当前窗体上显示若当前窗体是Form1 则可写为 Print VisualBasic6 0 如省略对象 表示为当前对象 一般指窗体 1 5窗体和基本控件 1 窗体窗体是VB编程中最常用的对象 它就像一块 画布 是所有控件的容器 实例1 1 编程要求 在窗体Form1被加载时 将其大小设置为屏幕大小的60 并居中显示 通过窗体的Load事件来实现的程序代码为 PrivateSubForm Load Form1 Width Screen Width 0 6 设置窗体的宽度Form1 Height Screen Height 0 6 设置窗体的高度Form1 Left Screen Width Form1 Width 2 在水平方向上居中显示Form1 Top Screen Height Form1 Height 2 在垂直方向上居中显示EndSub 常用属性 1 Name属性 表示控件名称 在VB中任何对象都有的属性 2 Caption标题属性 决定了在窗体上显示的文本内容 3 Font属性 改变文本的外观 其中 FontName属性是字符型 决定对象上正文的字体 缺省为宋体 FontSize属性是整型 决定对象上正文的字体大小 FontBold属性是逻辑型 决定对象上正文是否是粗体 FontItalic属性是逻辑型 决定对象上正文是否是斜体 FontStrikeThru属性是逻辑型 决定对象上正文是否加一删除线 FontUnderLine属性是逻辑型 决定对象上正文是否带下划线 4 Enabled属性 用于确定一个窗体或控件是否能够对用户产生的事件作出反应 该属性是逻辑值 True 允许用户进行操作 并对操作出响应 缺省值 False 呈暗淡色 禁止用户进行操作 注 如果使窗体或其他 容器 对象无效 那么在其中的所有控件也无效 5 Visible属性 决定窗体或控件是否可见 True 运行时控件可见 缺省值 False 运行时控件隐藏 用户看不到 但控件本身是存在的 6 BackColor属性和ForeColor属性BackColor属性用于返回或设置对象的背景颜色 ForeColor属性用于返回或设置在对象里显示图片和文本的前景颜色 在程序运行中设置颜色的话 可以使用RGB或QBColor函数指定颜色例如 将窗体Form1的背景色设置为红色 则可使用 Form1 backcolor RGB 255 0 0 或Form1 backcolor QBColor 4 Form1 BackColor vbRed 7 BorderStyle边框风格属性 可以控制窗体如何调整大小 它可取以下6种值 0 None 无边框 1 FixedSingle 单线边框 不可以改变窗口大小 2 Sizable 双线边框 可以改变窗口大小 3 FixedDouble 双线框架 不可以改变窗口大小 4 FixedToolWindow 窗体外观与工具条相似 有关闭按钮 不可以改变窗口大小 5 SizableToolWindow 窗体外观与工具条相似 有关闭按钮 可以改变窗口大小 2 事件 窗体事件是窗体识别的动作 窗体最常用的事件如下 1 Click DblClick事件 单击 双击窗体触发 2 Load事件 窗体被装入时触发的事件 该事件通常用来在启动应用程序时对属性和变量进行初始化 3 Unload事件 卸载窗体时触发该事件 4 Resize事件无论是因为用户交互 还是通过代码调整窗体的大小 都会触发一个Resize事件 3 方法 窗体常用的方法有打印输出Print 移动Move 清除Cls 显示Show 隐藏Hide等方法 方法的使用的形式 对象 方法 参数 注 省略对象默认为窗体 1 print方法格式 对象 Print Spc n Tab n 表达式列表 作用 在对象上输出文本信息 参数说明 对象 窗体 图形框或打印机 Pinter 省略对象在窗体上输出 Spc n 函数 在输出表达式前插入n个空格 允许重复使用 Tab n 函数 用于将指定表达式的值从第n列开始输出 允许重复使用 分号 光标定位上一个显示的字符后 逗号 光标定位在下一个打印区的开始位置处 每个打印区占14列 无 换行 实例1 2 在窗体Form1的单击事件中写入如下代码 PrivateSubForm Click a 10 b 3 14 c 100Print a a b bPrint a a b bPrint a a b bPrint 空一行Print a a b bPrint a a Tab 20 b b 从第20列开始打印输出b Print a a Spc 20 b b 输出a值后 插入20个空后输出b PrintPrint a a b bPrintTab 20 a a b b 从第20列开始打印输出PrintSpc 20 a a b b 空20列从21列开始打印输出EndSub 2 Cls方法格式 对象 Cls作用 清除运行时在窗体或图形框中显示的文本或图形 注意 Cls方法不能清除在设计时的文本和图形 清屏后坐标当前回到原点 例 Form1 Cls说明 使用Cls方法后 对象的当前坐标为 0 0 3 Move方法格式 对象 Moveleft top width height 作用 移动窗体或控件 并可改变其大小 对象 可以是窗体及除时钟 菜单外的所有可视控件 省略代表窗体 Left top width height 数值表达式 以twip为单位 分别用来表示窗体相对于屏幕左边缘的水平坐标 相对于屏幕顶部的垂直坐标 窗体的新宽度和新高度 4 Show 显示 方法Show方法用于在屏幕上显示一个窗体 调用Show方法与设置窗体Visible属性为True具有相同的所用 5 Hide 隐藏 方法Hide方法用于使指定的窗体不显示 但不从内存中删除窗体 实例1 3 实现将指定的窗体在屏幕上显示或隐藏的切换 设窗体名称为Form1 程序代码如下 PrivateSubForm Click Form1 Hide 隐藏窗体MsgBox 单击确定按钮 使窗体重现屏幕 显示信息Forml Show 重现窗体EndSub 1 5窗体和基本控件 2 标签控件标签 Lable 主要是用来显示文本信息 而不能输入信息 标签控件的内容只能用Caption属性来设置 不能直接编辑 基本属性Name Height Width Top Left Enabled Visible Font ForeColor BackColor等与窗体的对应属性的使用相同 其它属性 1 Caption属性Caption属性用来改变Label控件中显示的文本 Caption属性允许文本的长度最多为1024字节 缺省情况下 当文本超过控件宽度时 文本会自动换行 而当文本超过控件高度时 超出部分将被裁剪掉 2 Alignment属性设置Caption属性中文本的对齐方式 共有三种可选值 0左对齐 LeftJustify 1右对齐 RightJustify 2居中对齐 CenterJustify 3 BackStyle属性该属性用于确定标签的背景是否透明 有两种情况可选 值为0时 表示背景透明 标签后的背景和图形可见 值为1时 表示不透明 标签后的背景和图形不可见 4 AutoSize属性AutoSize属性确定标签是否会随标题内容的多少自动变化 如果值为True 则随Caption内容的大小自动调整控件本身的大小 且不换行 如果值为False 表示标签的尺寸不能自动调整 超出尺寸范围的内容不予显示 1 5窗体和基本控件 3 命令按钮在VB程序中 命令按钮是使用最多的控件对象 当用户选择某命令按钮就会激活相应的事件过程 基本属性 Name Height Width Top Left Enabled Visible Font等与窗体的对应属性的使用相同 常用属性 1 Caption 标题属性 命令按钮显示的内容 可在某字母前加 设置快捷键 例如 Ok 显示Ok 2 Default 确认属性 逻辑值 设置为True时 按Enter键相当于用鼠标器单击了该按钮 注意 在一个窗体只能的一个按钮的Default设置为Ture 3 Cancel 取消功能属性 逻辑值 当设置为Ture时 程序运行时按Esc键与单击此命令按钮的效果相同 注意 在一个窗体只能的一个按钮的Cancel属性设置为Ture 4 Value 检查该按钮是否按下 该属性在设计时无效 5 Picture 按钮可显示图片文件 bmp和 Ico 只有当Style属性值设为1时有效 6 Style 确定显示的形式 0只能显示文字 1文字 图形均可 7 ToolTipText 设置工具提示 和Picture结合使用 当运行或设计时 只需将该项属性设置为需要的提示行文本时 只要把光标移到图标按钮上 停留片刻 在这个图标按钮的下方就显示提示行文本内容 常用方法 与命令按钮有关的常用方法主要有两种 1 Move该方法的作用与窗体中的Move方法一样 VB系统中的所有可视控件都有该方法 控件的移动是相对 容器 对象而言 2 Setfocus该方法设置指定的命令按钮获得焦点 一旦使用SetFocus方法 用户的输入被立即引导到成为焦点的按钮上 常用事件 对命令按钮控件来说 Click事件是最重要的事件方式 鼠标左键单击命令按钮时 激活Click事件 1 5窗体和基本控件 4 文本框文本框是一个文本编辑区域 用户可以在该区域输入 编辑 修改和显示正文内容 常常作为接受用户输入数据的接口 文本框的内容由Text属性设置 基本属性Name Height Width Top Left Enabled Visible Font ForeColor BackColor等与标签控件相同 常用属性 1 Text文本属性 2 Maxlength 设置正文的最多字符个数 0任意长度值 3 MultiLine 是否为多行 默认一行 逻辑值为False 4 ScrollBars 当MultiLine为True时 该属性才有效 滚动条的形式 0 None 无滚动条 1 Horizontal 水平滚动条 2 Vertical垂直滚动条 3 Both水平和垂直滚动条 5 Locked 是否可被编辑属性 默认逻辑值False表示为可编辑 6 PassWordChar属性设置PasswordChar属性为了掩盖文本框中输入的字符 该属性的设置只有在MultiLine设为False才有效 它常用于设置密码输入 7 SelStart SelLength和SelText属性这三个属性是文本框中对文本的编辑属性 SelStart 选中文本的起始位置 第一字符的位置为0 若没有选择文本 指文本的插入点位置 如果SelStart的值大于文本的长度 则SelStart取当前文本的长度 SelLength 设置或返回文本框中选定的文本字符串长度 字符个数 SelText 设置或返回当前选定文本中的文本字符串 常用事件 1 Change事件 当改变文本框的Text属性时会引发该事件 当用输入一个字符 就会触发一次Change事件 2 KeyPress事件当用户按下并释放键盘上一个键时 就会触发一次该事件 并返回一个KeyAscii参数 字符的Ascii值 到该事件过程中 例1 4 在文本框Text1的Change事件编写有如下程序代码 PrivateSubText1 Change PrintText1 textEndSub 例1 5 在文本框中输入大写字母 F PrivateSubText1 KeyPress KeyAsciiAsInteger PrintKeyAscii Chr KeyAscii EndSub以上过程的结果如图1 13所示结果为 1 VB应用程序的工作方式VB应用程序采用的是以事件驱动应用程序的工作方式 在事件发生时 事件驱动应用程序执行相应事件的程序代码 下面是事件驱动应用程序中的典型工作方式 1 启动应用程序 装载和显示窗体 2 窗体 或窗体上的控件 接收事件 事件可由用户引发 例如通过键盘或鼠标操作 可由系统引发 例如定时器事件 也可由代码间接引发 例如当代码装载窗体时的Load事件 3 如果在相应的事件过程中已编写了相应的程序代码 就执行该代码 4 应用程序等待下一次事件 1 6VB应用程序设计初步 设计VB应用程序的步骤用户界面 用户使用计算机的综合操作环境 最常用的对象是窗体 即窗口 各种控件对象必须建立在窗体上 1 6VB应用程序设计初步 VB程序设计 设计用户界面 编写程序代码 建立对象 对象属性设置 先要确定对象 然后针对这些对象进行代码编程 2 设计VB应用程序的大致步骤如下 1 新建工程 2 建立用户界面的对象 3 设置对象的属性值 4 编写程序代码 建立事件过程 5 保存应用程序 6 运行与调试应用程序 1 6VB应用程序设计初步 1 设计要求程序运行后 在如图1 14所示的文本框中输入一段文字后 单击 文本复制 按钮 则文本框右边会显示同样的文字 但复制文字的颜色 字体 大小都发生的变化 同时按钮的标题文字也发生的变化 如图1 15所示 单击 退出 按钮结束整个程序 1 7案例一 文本信息复制 2 设计目的通过案例一的设计 使读者了解VB程序的开发步骤 理解VB程序的运行机制 可以初步掌握界面设计 对象属性设置和编写程序代码的基本方法 同时还掌握运行程序和存储程序的方法 1 7案例一 文本信息复制 在两个按钮的单击事件中写入如下代码 Privatesubcommand1 click Label2 caption text1 text 将文本框Text1中的内容赋给标签Label1的标题Command1 caption 复制完毕 给Command1按钮标题赋相应的文字EndsubPrivatesubcommand2 click End 退出程序执行Endsub 设计一个设置文字字体和大小的程序 运行界面见图1 20 1 8案例实训 设计要求 窗体上有若干个按钮 分别表示字体的大小 单击这些按钮后 示例文字的字体和大小相应变化 第2章顺序结构程序设计 本章基础知识 数据类型常量与变量运算符与表达式语句 方法及函数VB常用内部函数 数据类型 标准数据类型整型 Integer 长整型 Long 单精度实型 Single 双精度实型 Double 字符型 String 日期型 Date 逻辑型 Boolean 对象型 Object 和变体型 Variant 自定义数据类型 取值范围 32768 32767例 32766 75 取值范围 2147483648 2147483647 取值范围 0 65535 日期为100 1 1 9999 12 31 时间为 0 00 00 23 59 59 True 真 和False 假 变量与常量 常量标识符及关键字普通常量例 10 3 14 25 或 O25 八进制数25 H25 十六进制数25 08 20 06 True或False 符号常量 Public Private const符号常量名 as类型 表达式例 constpi 3 14 变量与常量 系统提供的内部常量 视图 对象浏览器 VB或VBA对象库 类 列表框中选择常量组 常量与变量 标识符常量普通常量符号常量 标识符的命名规则是 由字母 下划线和数字组成 且第一个字符必须是英文字母 其长度不能超过255个字符 不能与关键字和系统已有的方法及属性同名 10 3 14 0 12E 3 0 23D 3 25 或 O25 八进制数25 H25 十六进制数25 字符串常量 如 常量 变量 日期型常量 08 20 06 逻辑型常量 True或False 符号常量的定义形式如下 Public Private const符号常量名 as类型 表达式例如 constpi 3 14 声明了常量pi pi在程序中代表3 14 变量与常量 变量变量的显式声明声明符变量名 As类型 例 DimaasIntegerDimbaslong cassingleDimd v变量的隐式声明 dimension Static Public Private 运算符与表达式 算术运算符算术 mod注意 1 7 5 2 4 7 5 2 3 752 20 3 603 5 True 44 7mod4 3 5mod3 2 5mod 3 2 True 1False0 M N的余数 M N M N 运算符与表达式 字符运算符字符 功能 和 连接两串字符串区别 要求运算对象均为字符型 的运算对象若不是字符型 系统将自动转换为字符型 然后连接 若运算对象是变量 运算符 应与变量用空格分割 运算符与表达式 关系运算符 不等于 Like 字符串匹配 Is 对象引用比较 3 4 3 4 False True abc cd 语句 方法及函数 赋值语句格式1 变量名 表达式格式2 对象名 属性名 表达式 语句 方法及函数 注释语句Rem格式1 Rem注释内容格式2 注释内容End语句 语句 方法及函数 InputBox函数功能 产生输入对话框 并接受和返回输入对话框中输入的信息其格式为 变量 InputBox 提示信息 对话框标题 默认内容 例 Text1 Text InputBox 请输入序列号 电子助手4 0 111111 语句 方法及函数 Print方法MsgBox函数和方法功能 通过MsgBox函数和方法产生消息对话框调用格式 变量 MsgBox 例 answer MsgBox 病毒库已过期 请立即更新 3 48 0 反病毒软件6 0 P28 表2 4 语句 方法及函数 实例2 1 编写简单的密码验证程序 利用InputBox函数输入密码如图2 4 假设密码为santa1225 如果密码正确显示图2 5所示信息 否则显示图2 6所示的信息 语句 方法及函数 PrivateSubForm Activate DimsAsStringForm1 Hides InputBox 请输入密码 密码验证 Ifs santa1225 ThenMsgBox 密码正确 单击确定继续 vbYes vbInformation 0 信息 Form1 ShowPrintPrintTab 10 欢迎使用本系统 EndIfIfs santa1225 ThenMsgBox 密码输入错误 退出 vbYes vbCritical 0 结束 EndEndIfEndSub 语句 方法及函数 MsgBox方法格式 MsgBox 语句 方法及函数 VB函数 内部函数 标准函数 用户自定义函数日期函数 附录E 语句 方法及函数 日期函数 Date返回系统日期的函数Day date WeekDay Date 返回当前是星期代号 1 7 星期日为1 星期一为2 WeekDayName N 将星期代号N 1 7 转换为星期名称 Now返回系统日期和时间Year Month 返回月份代号 1 12 MonthName N 返回月份名 语句 方法及函数 日期函数 实例2 2 制作图2 7所示的日历牌 语句 方法及函数 日期函数 lblyear Caption Year Date lblmonth Caption MonthName Month Date lblday Caption Day Date lblweek Caption WeekdayName Weekday Date 控件 计时器 Timer 图像框 PictureBox 和图片框 Image 水平与垂直滚动条 控件 计时器 功能 计时器可以在一定的时间间隔自动激发计时器事件 Timer 计时器常用属性Enabled属性决定计时器是否开始计时 若属性值为True 默认值 表示启动计时器开始计时 False表示暂停计时器的使用 Interval属性设置计时器自动执行的时间间隔 设置的时间单位为毫秒 其范围是0 65535ms 若将Interval属性值设置为1000ms 则计时器每隔1秒自动执行一次 系统初始值设置为0 计时器事件计时器的主要事件是Timer 在Enabled属性值为True时 每隔Interval属性值指定的时间间隔触发一次该事件 控件 计时器 实例2 2 扩展 控件 计时器 例题所用函数 Int x 函数功能 取不超过x的整数 例 int 3 5 的值3 int 3 5 的值 4Rnd函数功能 产生一个 0 1 范围之内的实数例 Rnd 100产生 0 100 之内的随机实数Int Rnd 100 产生 0 99 之内的随机整数Int Rnd 100 10产生 10 109 之内的随机整数Int upper lower 1 Rnd lower 控件 计时器 Randomize功能 保证每次运行程序时所产生的随机数与前一次的产生值无关QBColor N 功能 设置颜色参数N 0 15的整数函数值 一种颜色值 PrivateSubTimer1 Timer DimcolnumAsIntegerRandomizecolnum Int 16 Rnd frmcalendar BackColor QBColor colnum EndSub 控件 计时器 控件 图像框和图片框 图片框主要用于放置图形信息 也可以放置其它控件即作为其它控件的容器 图像框用来显示图形 显示的可以是位图 图标 图元文件 JPEG或GIF文件 图片框和图像框的Picture属性用于返回 设置其中显示的图形 设置显示图形 设计阶段可直接利用属性窗口指定 运行阶段可使用LoadPicture函数加载 具体形式如下 对象名 Picture LoadPicture 文件名 控件 图像框和图片框 图片框的AutoSize属性 决定图片框的大小是否随着图片大小的变化而自动调整图像框的Stretch属性 调整图像框或图片的大小属性值为False 默认值 时 图像框可根据图片调整大小 属性值为True时 图片可以根据图像框来调整大小 控件 图像框和图片框 LoadPicture函数功能 运行阶段可使用LoadPicture函数加载图形 使用方法 对象名 Picture LoadPicture 文件名 控件 水平与垂直滚动条 关于滚动条属性Max和MinValueSmallchangeLargechange事件ChangeScroll函数RGB red green blue 参数取值0 255 32768 32767 控件 实例2 3 制作电子时钟 操作步骤一设计用户界面 操作步骤二设置关键对象属性 操作步骤二设置关键对象属性 操作步骤三编写代码 计时器Timclock的Timer事件代码如下 PrivateSubtmrclock Timer imgchange1 Visible Falseimgchange2 Visible Truelblclock Caption TimeEndSub 操作步骤三编写代码 计时器TimPicture的Timer事件代码如下 PrivateSubtmrpicture Timer imgchange1 Visible Trueimgchange2 Visible FalseEndSub 操作步骤三编写代码 滚动条的代码 PrivateSubhsbtimer Change tmrclock Interval hsbtimer Valuetmrpicture Interval hsbtimer ValueEndSub 控件 实例2 4 设计两个变量交换值的演示程序 操作步骤一设计用户界面 操作步骤三编写代码 交换两个图像框的Picture属性值的代码 PrivateSubtmrexchange Timer imgexchange Picture imgrabbit Pictureimgrabbit Picture imgsheep Pictureimgsheep Picture imgexchange PictureEndSub 操作步骤三编写代码 Stop 按钮代码PrivateSubCmdstop Click tmrexchange Enabled FalseEndSub Start 按钮代码PrivateSubCmdstart Click tmrexchange Enabled TrueEndSub 案例 电子备忘录 操作步骤一设计用户界面 操作步骤三 编写代码 星期一 保存代码 PrivateSubImgb1 Click b1 txtmon Textanswer MsgBox 星期一备忘录已保存 0 64 0 备忘录 EndSub 操作步骤三 编写代码 查看 星期一 备忘录代码 PrivateSubtxtmon Click txtmon Text b1answer MsgBox 单击左边按钮保存修改 0 64 64 备忘录 EndSub 操作步骤三 编写代码 时钟与动画代码PrivateSubTimer1 Timer lbltime Caption Time Imgpicture MoveImgpicture Left 100IfImgpicture Left 0ThenImgpicture Left 5880 设置图像框的左边距为初始边距 5880为此图像框的Imgpicture Left的初始值EndIfEndSub 操作步骤三 编写代码 DimkeyAsString 定义字符型变量keyConstpassword memo123 定义字符型常量password值为密码 memo123 key InputBox 请输入密码 备忘录 Ifkey passwordThentxtmon Enabled True 设置文本响应事件 单击事件 初始属性设置为不响应事件 txtfri Enabled TrueImgb1 Enabled True 设置图像响应事件 单击事件 初始属性设置为不响应事件 第3章选择结构程序设计 本章内容 基本概念及语法逻辑运算符与表达式If语句情况语句SelectCase条件函数控件复选框 CheckBox 单选按钮 OptionButton 框架 Frame 选择结构 Not 当操作数为True时 结果为False 当操作数为False时 结果为TrueAnd 两操作数同时为True时 结果为True 否则为False Or 两操作数同时为False时 结果为False 否则为True 逻辑运算符 逻辑运算符Not 取反 优先级1 And 与 优先级2 Or 或 优先级3 Xor 异或 优先级3 逻辑表达式逻辑表达式的值 优先级 当一个表达式中出现了多种不同类型的运算符时 不同类型的运算符的优先级如下 算术运算符 关系运算符 逻辑运算符 If语句的一般格式 单分支结构 单分支结构If语句语句形式 IfThenIfThen语句块EndIf语句功能 当 表达式 的值为真时执行语句 或语句块 否则执行后继操作 为关系表达式 逻辑表达式或算术表达式 若为算术表达式 其值是非零为真 零为假 一条语句或多条 且为多条时语句间用冒号分隔 并必须写在一行上 一条或多条语句 Then 不能与其后的语句写在同一行上 否则必须加上分隔符 If语句的一般格式 单分支结构 实例3 1 制作简单的逻辑运算符与表达式示例器 其功能是输入逻辑表达式 输出运算结果及其说明 操作步骤一设计用户界面 操作步骤二编写代码 PrivateSubcmdequal Click Dimb1AsBoolean b2AsBoolean b3AsBooleanIftxtoperand1 Thenb1 CBool txtoperand1 b2 CBool txtoperand2 Iftxtoperator Not Ortxtoperator not Thenb3 Notb2Lbl2 Caption 单目运算 当操作数为假时 结果为真 反之为假 EndIf If语句的一般格式 双分支结构 双分支结构If Then Else语句语句形式 IfThenElseIfThenElseEndIf语句功能 当表达式的值为真时 执行Then后的 语句块1 或 语句1 否则执行Else后面的 语句块2 或 语句2 If语句的一般格式 双分支结构 实例3 2 在窗体所示的第一个文本框 txtin 中输入字符串 当输入字符句号 时表示输入结束 第二个文本框 txtcount 动态统计字符串中字符的个数 不可以用求字符串长度的函数 操作步骤一设计用户界面 操作步骤二编写代码 DimnAsInteger 窗体级变量PrivateSubtxtin Change IfRight txtin Text 1 Thenn n 1txtcount Text nElsetxtin Enabled FalseEndIfEndSub If语句的一般格式 多分支结构 语句形式 IfThenElseIf Else EndIf语句功能 为真时 执行 If语句的一般格式 多分支结构 If语句的一般格式 多分支结构 实例3 3 建立如图3 7所示的窗体界面 在窗体左边的文本框 txtinput 中输入字符串 字符串以 为结束标志 右边的三个文本框 txtletter txtdigital txtother 中分别显示字母字符 数字字符和其他符号字符的个数 操作步骤一设计用户界面 操作步骤二编写代码 Dimn1AsInteger n2AsInteger n3AsInteger 窗体级变量PrivateSubtxtinp