VB程序设计 第九章 菜单
vb程序设计教程ZW9
第9章过程9.1 Sub过程9.1.1建立Sub过程1. 定义Sub过程2VisualBasic程序设计教程(第三版)2. 建立Sub过程图9.1“添加过程”对话框图9.2模块代码窗口9.1.2调用Sub过程1. 用Call语句调用Sub过程2. 把过程名作为一个语句来使用VisualBasic程序设计教程(第三版) 3图9.3时间延迟4VisualBasic程序设计教程(第三版) 9.1.3通用过程与事件过程VisualBasic程序设计教程(第三版) 56VisualBasic程序设计教程(第三版) 9.2 Function过程9.2.1建立Function过程VisualBasic程序设计教程(第三版) 7 9.2.2调用Function过程图9.4输出随机数8VisualBasic程序设计教程(第三版)图9.5求平方根VisualBasic程序设计教程(第三版) 9图9.6 Visual Basic应用程序中的过程9.3参数传送9.3.1形参与实参1. 按位置传送图9.7形参与实参2. 指名传送10VisualBasic程序设计教程(第三版) 9.3.2引用图9.8过程的副作用9.3.3传值9.3.4数组参数的传送图9.9实参数组与形参数组图9.10用梯形法求定积分图9.11求定积分（界面设计）图9.12求定积分（求值结果）9.4可选参数与可变参数9.4.1可选参数9.4.2可变参数9.5对象参数9.5.1窗体参数9.5.2控件参数图9.13控件参数示例图9.14 TypeOf 语句示例图9.15控件移动（界面设计）图9.16控件移动（运行情况）9.6局部内存分配9.7递归图9.17递归调用操作习题9.1编写一个求3个数中最大值Max和最小值Min的过程，然后用这个过程分别求3个数和5个数、7个数中的最大值和最小值。
9.2编写程序，求S=A!+B!+C!，阶乘的计算分别用Sub过程和Function过程两种方法来实现。
VB第九章菜单设计
它为用户在存储文件时提供了一个标准用户界面，供用户选择 或键入所要存入文件的驱动器、路径和文件名。同样，它并不能 提供真正的存储文件操作，储存文件的操作需要编程来完成。
“另存为”对话框所涉及的属性基本上和打开对话框一样。
第9章 菜单设计与通用对话框
6、颜色对话框
“颜色”对话框是当 Action 属性为 3 （或使用 ShowColor 方法）时的通用对话框，供用户选择颜色。
属性 Color ：用来返回用户在调色板中所选中的颜色。
第9章 菜单设计与通用对话框
7、字体对话框
fontName 属性：返回在字体对话框中所选择的字体名。 FontSize 属性：返回在字体对话框中所选择的字体的大小。 FontBold 、 FontItalic 、 FontStrikethru 、 FontUnderline 属Βιβλιοθήκη 第9章 菜单设计与通用对话框
9.2 弹出式菜单 使用“菜单编辑器”创建菜单。 使顶级菜单项目为不可见，“Visible”属性设置为False。 编写相应事件代码，需要使用对象的PopupMenu方法。
PopupMenu 菜单名
第9章 菜单设计与通用对话框
9.3 通用对话框
1、通用对话框的添加 2、通用对话框的action属性
第9章 菜单设计与通用对话框
9.1 普通下拉菜单
数 据 区
编辑区 菜 单 项 显 示 区
第9章 菜单设计与通用对话框
例题：编写程序，当在菜单中选择了某种字体效果，文本 框中的字体效果就是所选的字体效果。
练习使用菜单编辑器添加各个菜单项（含分割线） 编写click事件代码 菜单常见功能：变灰，打“”号（在代码中实现）
VB第九章 文件
设计界面：在窗体中添加驱动器列表框Drive1、目录列表框 Dir1和文件列表框File1以及框架Frame1、图象框Image1;
将File1的Pattern属性改为“*.bmp;*.exe”
将Image1的Stretch属性设置为True
Private Sub Form_Load()
File1.Pattern = "*.bmp;*.exe" End Sub
在2号缓冲区读取C盘根目录下名为Student.dat的文件的语句为： Open “C:\Student.dat” For Input As #2
2、写操作 要将数据写入顺序文件，应以Output或Append方式打开 该文件，然后使用Print #或Write # 语句将数据写入文件中。 1）Print # 文件号，[数据项列表] 其中：数据项列表和前面讲过的对象的Print方法中的格式基 本相同，只是在每行多了回车换行符。
文件的分类及访问模式： 顺序文件：是按记录号的顺序进行存储的文件。见下图：
记录1 记录2 记录3 …… 记录N
记录分隔符
顺序文件中每条记录的长度可不相同，记录与记录之间 的分隔符为回车换行符（Chr(13）和Chr(10)），而记录中各 数据项之间还有特定的分界符（如逗号等）。 显然，顺序文件是将记录按行进行存储。如文本文件就是 典型的顺序文件，其中的每一行字符串都是一条记录。 顺序文件在机器中是以ASCII形式进行存储的。 顺序访问模式：查找某个记录是从第一条记录开始，直到找 到需要的记录为止。修改某个记录，则将整个文件读出来， 修改后再将整个文件写回外存。此模式专门处理文本文件。
如果要在文件列表框中双击某个可执行文件就能执行该文件，则必须 要有如下的过程： Private Sub File1_DblClick( )
VB程序设计课后习题答案
VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
VB程序设计实训手册
Visual Basic 程序设计实训大纲目录：第一章 VB开发环境 (1)第二章编程基础 (5)第三章常量和变量 (7)第四章表达式 (12)第七章控制结构 (17)第八章窗体 (19)第九章控件 (20)第一章 VB开发环境实训一实训任务任务一：了解VB的功能、版本任务二：启动VB，用三种方法退出VB任务三：新建一个工程和两个窗体，并保存在D盘的某文件夹中（工程名为：project1，窗体名分别form1和form2—可观察工程资源管理器）反馈习题填空题Visual 的中文含义是 •,指的是开发的方法。
Visual Basic有、、三种版各自满足不同的开发需要。
退出Visual Basic可单击，也可选择菜单中的命令，或按 + 键。
简答题如何启动Visual Basic？写出新建一个工程并保存的步骤。
简述Visual Basic的安装过程。
（附加题）怎样使用VB的帮助系统？（附加题）实训二实训任务任务一：了解VB主界面窗口的组成（如：标题栏、菜单栏、工具条、工具箱、窗体等）任务二：了解各个常用菜单的功能（如：文件、编辑、工程、运行等）任务三：新建一个工程和一个窗体，窗体的名称属性为“frmTest”，Caption属性为“测试窗口”,在窗体中建立一个标签，设置名称属性为“lblTest”，Caption 属性为“显示内容”，ForeColor属性为红色，BorderStyle属性为1，并保存。
任务四：利用菜单、工具栏和右键三种方法来打开属性窗口。
反馈习题填空题Visual Basic的主菜单栏主要包括、、、、、、、、、、、、和等菜单项。
Visual Basic开发环境的中心部分称为。
Visual Basic提供的以树形图的方式对其资源进行管理。
简答题Visual Basic主界面窗口主要由哪几部分组成？简述Visual Basic打开“属性”窗口的三种方法。
设置对象属性的基本步骤是什么？实训三实训任务任务一：打开上次保存的工程，在窗体上创建两个按钮cmdTest和cmdEnd，Caption 属性分别为“测试按钮”和“结束按钮“；打开代码编缉器，在对象列表框中选中cmdTest，在过程列表框中选中click事件，之后在光标处输入print“测试成功！”；同理，在“结束按钮”的click事件中输入“End”,然后运行。
Visual Basic程序设计第九章 菜单程序设计
单击“工具”菜单，选择其下拉菜单中的“菜单编辑器”选 项； 单击常用工具栏中的“菜单编辑器”按钮； 使用快捷键Ctrl+E； 在要建立菜单的窗体（此窗体为活动窗体）上单击鼠标右键， 会弹出一个快捷菜单，
9.2 菜单编辑器
用弹出菜单打开菜单编辑器窗口
菜单编辑器窗口
9.2 菜单编辑器
菜单编辑器窗口分为三个部分：数据区、编辑 区和菜单项显示区。
控件属性设计
菜单控件设计
2、设计菜单
分类
主菜单1 子菜单项1 子菜单项2 主菜单2 子菜单项1 子菜单项2 子菜单项3
表9-2 菜单项属性设置
标题
输入信息(&I) 输入 退出
名称
Input Iput Quit Display Disp Clear Hide
内缩符号
无 1 1 无 1 1 1
快捷键
无 Ctrl+I Ctrl+Q 无 Ctrl+D Ctrl+L 无
对 象 属 性
Caption 窗体 (名称) (名称) Form1 Label1
属 性 值
下拉式菜单属性
Caption
标签 FontSize Alignment
VB教程
四号 2-Center
窗体添加菜单：
分类 主菜单1 子菜单项1 子菜单项2 子菜单项3 子菜单项4 主菜单2 标题 字体(&F) 宋体(&S) 楷体(&K) 黑体(&H) 名称 menuFont menuSong menuKai menuHei 内缩符号 无缩进(主菜单) 向右缩进 向右缩进 向右缩进 快捷键 F S K H
建立菜单控件
2、设计菜单
第九章vb计算机
Basic程序设计 Visual Basic程序设计
9.2.3 填充与色彩
作用： 指定填充的图案(有 种内部图案 取值0-7) 种内部图案,取值 作用：FillStyle 指定填充的图案 有8种内部图案 取值 FillColor 指定封闭图形的填充颜色。 指定封闭图形的填充颜色。 颜色的设置方法： 颜色的设置方法： (1)RGB(红,绿,蓝)函数，产生某种颜色。三基色参数值使用 红 绿 蓝 函数 产生某种颜色。 函数， 0~255之间的整数。 之间的整数。 之间的整数 (2)QBColor(颜色码 函数，0~15之间的整数。 颜色码)函数 之间的整数。 颜色码 函数， 之间的整数 (3)使用六位十六进制长整型数，如&HFFFFFF&。 使用六位十六进制长整型数， 使用六位十六进制长整型数 。 (4)使用 常量，如vbRed，vbBlue等。 使用VB常量 使用 常量， ， 等 演示颜色的渐变过程。 例9.5 演示颜色的渐变过程。
2011年 21日星期三 2011年9月21日星期三 长春师范学院城市与环境科学学院
பைடு நூலகம்
Basic程序设计 Visual Basic程序设计
9.3.2 Circle方法 方法
作用： Circle方法用于画圆 椭圆、圆弧和扇形。 方法用于画圆、 作用： Circle方法用于画圆、椭圆、圆弧和扇形。 格式：[对象 格式： 对象.]Circle [Step] (x,y),半径 颜色][,[起始角 终止角][,长 半径[,[颜色 起始角][,[终止角 长 对象 半径 颜色 起始角 终止角 短轴比率]]]] 短轴比率 其中： 对象为窗体、图形框或打印机； 其中：①对象为窗体、图形框或打印机； 为圆心坐标， 表示当前作图位置的相对值； ②(x,y)为圆心坐标，step表示当前作图位置的相对值； 为圆心坐标 表示当前作图位置的相对值 ③ 圆弧和扇形通过参数起始角 、 终止角控制 。 当起始角 、 终 圆弧和扇形通过参数起始角、 终止角控制。 当起始角、 止角取值在0~2π时为圆弧 ， 当在起始角 、 终止角取值前加一负号时 ， π时为圆弧，当在起始角、终止角取值前加一负号时， 止角取值在 画出扇形，负号表示画圆心到圆弧的径向线； 画出扇形，负号表示画圆心到圆弧的径向线； ④椭圆通过长短轴比率控制，默认值为1时，画圆。 椭圆通过长短轴比率控制，默认值为 时 画圆。 例9.7在窗体上绘制由圆环构成的艺术图案。 构造图案的算法为：将 在窗体上绘制由圆环构成的艺术图案。 构造图案的算法为： 在窗体上绘制由圆环构成的艺术图案 一个半径为r的圆周等分为 份 以这n个等分点为圆心 以半径r1绘 个等分点为圆心， 一个半径为 的圆周等分为n份，以这 个等分点为圆心，以半径 绘 的圆周等分为 个圆。 制n个圆。 个圆
VB程序设计课件(全套)
在VB中，将反映对象的属性和行为封装在一起，是面向对 象编程的基本元素。
21
上一页
下一页
2.类的概念
本章目录
类是创建对象实例的模板，是同种对象的集合与抽象，它包 含所创建对象的属性描述和行为特征的定义。 例如，人类是人的抽象，一个个不同的人是人类的实例。各 个人具有不同的身高、体重等属性值和不同的行为。 在 VB中，工具箱上的可视图标是 VB系统设计好的标准控件 类。通过将控件类实例化，可以得到真正的控件对象，也就是 当在窗体上画一个控件时，就将类转换为对象，即创建了一个 控件对象，简称为控件。
25
上一页
下一页
事件
本章目录
2. 事件、事件过程和事件驱动 (1) 事件 事件就是发生在对象上的事情。同一事件，作用于不同的对 象，就会引发不同的反应，产生不同的结果。 例如，在学校，教室楼的铃声是一个事件，教师听到铃声就 要准备开始讲课，向学生传授知识；学生听到铃声，就要准备 听教师上课，接受知识；而行政人员对铃声可不于响应。 在VB中，系统为每个对象预先定义好了一系列的事件。 例如，单击 (Click) 、双击 (DblClick) 、改变 (Change) 、获 取焦点(GotFocus)、键盘按下(KeyPress)等。
9
上一页
下一页
VB功能特点
2 功能特点 1) 具有面向对象的可视化设计工具 2) 事件驱动的编程机制 3) 提供了易学易用的应用程序集成开发环境 4) 结构化的程序设计语言 5) 强大的数据库功能 6) Active技术 7) 网络功能 8) 多个应用程序向导 9) 完备的Help联机帮助功能
10
Visual Basic 程序设计简明教程
第一章 Visual Basic程序设计概述（2） 第二章 VB简单的程序设计（6） 第三章 VB语言基础（4） 第四章 基本的控制结构（8） 第五章 数组（5） 第六章 过程（4） 第七章 常用控件（2） 第八章 界面设计（2） 第九章 文件（2） 第十章 图形（1） 第十一章 数据库技术（自学） 第十二章 系统开发案例 （自学）
VB程序设计第2版第9章
h
15
•【例9-3】在窗体上用Shape控件画一个圆形，用键盘上的“←”、“↑”、“→”、 “↓”方向键移动该图形。
Shape1
分析：键盘上的方向键“←”、“↑”、“→”、“↓”的KeyCode值分别为37、38、
h
18
9.3.1 框架(Frame)
• 1. 作用: 作为容器，对控件进行分组；修饰界面。 • 2. 如何将控件放在容器中
➢选中容器，在容器中直接画 ➢选中容器，粘贴控件 • 3. 如何检查控件是否在容器中 ➢拖动容器，控件随容器移动； ➢拖动控件只能在容器中移动 • 4. 选中框架中的多个控件: Ctrl+拖动；Shift+单击 • 5. 删除容器时，其中的控件随之被删除 • 6. 框架的常用属性 ➢Caption: ➢Font: ➢Enabled:设置为False时框架中的控件无效。
39、40，也可以分别用vbKeyLeft、vbKeyUp、vbKeyRight、vbKeyDown符号常 量来代替。在窗体的KeyDown事件过程中根据所返回的KeyCode值实现对图形 的移动。
h
16
• 代码如下：
• Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
➢ 对象名.Picture=LoadPicture("图形文件名")
• 3. 如何清除图像
➢ 在属性窗口中删除Picture属性内容
➢ 对象名.Picture=LoadPicture()
• 4. 特点
• 可以自动调整控件大小以适应图像:
visual basic 程序设计课后习题参考答案
Visual basic 程序设计习题参考答案第一章Visual basic 程序设计一、选择题二、填空题三、简答题1、简述visual basic 的特点。
（1）具有可视化的设计平台（2）面向对象的设计方法（3）事件驱动的编程机制（4）结构化程序设计语言（5）开放的数据库功能与网络支持2、什么是对象、类、属性、事件和方法？在可视化编程语言中，对象是代码和数据的集合，它可以是窗体和控件，也可以是菜单和数据库等。
描述一个对象有三个基本要素：属性、方法和事件。
类是一组用来定义对象的相关过程和数据的集合，即同类对象的集合和抽象。
属性是描述对象的一组特性。
方法是对象能够执行的动作，它是对象本身内含的函数或过程，用于完成某种特定的功能。
事件是发生在对象上并且能够被对象识别的动作，即由系统预先设置好的、能被对象识别的动作，如Click(单击)、DblClick(双击)、Load(窗体的装载)、KeyPress(按键)、Change(改变)、MouseMove (鼠标的移动)等，每一种对象能识别的事件是不同的5、什么是事件驱动的编程机制？当某个事件(一般由用户操作来触发) 发生时，系统就会自动执行此事件的事件过程。
由事件控制整个程序的执行流程。
事件过程要经过事件的触发才能被执行，这种工作模式称为事件驱动方式。
第二章Visual basic 程序设计基础一、选择题二、填空题第三章数据输入输出一、选择题二、填空题3第四章选择结构和循环结构程序设计一、选择题二、填空题第五章数组一、选择题二、填空题第六章过程一、选择题二、填空题三、简答题1、简述事件过程和通用过程的含义和联系。
5VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。
VB中的过程有两大类：事件过程和通用过程事件过程是当发生某个事件时，对该事件作出响应的程序段。
事件过程由VB自行声明，用户不能增加或删除。
事件过程是VB 应用程序的主体。
VB经典教程-精心整理(快速入门)
VB从入门到实践
1.1.5 数据访问
在现代信息技术高度发达的今天，数据信息已经成为最重要 资源之一。Visual Basic为开发人员提供了强大的数据访 问技术，能够更快捷、更迅速、更高效地存储和读取数据 信息。Visual Basic提供了更为强大功能来支持大中型数 据库，如Oracle、SQL Server、Sybase等。
VB从入门到实践
1.2 Visual Basic 6安装
本节将介绍如何安装Visual Basic 6开发环境。将Visual Basic 6 的安装光盘放入计算机的光驱内，一般情况下计算机可以自 动运行其中的安装程序。如果计算机没有自动运行安装程序 ，双击光盘盘符下的Setup.exe文件，将显示Visual Basic安装 程序界面，按照安装程序的提示进行相应的操作。
双精度型（Double） D
货币型（Currency） C
在Visual Basic环境下，开发人员利用事件驱动的编程机制、 新颖易用的可视化设计工具，使用Windows内部的应用程 序接口（API）函数、动态链接库（DLL）、对象的链接 与嵌入（OLE）、开放式数据连接（ODBC）等技术，可 以高效、快速地开发Windows环境下功能强大、图形界面 丰富的应用软件系统。
Visual Basic特点 Visual Basic安装 Visual Basic集成开发环境
VB从入门到实践
1.1 Visual Basic简介
Visual Basic是一种可视化的、面向对象和采用事件驱动机制 的结构化高级程序设计语言。它可用于开发Windows环境 下的各类应用程序。它具有简单易学、效率高、功能强大 的特点，可以与Windows专业开发工具SDK相媲美。
vb第9章：菜单
(续表)
标 题
颜色(&C) 第 九 章 界 面 设 计 ....红色 ....绿色 ....蓝色
名称
CC CC1 CC2 CC3
索引 快捷键 说
明
访问键Alt+C
效果(&E)
....删除线 ....下划线
DD
DD1 DD2
访问键Alt+E
....粗体
....斜体
DD3
DD4
8
第 九 章 界 面Sub DD2_Click() If DD2.Checked = True Then Text1.FontUnderline = False DD2.Checked = False Else Text1.FontUnderline = True DD2.Checked = True End If End Sub
9
第 九 章 界 面 设 计
(3)“颜色”菜单下的各菜单项为独立的菜单控件， 因此应分别在其单击事件过程中编写代码，各 事件过程如下: Private Sub CC1_Click() Text1.ForeColor = vbRed End Sub Private Sub CC2_Click() Text1.ForeColor = vbGreen End Sub Private Sub CC3_Click() Text1.ForeColor = vbBlue End Sub
Image1
Command1 CommonDialog1
19
其中， CommonDialog1的属性页设置如下:
第 九 章 界 面 设 计 指文件名 All files|*.*|Bmp Files|*.bmp|Icon Files|*.ico
vb9菜单与对话框
菜单设计
•下拉菜单 位于窗口的标题栏下面 • 弹出式菜单
菜单编辑器
• Visual Basic中将要建立下拉菜单的窗体设为活动 窗体后，可以通过4种方法进入菜单编辑器： （1）执行“工具”菜单中的“菜单编辑器” 命令。 （2）使用热键[Ctrl+E]。 （3）单击工具栏中的“菜单编辑器”按钮。 （4）在要建立菜单的窗体上单击鼠标右键， 将弹出一个菜单，在该菜单中单击“菜单编辑器” 命令。
行为常数
vbPopupMenuLeftButton vbPopupMenuRightButto n
值 0（默认值） 4 8
说明
说明 弹出式菜单的左边定位于X 弹出式菜单的居中定位于X 弹出式菜单的右边定位于X
参数flags中的行为常数
值
0（默认值） 2 只能用鼠标左键选择弹出式菜单中的菜单项 用鼠标右键或者左键选择弹出式菜单中的菜单项
以下关于菜单编辑器中“索引”项的叙述中， 错误的是（ ）。
A) “索引”确定了菜单项显示的顺序
B) “索引”是控件数组的下标
C) 使用“索引”时,可有一组菜单项具有相 同的“名字” D) 使用“索引”后,在单击菜单项的事件过 程中可以通过“索引”引用菜单项
在VB的菜单设计器中,最多可以设计（）层 的菜单。 A) 3 B) 6 C) 8 D) 10
例子
Private Sub Command1_Click() CommonDialog1.Flags = 257 ' Flags为256+1，使用屏幕字体；出现颜色、效果等选项 CommonDialog1.ShowFont ' 打开"字体"对话框 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic
第9章 界面设计(2)
以载入自己的图像，设置标题和提示字符串。
② Toolbar控件为其中的按钮提供了分组功能，
用户只需设置一个按钮的Style属性就能实现 按钮间的分组。
③ Toolbar控件还是一个容器类控件，可在其
中加入组合框、文本框等其它控件。
结束
工具栏的制作 ①添加ToolBar控件和ImageList控件 ②用ImageList控件保存要使用的图形 ③创建ToolBar控件，并将ToolBar控件与 ImageList ImageList控件相关联，创建Button对象 Button ④编写Button的Click事件过程。 单击工具栏控件时触发Click事件，单击 工具栏上按钮时触发ButtonClick事件，并返 回一个Button参数(表明按下哪个按钮)
结束
说明： 说明：
窗体有其特殊性，它既是窗体类，也是窗体对象， 与窗体上的控件具有不同的性质。 为了在程序运行时建立若干个子窗体以存取不同 的文档，我们先创建一个子窗体作为这个应用程 序文档的模板，通过对象变量来实现。 Dim Newdoc AS New MDIChildForm1 “声明并建立一个名为 声明并建立一个名为Newdoc窗体变量 声明并建立一个名为 窗体变量 Newdoc.show “显示新窗体 显示新窗体
结束
例1： 设计一个多文档记事本程序，菜单设计 如下图所示。单击“新建”能创建新的文档 窗口；单击“关闭”则关闭当前活动文档窗 口；单击退出则结事本应用程序；单击“窗 口”菜单下的某个菜单项则按要求排列所有 窗口
结束
菜单“新建”项代码： Dim n% Private Sub new_Click() Dim newform As New myform n=n+1 newform.Caption = "文档 & n 文档" 文档 newform.Show End Sub 菜单“关闭”项代码： Private Sub close_Click() Unload MDIForm1.ActiveForm End Sub
vb菜单与工具栏设计(9)
（3）索引：此文本框用来为用户建立的控件
数组设立下标，相当于控件数组的Index属性。
（4）快捷键：此下拉列表框用来设置与某菜
单项等价的快捷键。在程序运行时，按下快捷键 会立刻运行一个菜单项。快捷键的赋值包括功能 键与控制键的组合，它们出现在菜单中相应菜单 项的右边。
（5）帮助上下文：此文本框用于输入在帮助文
Private Sub Iput_Click() 输入菜单代码 Text1.Text="" End Sub Private Sub disp_Click() 显示菜单代码 output.Caption=Text1.Text
End Sub
Private Sub clear_Click() 清除菜单代码 Text1.Text="" output.Caption="" End Sub
③ 按【Tab】键（或用鼠标）把输入光标移到 “名称”文本框。 ④ 在“名称”文本框中输入“Input”，此时菜单 项显示区中没有变化。 ⑤ 将此菜单项的Enable（有效）和Visible（可 见）属性都设置为True（本例中所有菜单项的此二 属性皆如此）。 ⑥ 单击编辑区中的“下一个”按钮，菜单项显示 区中的条形光标下移，同时数据区的“标题”文本 框和“名称”文本框被清空，光标回到“标题”文 本框。 ⑦ 在“标题”文本框中输入“输入”，该信息同 时在菜单项显示区中显示出来。
（2）上、下箭头：用来在菜单项显示区内移
动菜单项的位置。把条形光标移动到某个菜单项 上，单击上箭头将使该菜单项上移，单击下箭头 将使该菜单项下移。
（3）下一个：新建一个菜单项（与按【Enter】
键作用相同）。
（4）插入：在当前菜单项之前插入一个新的菜
VB第9章
第9章 菜单程序设计
9.1 菜单
2.下拉式菜单设计
主要设计2部分 (1)菜单栏，即主菜单 (2)设计各级子菜单。 子菜单可以是:菜单命令,下级子菜单， 分隔条
5
第9章 菜单程序设计
9.1 菜单
用菜单编辑器建立菜单
打开菜单编辑器
（1）选中窗体，按下Ctrl+E键；
（2）可以选择“工具|菜单编辑器” ；
FilterIndex Int
InitDir String
设置或返回在文件列表框中所选文件类型的序号
制定初始目录,默认为当前目录
26
第9章 对话框程序设计
9.7
文件对话框
monDialog.ShowSave “另存为”对话框
DefaultExt属性: 表示所保存文件的缺省扩展名
其它属性同ShowOpen
13
第9章 菜单程序设计
9.1 菜单
例9-3 通过菜单完成两个整数的加减运算， 并添加乘法和除法操作。
Private Sub Form_Click() If AppendCalNo = 0 Then AppendCalNo = AppendCalNo + 1 Load appendcal(AppendCalNo) appendcal(AppendCalNo).Caption = "乘法"
27
第9章 对话框程序设计
9.8 其它对话框
其它对话框
monDialog.ShowColor “颜色”对话框 属性： Color 设置或返回用户指定的颜色
23
第9章 对话框程序设计
9.6 对话框概述
通用对话框控件的外形和结构是因Action属性
VB菜单设计
菜单程序设计一、菜单菜单的基本作用：提供人机对话，以便让使用者选择应用系统的各种功能；管理应用系统，控制各种功能模块的运行。
菜单的基本类型：弹出式菜单（如右击后）、下拉式菜单。
几个常用术语:菜单条——菜单条出现在窗体标题的下面，包含每个菜单的标题。
菜单——菜单包含命令列表或子菜单名。
菜单项——菜单中列出的每一项。
子菜单——从某个菜单项分支出来的另外的一个菜单。
具有子菜单的菜单项右边带有一个三角符号标志。
分隔条——分隔条是在菜单项之间的一条水平直线，用于修饰菜单。
弹出式菜单——弹出式菜单是另一种形式的菜单，在按下鼠标右键时出现，它是一个上下文相关的菜单。
二、菜单编辑器使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性，利用这个编辑器，可以建立下拉式菜单，最多可达6层。
启动菜单编辑器的方法有4种（先选中一个窗体，使之为活动窗体）：∙使用菜单“工具”/“菜单编辑器”；∙单击工具栏中的“菜单编辑器”按钮；∙键盘快捷键CTRL+E；∙在要建立菜单的窗体上单击右键，在弹出菜单中选择“菜单编辑器”。
启动后，弹出菜单设计窗口。
菜单编辑器窗口分为三个部分：数据区、编辑区和菜单项显示区。
1、数据区用来输入或修改菜单项、设置属性。
其中："标题"项：在提供的文本输入框中可以输入菜单名或命令名，这些名字出现在菜单之中。
输入的内容同时也显示在设计窗口下方的显示窗口中（相当于控件的Caption属性）。
如果在该栏中输入一个减号（-），则可在菜单中加入一条分隔线。
"名称"项：在文本输入框中可以为菜单名及各菜单项输入控制名。
控制名是标识符（相当于控件的Name属性），仅用于访问代码中的菜单项，它不会在菜单中出现。
菜单名和每个菜单项都是一个控件，都要为其取一个控制名。
"索引"项：当几个菜单项使用相同的名称时，把它们组成控件数组，可指定一个数字值来确定每一个菜单项在控件数组中的位置。
第9章 VB创建和使用自己的类
第9章创建和使用自己的类类是具有多态性的用户定义类型。
封装将代码和数据组织在同一个类模块中，使得对象能保护和验证其中的数据。
借助创建对象的类能将数据和过程组织成一个整体。
本章介绍类如何增强代码的活力，如何导致新的编程方法的产生。
9.1 创建自己的类在VB中创建自已的类是通过在工程中添加类模块，然后设计类模块的相关代码实现的。
本节讨论类的用途和在工程中定义类模块的过程。
9.1.1 类的作用用户定义类型是一个使相关数据项成组的强大工具。
例如，假设我们定义一个名为Point 的用户定义类型：Public Type Pointx As Integery As IntegerEnd Type可以声明一个Point类型的变量p，然后编写两个过程，一个为setvalue，用于给p的各个字段赋值；另一个为display，用于显示其值。
这些代码如下：Dim p As PointPublic Sub setvalue(ByVal a As Integer, ByVal b As Integer)p.x = ap.y = bEnd SubPublic Sub display()MsgBox "(" + Str(p.x) + "," + Str(p.y) + ")"End Sub面向对象的编程通过将数据和过程结合成一个单一实体解决了上述问题，当把上面的用户定义类型Point变成一个CPoint类时，其数据变成了私有型，访问它们的过程移到类中并变成了属性和方法。
这就是所谓的封装，也就是说，对象是一个包括代码和数据的单元。
当从CPoint类创建一个变量（即创建该类的一个对象）时，访问其数据必须通过构成第9章创建和使用自己的类 201其接口的属性及方法。
现在，暂不要考虑如何将过程放进类中，也不要考虑如何理解属性过程和私有变量的语法。
重要的是要记住，可以定义一个对象来封装数据和确保数据的可靠性。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
⑤"过滤器索引"-FilterIndex "过滤器索引" 用途:当为对话框指定了一个以上的过滤器时,用于确定哪个过滤器作 为缺省过滤器.第一个过滤器索引值为1,第二个为2,依此类推.
9.2 对话框
9.2.1 通用对话框
"打开"对话框属性值: ⑥ "标志"-Flags 标志" 用途:用于确定对话框的一些特性,如是否允许同时选择多个文件等. 缺省扩展名" ⑦ "缺省扩展名"-DefaultExt 缺省扩展名 用途:当对话框用于保存文件时,如果文件没有指定扩展名,则使用该 属性指定的缺省扩展名,如:*.txt,*.doc *.txt, .doc等 ⑧ "文件最大长度"-MaxFile Size 文件最大长度" 文件最大长度 用途:用于指定文件的最大长度,单位为字节; ⑨ "取消引发错误"-CancelError 取消引发错误" 用途:用于确定运行时在对话框中按"取消"时是否出错.选择该项, 相 当于CancelError CancelError设为true true,按"取消"出错,否则,不出错. CancelError true
指定菜单行为:
值 0 2 位置常量 vbPopMenuLeftButton vbPopMenuRightButton 说明 缺省值,弹出式菜单中的命令只接受鼠标左键单击 缺省值,弹出式菜单中的命令只接受鼠标右键单击
若要同时指定菜单位置和行为,则将两个参数值用or or连接:0 or 2 0 or
9.1 菜单
9.1 菜单
9.1.2 弹出式菜单
Flags取值表: Flags
值 0 4 8 位置常量 vbPopMenuLeftAlign vbPopMenuCenterAlign vbPopMenuCenterRight 说明 缺省值,弹出式菜单的左上角位于坐标(x,y)处 弹出式菜单的上边框的中央位于坐标(x,y)处 弹出式菜单的右上角位于坐标(x,y)处
9.2.1 通用对话框
VB系统提供的基于Windows Windows的通用对话框: VB Windows ● "打开"对话框(Open Open) Open ● "另存为"对话框(Save Save) Save ● "颜色"对话框(Color Color) Color ● "字体"对话框(Font Font) Font ● "打印机"对话框(Printer Printer) Printer ● "帮助"对话框(Help Help) Help
9.1 菜单
9.1 下拉式菜单 [9-2]设计一个应用程序 通过菜单完成两个整数的加减运算. 设计一个应用程序, 例[9-2]设计一个应用程序,通过菜单完成两个整数的加减运算
Private Sub add_Click() Label1.Caption = "+" Label3.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub sub_Click() Label1.Caption = "-" Label3.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub
9.2 对话框
9.2.1 通用对话框
(1)"打开"对话框 程序运行后,将Action Action属性值设置为1或调用ShowOpen ShowOpen方法,即可弹出 Action ShowOpen "打开"对话框. 在"打开"对话框中,可指定要打开文件的路径,文件名和文件类型.
DialogTitle FileName Flags DefaultExt MaxFile Size InitDir Filter CancelError FilterIndex
9.1.2 弹出式菜单
x,y:指定显示弹出式菜单的x坐标和y坐标,省略时为鼠标的当前坐标; x,y DefaultMenu:指定弹出式菜单中要显示为黑体的菜单控件的名称,省略 DefaultMenu 时,则弹出式菜单没有以黑体字出现的菜单项; 在显示弹出式菜单时,一般把PopupMenu PopupMenu方法放在MouseDown MouseDown事件中,该事件 PopupMenu MouseDown 响应所有的鼠标单击事件. 通过鼠标右键打开弹出式菜单,可以用Button Button参数 Button 来判断,左键的Button Button参数为1,右键的Button Button参数为2. Button 1 Button 2 例[9-4]在上例的基础上将"运算" 菜单作为弹出式菜单显示. 例[9-5]设计一个弹出式菜单
9.1 菜单
9.1.2 弹出式菜单
弹出式菜单独立于菜单栏,直接显示在窗体上; 弹出式菜单通常是单击鼠标右键打开,又称为"右键菜单"或&##34;菜单编辑器"中,对最高一级菜单的"可见"属性设置为"False", 然后 调用PopupMenu PopupMenu方法将其作为快捷菜单显示出来,格式: PopupMenu 对象名].PopMenu 菜单名,[flags],[X],[Y], [对象名].PopMenu 菜单名,[flags],[X],[Y],[DefaultMenu] 其中: 对象名:可选项,默认为当前窗体; 菜单名:必选项,要显示的弹出式菜单名,是在菜单编辑器中定义的 主菜单标题,该主菜单标题至少含有一个子菜单; flags:可选项,是一个数值或符号常量,用于指定弹出式菜单的位置 和行为;
9.1 菜单
9.1 下拉式菜单
动态菜单的设计 动态菜单是指菜单项或菜单命令在程序的运行过程中有增有减; 可设计一个菜单控件数组,即同一菜单上享有相同的名称和事件过程的 一组菜单项(命令)的集合,通过菜单控件数组的下标来访问该数组中的 某一个具体菜单项或菜单命令. 使用load load方法在菜单控件数组中增加一个新的菜单项(命令),也可以 load 用Unload Unload方法从菜单控件数组中删除一个菜单项. Unload
9.1 菜单
9.1 下拉式菜单 "菜单编辑器"编辑区: "→":每单击一次该按钮,产生"….",称为内缩号,用来确定菜单项的 层 次,每单击一次,菜单项下移一个等级; "←":把选定的菜单上移一个等级; ← "↑":把选定的菜单在同级菜单内向上(前)移动一个位置; ↑ "↓":把选定的菜单在同级菜单内向下(后)移动一个位置; ↓ "下一个":开始一个新的菜单项(命令); "插入":在当前的菜单项前插入一个新的菜单项; "删除":删除当前的菜单项' "菜单编辑器显示区": 该区域显示了所创建的菜单,并通过"…."指明了它们的层次.
9.2 对话框
9.2.1 通用对话框
1,添加通用对话框控件 方法:系统菜单"工程"->"部件",选择"Microsoft Common Dialog Microsoft 6.0" Control 6.0
通用对话框控件
注:通用对话框在程序运行后不可见,故在设计时可将其放置在窗体的任何 地方
9.2 对话框
Visual Basic程序设计教程
第九章 菜单
内蒙古科技大学实践训练中心
9.1 菜单
菜单的种类:下拉式菜单,弹出式菜单 9.1 下拉式菜单 1,下拉式菜单结构 结构 : 主菜单栏,子菜单栏; 子菜单又分为:菜单命令或选项,子菜单标题和分隔条; 菜单命令或选项:可以直接执行; 子菜单标题:可以再拉出一级菜单; 分隔条:用于对于子菜单项进行分组; 2,设计下拉式菜单 进入菜单编辑器: ⑴执行"工具"菜单的"菜单编辑器"按钮; ⑵直接执行热键(快捷键) Ctrl+E Ctrl+E; ⑶单击"工具栏"上的"菜单编辑器"; ⑷在要建立菜单的窗体上单击鼠标右键,打开快捷菜单,执行"菜单 编 辑器";
9.1 菜单
9.1 下拉式菜单 "菜单编辑器"属性区:
属性名 标题(Caption) 名称(Name) 索引 快捷键 复选 有效 可见 显示窗口列表 属性值 字符型数据 字符型数据 整型数据 字符型数据 逻辑型数据 逻辑型数据 逻辑型数据 逻辑型数据 说明 指定菜单项或菜单命令显示的字符串 指定菜单控件的名称 指定一个数字来确定菜单项或菜单命令在菜单控件数 组中的序号,该序号与各菜单控件的位置无关 指定菜单命令的快捷键 指定是否允许在菜单项的左边设置复选标记 指定该菜单项是否可操作 设置是否将该菜单项显示在菜单上 在多重文档(MDI)程序中指定该控件是否包含一个打 开MDI子窗体列表
9.2 对话框
VB系统提供的对话框: VB系统提供的对话框: 系统提供的对话框 预定义对话框:即由InputBox MsgBox InputBox或MsgBox InputBox MsgBox函数创建的对话框; 通用对话框:用CommonDialog CommonDialog控件创建,如"打开对话框","字体" CommonDialog 对话 框等 ; 用户自定义对话框:用户根据自己的需要在窗体上添加各种控件来构成 自己需要的对话框;
9.2 对话框
9.2.1 通用对话框 "打开"对话框属性值:
①"对话框标题"-DialogTitle 对话框标题" 对话框标题 用途:用于设置对话框的标题; ② "文件名称"-FileName 文件名称" 文件名称 用途:用于设置打开对话框显示的初始文件名.若在对话框中选择了 一个文件并单击"打开"或"保存"按钮,则选择的文件(包 含路径) 即为FileName FileName属性的值; FileName ③"初始化路径"-InitDir "初始化路径" 用途:用于指定打开对话框的初始路径,若没有指定该属性,则使用 当前路径;