VB程序设计第7章_菜单设计
第7章VB过程和参数传递
VB程序设计教程
沈美莉 马银晓 陈孟建 编著
10
Function过程 第二节 Function过程
二、调用Function过程 调用 过程
Function过程的调用比较简单，可以象一个函数一样调用，其调用格式为： <过程名> = （[<实参表列>]） 【例题5.16】 编写一个求最大公约数（GCD）的函数过程，并调用该函数。 【程序代码】 （1）创建GCD函数 Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer Dim reminder As Integer Do While y <> 0 reminder = x Mod y x = y y = reminder Loop gcd = x End Function
VB程序设计教程
沈美莉 马银晓 陈孟建 编著
5
Sub过程 第一节 Sub过程
二、调用sub过程 调用 过程 调用Sub过程有两种方法，一种方法是使用Call调用过程语句来调 用过程，另一种方法是将过程名作为一个语句来使用。 call调用语句 1．用call调用语句 （1）格式 Call 过程名 [（<实参表>）] （2）功能 Call语句把程序控制传递到一个Visual Basic语言的Sub过程。 Call语句调用一个过程时，如果过程本身没有参数，则<实参表> 和括号可以省略；否则，应给出相应的实际参数，并把参数放在 括号中。实际参数是传递给sub过程的变量或常数的。 例如： Call ppa(a,b)
VB程序设计教程
沈美莉 马银晓 陈孟建 编著
18
第三节 参数的传递
例如： Function fac(a,b) …… …… fac = fa End Function 调用fac函数时，可以使用以下语句来完成： Private Sub Command1_Click() …… …… Call fac(x,y) End sub 以上程序中的a和b是两个形式参数，而 x和y是两个实际参数。这样就完成了形参 与实参的结合，其关系如下图所示。
VB课件弹出式菜单
1 弹出菜单 2 弹出菜单设计方法 3 为文本编辑器添加弹出菜单 4 上机操作
计算机网络教研室
1、弹出式菜单
弹出式菜单设计
也叫快捷菜单，是一组独立的菜单，在窗 体上浮动显示，一般随鼠标右键出现。
2、设计弹出式菜单
①在菜单编辑器中添加菜单，添加的方法与下拉 菜单相同，唯一的区别是顶级菜单不勾选“可见” 选项。 ②在“鼠标”事件中检测到按了鼠标右键，执行 命令：
Private Sub T4_Click() '全选 RTB.SelStart = 0 RTB.SelLength = Len(RTB.Text) End Sub
Private Sub T3_Click() '粘贴 RTB.SelText = Clipboard.GetText
End Sub
思考：这些程序与下拉菜单中的相同菜单命令的程序有什 么共同之处？可用什么方法避免程序的重复编写？
PopupMenu 菜单名，Flags，x，y ③为各菜单编写代码：与下拉菜单的代码编写一 样。
计算机网络教研室
为文本编辑器添加弹出菜单
在“菜单编辑器”末尾添加如下的菜 单：
计算机网络教研室
除“格式设置”项外， 其余菜单项要勾选“可 见”选项。
为文本编辑器添加弹出菜单
在增强文本框的鼠标事件中添加弹出菜单的代码： Private Sub RTB_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
计算机网络教研室
学生上机实战 完善自己的程序 添加更加丰富的快捷菜单
计算机网络教研室
课堂小结 本节主要学习了如下内容： 添加弹出式菜单 弹出式菜单顶级菜单项不可见。用PopupMenu命令弹出快捷菜单。 弹出菜单编程。
2019VB程序设计_第七部分
❖ Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset
❖ 连接数据库 conn.Open "dsn=data" '打开数据源（即选定操作的数据对象） rs.Open SQL语句, conn
❖ 但是如果是使用ODBC和OLEDB的方式进行连接，那么大家 一定知道在连接字符串上那一长串的代码，不要说对于初学 者，就是对于那些经验丰富的程序员来说，也很难记住这一 串代码。那么如何可以记住这一串代码呢？其实，方法很简 单，只要添加一个ADO Data控件，然后在其属性框中使用 向导进行设置后，那么最后向导就会自动生成一段 ConnectionString,只需要将这一行代码拷贝下来然后放到 conn.open之后的连接字符串参数的位置上就可以了。这条 经验希望读者能够记住，实际开发中很实用。
驱动程序来访问关系数据库。但是，RDO已被证明是许多
SQL Server、Oracle 以及其他大型关系数据库开发者经常
选用的最佳接口。RDO提供了用来访问存储过程和复杂结果
集的更多和更复杂的对象、属性，以及方法。
❖ 和DAO一样，在VB中也把其封装为RDO控件了，其使用方 法与DAO控件的使用方法完全一样。
本身也提供了对SQL语言的支持，用户可以直接将SQL语句
送给ODBC。
VB第7章 常用控件
教案讲稿第七章常用控件[旧课复习]：复习内容：1. 一维数组求和，求平均等2. 复习列表框组合框，为控件做准备复习目的：巩固一维数组，二维数组的应用复习时长：大约5分钟[新课导入]：导入方式：通过复习列表框引入本章节的常用控件，列举常用控件在日常软件中的使用方法。
导入目的：增强学生的学习积极性导入时长：大约5分钟[新课讲授]：重点：各种常用控件（单选按钮、复选框、滚动条、计时器）难点：计时器的应用（Interval属性,Timer事件）方法：运用多媒体辅助教学，采用案例教学和任务驱动等教学法。
7.1单选按钮单选按钮又称为选项按钮（OptionButton），单选按钮一般总是作为一个按钮组来完成工作的。
单选按钮组是一组相互排斥的选项按钮，在一般情况下，在单选按钮组中一次只能选择一个选项，如果一次要选择多个单选按钮，可以使用框架控件把单选按钮分组。
单选按钮的主要属性有：1．Caption属性：单选按钮的文本内容。
2．Value属性：单选按钮是否被选中的属性。
如果将该值为True或-1，单选按钮被选中，如果将该值为False或0，单选按钮未被选中。
3．Style属性：单选按钮的外观。
该值取0时，是标准的Windows风格；取1时，是图形风格。
单选按钮的事件：Click事件：单击单选按钮时触发该事件。
1．使用单选按钮控件【例7.1】设计一个简易血型选择器，用户界面如图7-1所示，由四个单选按钮和一个命令按钮以及一个文本框组成。
选中血型后单击“选择”按钮，结果显示在文本框中。
图7-1 简易血型选择器设计步骤如下：（1）建立应用程序用户界面。
（2）编写代码编写命令按钮Commandl的Click事件代码：Private Sub Command1_Click()If Option1.Value = True Then Text1.Text = "您是O型血"If Option2.Value = True Then Text1.Text = "您是A型血"If Option3.Value = True Then Text1.Text = "您是B型血"If Option4.Value = True Then Text1.Text = "您是AB型血"End Sub7.2 复选框复选框（CheckBox）可以从多个选择中选择一个或多个选项。
VB程序设计基础全集
1.1.2 Visual Basic的特点
4．提供了易学易用的应用程序集成开发环境 在Visual Basic的集成开发环境中，用户可设计界面、编写代 码、调试程序，直至将应用程序编译成可执行文件在 Windows上 运行，使用户在友好的开发环境中工作。
5．支持多种数据库系统的访问
利用 Visual Basic 的数据控件，可访问 Microsoft Access、 Dbase、Microsoft FoxPro、Paradox 等 ， 也 可 以 访 问 Microsoft Excel、Lotusl 1-2-3等多种电子表格。
录
Visual Basic 6.0程序设计概述 程序设计基础 结构化程序设计与数组 函数与过程 常用控件 图形控件和图形方法 对话框和菜单程序设计 文 件
第9章 数据库与数据访问技术
第1章 Visual Basic 6.0程序设 计概述
1.1 1.2 1.3 1.4 1.5 1.6 1.7
主
编 ：陈庆章
前 言
Visual Basic是目前进行Windows应用程序设计的最 佳工具之一，也是最佳的程序设计入门语言，这一看法 已经得到普遍认可。 非计算机专业计算机基础教学的 3 个不同层次，分 别解决的是“操作技能”、“思维训练”、“综合应用 能力”问题。学习一门程序设计语言，主要目的是要提 高读者分析归纳、解决问题的能力，在思维训练方面受 益，并使得读者通过更系统、深入的学习后开发实用程 序成为可能。 因此，本书在内容上精选了Visual Basic 6.0中最基 础、最常用并实用的部分；在编排和风格上力图体现循 序渐进、深入浅出的特点；以样本程序示例教学，阶段 性构筑读者的成就感，使得艰苦的程序设计工作升华为 一种艺术创作，提供了一条通往程序设计高手的捷径。
VB--ch7通用对话框
CommonDialog1. ShowPrinter 同 Action = 5 CommonDialog1. ShowHelp 同 Action = 6
设计时设置控件属性
• 右击窗体上的CommonDialog控件图标， 可以打开“属性页”对话框，如下图所示：
有5个选项卡, 用于对不同类 型的对话框进 行属性设置
CommonDialog1.Action = 4
Text1.FontName =CommonDialog1.FontName Text1 1.FontBold=CommonDialog1.FontBold
End Sub
例7.5
“字体”对话框示例。
编程：在文本框上显示文字，利用“字体”对 话框来设置所显示文字的字体、字型、大小、 颜色等。 知识点： 设置字体一定需要添加语句： CommonDialog1.Flags=1＋256 (屏幕字体加下划线、删除线、颜色组合框）
把对话框部件添加到工具箱步骤: “工程” “部件” 选中: Microsoft Common Dialog Control 6.0 对话框的类型由对话框控件的Action属性决定。 与Timer 控件一样，CommonDialog 控件
在程序运行时不可见。
通用对话框的重要属性 Action
Action属性只能在运行时设置: 只写
Text1.BackColor = CommonDialog1.Color
End Sub
例7.4 利用颜色对话框给shape着色
界面设计，如图所示。 在窗体上添加一个框架：在框架上画出6个单选 钮（控件数组）用来选择不同的形状； 形状控件、通用对话框控件、命令按钮各一个。 知识点：
这里采用了一组 控件数组来设计 单选钮，充分体 现使用控件数组 的优点
VB实习第七章
实习内容：例题7-1以下程序段用来在C盘根目录下建立一个名为test.txt的顺序文件。
例题7-2某班30名同学学习成绩如表7-2所示。
建立一个名为“student.txt”的顺序文件存放该班同学的学习成绩，每条记录包括学号、姓名、高数、英语、物理、计算机刘向数据。
例题7-3对例题7-2中生成的“student.txt”文件记录进行如下处理：（1）计算每个学生的平均成绩。
（2）将平均成绩大于或等于80分的记录写入“student1.txt”文件中。
例题7-4统计例题7-3中生成的“student1.txt”文件中的记录数。
例题7-5将例题7-2生成的顺序文件“student.txt”读出，按随机方式写入随机文件“student2.txt”中。
例题7-6从随机文件“student2.txt”中读出数据，计算平均成绩，并将大于或等于80分的学生成绩写入另一个随机文件“student3.txt”中。
例题7-7以二进制模式建立一个数据文件，其中的内容是随机产生的100个大写字母。
例题7-8以二进制方式读取文件text。
Txt，并将结果显示在文本框中。
例题7-9编写一个复制文件的程序。
例题7-10编写一个加密软件，要求将源文件按“字节逐位倒排序加密法”，加密。
习题7-3把随机产生的200个4位整数存入顺序文件file1.txt中。
事件代码为：Private Sub Command1_Click()Dim a(1 To 200) As Integer, i%, n%, m%For i = 1 To 200a(i) = Int(Rnd * 9000 + 1000)Next iOpen "H:\VB实习\周晓伟\实验七\file1.txt" For Output As #1For m = 1 To 200Write #1, a(m);If m Mod 20 = 0 ThenPrint #1,End IfNext mCloseEnd Sub运行结果为：习题7-4从第三题的file1.txt文件中读出数据存入数组a中，从中挑选出所有各位和百位是偶数的数据存入数组b中，并存储到随机文件file2.txt中。
VB菜单、工具栏、菜单栏设计
5.运行时改变状态栏
• 运行时，能重新设置窗格Panel对象以显示不同的 功能，这些功能取决于应用程序的状态和各控制 键的状态。有些状态要通过编程实现，有些系统 已具备。
• (6)Alignment属性 –该属性设置或返回该对象的标题文本对齐方式。 • (7)Bevel属性: –设置或返回该对象的斜面样式，0为没有显示斜面，1 为凹下显示，2为凸起显示。 • (8)AutoSize属性 –调整状态栏的大小后，该属性返回或设置确定Panel对 象的宽度值。 • (9)Count属性 –该属性返回Panels集合中Panels对象的数目。
菜单以分组的形式组织多个命令或操作，为 用户提供了操作应用程序的便捷手段。
工具栏以按钮的形式显示应用程序中最常用 的命令和操作。
状态栏用于显示应用程序的当前状态、键盘 状态以及当前日期和时间等。
6-1
菜单简介
菜单标题 菜单栏 分隔条 菜单选项 快捷键 访问键 子菜单标题 子菜单选项
6-2
设置StatusBar控件。在StatusBar控件上右击鼠标，调出其 属性页。在其中插入两个窗格，第一个窗格的文本设置为“提 示”，第二个窗格自动调整大小属性设置为为1，其他设置不 变。
1.状态栏控件的常用属性
• (1)Align属性 –该属性决定状态栏控件在窗体中的显示位置和大小。 其值为1～4，分别表示在窗体的顶部，底部，左边和 右边，且随窗体自动调整。 • (2)Style属性 –该属性设置或返回状态栏控件的样式。默认值0表示 Normal样式，正常显示所有Panel对象；值为1时表示 Simple样式，仅显示一个大窗格。 • (3)Height和Width属性 –该属性决定控件的高度和宽度。 • (4)Top属性 –该属性决定控件顶端距窗体顶端的距离。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第7章 菜单的设计
7.1 知识要点
7.2 习题与解答 7.3 实训指导 7.4 测验题
7.2习题与解答
1、常用的菜单有哪几种？ 答案：菜单一般分为下拉式菜单和弹出式菜单两种。 下拉式菜单位于多出现在菜单栏中，弹出式菜单显 示在窗体之上，是独立于菜单栏的浮动式菜单。 2、菜单的热键和快捷键有什么区别？ 答案：菜单热键的作用是同时按下Alt和菜单热键即可 打开该菜单，而菜单快捷键的作用是按下该键直接 执行响应菜单项的操作。通常，为顶级菜单项设置 热键，而为非定级菜单项设置快捷键。
在“菜单编辑器”中，有复选（Checked）复选 框用来对复选标记进行初始化设置，它对应菜单 项的Checked 属性，Checked属性只有True和 False两个取值，分别表明该菜单项当前处于活 动状态或非活动状态。 ③菜单项的隐藏与显示 应用程序菜单中的某些菜单项可以在必要的时候隐 藏起来，“可见（Visible）”属性决定菜单项 是否可见，它的默认值为True。
菜单标题：显现在菜单栏上的具体对象， 单击标题显示下拉菜单项。 菜单项：包含菜单命令、分隔条和子菜 单标题。 菜单热键：同时按下Alt和菜单热键即可 打开该菜单。 菜单快捷键：按下该键直接执行响应菜 单项的操作。
（2）菜单编辑器 Visual Basic应用程序中的菜单可以利 用“菜单编辑器”来进行设计，也可以 利用程序向导来生成。“菜单编辑器” 的主要优点是使用方便、简捷，可以用 编程量很少的完全交互方式来自定义菜 单。 进入“菜单编辑器”有四种方法：
3、菜单项响应的事件有哪些？ 答案：菜单项只响应一个事件，即鼠标单击事件 （Click）。 4、进入“菜单编辑器”有几种常用方法？ 答案：进入“菜单编辑器”有四种方法：①在设计状态下， 选择“工具”菜单下的“菜单编辑器”命令，或者在窗 体上单击右键，在随后弹出的快捷菜单中选择“菜单编 辑器”命令。②单击工具栏中的“菜单编辑器”快捷按 钮。③按Ctrl+E键。④在窗体的空白处右键单击，然后 单击弹出菜单中的“菜单编辑器”菜单项。
②编写代码 每个菜单项一般只能响应一个事件，即鼠标单击 （Click）事件。
③菜单项动态增减 菜单项能够随着应用程序的变化而动态地增减， 在具体实现过程中通常要利用到菜单控件数组。
3、菜单的控制 ①有效性控制 有些菜单命令在某些条件下是不可用的，不可用的菜单， 又称之为无效菜单，呈灰色显示，不响应用户事件。 菜单项的有效性由它的属性Enabled来控制。 ②菜单项的复选标记 所谓菜单项的复选标记，就是菜单项左侧的“√”记号， 它表明该菜单项当前处于活动状态，也就是说该菜单 项对应的命令只能表示两种状态，即活动状态与非活 动状态。
用来输入显示在窗体上的用户建立的菜单标题。
用来输入菜单项的名称。 用来输入menu控件数组元素的下标。 供用户在列表中为菜单项选择一个快捷键。 “复选”属性设置为True时，可以在相应的菜单项左侧加上一个“√”号。 “有效”属性决定菜单项是否有效。 “可见”属性决定菜单项是否可见。 调整菜单项级别。 调整菜单中各菜单项的顺序。 使得下一个菜单项进入编辑状态。 在选定的菜单项之前插入和该菜单项级别相同的菜单项。
5、利窗口中哪些项目是必须填写的。 答案：在用“菜单编辑器”进行菜单设计时，只有名称属 性是必须填写的，菜单标题可以为空，其他项目也都可 以不设置。 6、如何设计菜单控件数组？菜单数组中的菜单有哪些要求？ 答案：设计菜单数组控件时，只要把该数组中的所有菜单 项元素名称设为相同，索引值不同即可。菜单控件数组 中的各元素在菜单控件列表中必须是连续的，而且在同 一级别上。
第7章Biblioteka 菜单的设计第7章 菜单的设计
7.1 知识要点
7.2 习题与解答 7.3 实训指导 7.4 测验题
7.1知识要点
1、菜单与菜单编辑器 （1）菜单的基本概念 菜单：菜单就是可以选择命令的一个列表。 菜单分类：菜单一般分为下拉式菜单和 弹出式菜单两种。下拉式菜单位于多出 现在菜单栏中，弹出式菜单显示在窗体 之上，是独立于菜单栏的浮动式菜单。
表7-1
“菜单编辑器”的组成元素及其作用
组成元素 作用
标题（Caption）文本框
名称（Name）文本框 索引（Index）文本框 快捷键（Shortcut）列表 框 复选（Checked）复选框 有效（Enabled）复选框 可见（Visible）复选框 “←”和“→”按钮 “↑”和“↓”按钮 “下一个”按钮 “插入”按钮
“删除”按钮
菜单显示区域
删除选定的菜单项。
该区域用来显示用户为某一窗体设计的所有菜单项的标题。
2、菜单的设计
设计一个菜单，首先要列出菜单的组成；然 后，利用“菜单编辑器”按照菜单组成进行 设计；最后，再为每个菜单项编写事件代码。
①建立菜单 利用“菜单编辑器”将菜单中的菜单项、子菜 单以及菜单分组信息逐一建立好。
其中，“对象”是可选的。如果省略，则具有焦点的窗体 将成为默认对象。x和y是两个可选参数，分别指定显示 弹出式菜单的x坐标和y坐标。如果省略，则使用鼠标的 坐标。Flags参数的设置值和含义如下：
（1）Flags的默认值为0，弹出式菜单的左侧定位于x。 （2）Flags取值为4，x的位置是弹出式菜单的中心。 （3）Flags取值为8，弹出式菜单的右侧定位于x。
4、建立快捷菜单 快捷菜单的设计同样使用“菜单编辑器”。设计过 程中，通常把快捷菜单的顶层菜单项的可见 （Visible）属性设置为False。这样，程序运行 时，快捷菜单是不可见的。 显示快捷菜单的方法是PopupMenu，它的语法 格式为：
[对象.]PopupMenu <菜单项名>[，Flags[，x[，y]]]
①在设计状态下，选择“工具”菜单下的“菜 单编辑器”命令，或者在窗体上单击右键， 在随后弹出的快捷菜单中选择“菜单编辑器” 命令。 ②单击工具栏中的“菜单编辑器”快捷按钮。 ③按Ctrl+E键。 ④在窗体的空白处右键单击，然后单击弹出菜 单中的“菜单编辑器”菜单项。 “菜单编辑器”分上、中、下三部分，三部分 分别为属性设置去，中间为七个按钮区，下 面为菜单显示区。窗口中主要组成元素的作 用解释见表7-1。