VB程序设计 第九章 菜单
VB程序设计复习题答案
VB程序设计复习题
1．Visual Basic是一种___D___的可视化程序设计语言。
A．面向机器 B．面向过程 C．面向问题 D．面向对象2．Visual Basic主窗口中不包括____B_____。
A．标题栏 B．状态栏 C．工具栏 D．菜单栏
3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。
A．Load B．Unload C．DblClick D．KeyPress
4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是 ____A______。
A．单击窗体上没有控件的地方 B．单击任一个控件
C．双击任一个控件 D．双击窗体上没有控件的地方
5、要设置窗体上各控件的属性，可在 ____C___ 中进行。
A．窗体布局窗口 B．工程资源管理器窗口
C．属性窗口 D．窗体窗口
6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。
A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A)
7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。
A．="统计程序" B．Form1.Caption="统计程序"
C. Forml.Caption=统计程序 D．=统计程序
8．函数String(n, "str")的功能是 B 。
A．把数值型数据转换为字符串
B．返回由n个字符组成的字符串
C．从字符串中取出n个字符
D．从字符串中第n个字符的位置开始取子字符串
9、定义变量如下：
Dim MyVar
vb程序设计教程参考答案
1、B
2、A
3、B
4、答：属性：红色、充满氢气；事件：松手、针刺；方法：飞走、爆破。
5、答：事件是指对象能够识别并作出反映的外部刺激。事件驱动又称消息驱动，事件驱动
程序设计是指每个事件对应有相应的程序代码，仅在该事件发生时，该段代码才会被执行。事件发生的顺序决定了代码执行的顺序，因此每次执行应用程序时，程序代码并不是按照程序编写的顺序来执行的。
6、答：VB是一个包括界面设计、程序编码、调试、编译并创建可执行程序的集成开发环境。
VB的集成开发环境的主界面中包含：标题栏、菜单栏、工具栏、控件箱、工程资源管理器、属性窗口、“窗体布局”窗口、窗体设计器、代码编辑器等元素组成。
7、答： VB菜单条通常情况下有：文件、编辑、视图、工程、格式、调试、运行、查询、
图表、工具、外接程序、窗口、帮助等13项菜单项组成。
8、答：工具栏可自行定义。标准工具栏中通常情况下有：添加标准exe工程、添加窗体、
菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤消、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视化元件管理器等按钮组成。
9、答：创建VB应用程序的一般步骤为：创建界面；设置窗体和控件属性；编写代码；保
存工程；运行并调试程序；检查并排除错误；创建可执行文件。
10、
Private Sub Command1_Click()
Label1.Caption = "I love vb,I hate vb"
End Sub
1、2、
3、S1 输入待判断自然数： N（N>=2）；
VB程序设计教程课后参考答案概要
VB程序设计教程课后参考答案习题一
一、填空题
1．对象、事件驱动
2．窗体、控件
3．属性
4．属性窗口、编程设置
5．事件过程
6．对象名、下划线、事件名
7．Form_click
8．Print form1.print “我的VB”
9．主窗口、属性、工具箱、代码、窗体、工程资源管理
10．菜单、快捷键
二、选择题
1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略）
习题二
一、选择题
1. D
2. C
3. C
4. B
5. C
6. B
7. C
8. B 9. A 10. B 11. B 12. C 13. D 14. B
15. A 16. A 17. A 18. A 19. B 20. C 21. A
22. B 23. B 24. A 25. C 26. A 27. B 28. B
29. C 30. B 31. D 32. D 33. C
二、填空题
1．Controlbox、Maxbutton、Minbutton
2．Multiline TRUE
3．******
4．单文档界面（SDI）多文档界面（MDI）
5．窗体显示
6．Passwordchar
7．_change()
三、编程题（略）
习题三
一、基础知识题（略）
二、填空题
1．整型、长整型、单精度、双精度
2．(x mod 10)*10+x\10
3．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)
4．(a+b)/(1/(c+5)-c*d/2)
5．X mod 5=0 or x mod 9=0
VB程序设计基础全集
前 言
本书的编写得到了浙江省高校计算机教学研究会的 大力支持。本书共分9章，第1、第7章由浙江科技学院 的罗朝盛教授编写，第2、第3、第4、第6章由浙江工 业大学的胡同森副教授编写，第5章由浙江理工大学的 庄红副教授编写，第8章由胡同森和浙江师范大学的朱 建新编写，第9章由杭州电子科技大学的郭艳华副教授 编写。附录部分包括ASCII字符集、Visual Basic常用 系统函数、Visual Basic常用属性、Visual Basic常用 事件、Visual Basic常用方法以及部分对象能使用的常 用方法，为大家使用Visual Basic进行程序设计提供查 找资料的方便。全书由浙江工业大学陈庆章担任主编， 由胡同森统稿。
1.1.1 Visual Basic的发展过程
Visual Basic 5.0/6.0有3种版本，分别为学习版、专业版和企 业版。 ◆ 学习版：它是最基本的版本，允许编写许多类型的程序，与其他 版本相比，所带工具较少。 ◆ 专业版：为专业人员而设计，它不仅包含了学习版的全部内容， 还包含了许多其他功能，如具有创建 ActiveX 控件和 ActiveX 文档 的能力；提供Internet开发功能，具有更多使用数据库的工具。 ◆ 企业版：这是Visual Basic 6.0最完善的版本，该版本主要用于开 发企业级分布式应用程序，它包含了许多附加工具，提供了完全 集成SQL Server的所有工具。 这 3 个版本是在相同的基础上建立起来的，以满足不同层次 用户的需要。对大多数用户来说，专业版就可以满足要求。本书 使用的是Visual Basic 6.0的企业版（中文），书中介绍的内容尽 量做到与版本无关。
vb程序设计教程ZW9
第9章过程9.1 Sub过程
9.1.1建立Sub过程
1. 定义Sub过程
2
VisualBasic程序设计教程(第三版)
2. 建立Sub过程
图9.1“添加过程”对话框
图9.2模块代码窗口
9.1.2调用Sub过程
1. 用Call语句调用Sub过程
2. 把过程名作为一个语句来使用
VisualBasic程序设计教程(第三版) 3
图9.3时间延迟
4
VisualBasic程序设计教程(第三版) 9.1.3通用过程与事件过程
VisualBasic程序设计教程(第三版) 5
6
VisualBasic程序设计教程(第三版) 9.2 Function过程
9.2.1建立Function过程
VisualBasic程序设计教程(第三版) 7 9.2.2调用Function过程
图9.4输出随机数
8
VisualBasic程序设计教程(第三版)
图9.5求平方根
VisualBasic程序设计教程(第三版) 9
图9.6 Visual Basic应用程序中的过程
9.3参数传送
9.3.1形参与实参
1. 按位置传送
图9.7形参与实参
2. 指名传送
10
VisualBasic程序设计教程(第三版) 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 语句示例
VB菜单、工具栏、菜单栏设计
工具栏以按钮的形式显示应用程序中最常用 的命令和操作。
状态栏用于显示应用程序的当前状态、键盘 状态以及当前日期和时间等。
6-1
菜单简介
菜单标题 菜单栏 分隔条 菜单选项 快捷键 访问键 子菜单标题 子菜单选项
6-2
5.运行时改变状态栏
• 运行时，能重新设置窗格Panel对象以显示不同的 功能，这些功能取决于应用程序的状态和各控制 键的状态。有些状态要通过编程实现，有些系统 已具备。
插入按钮，并设置每个按钮的标题，根据提示文 本，以及所对应的图像编号。
6-5
状 态 栏
状态栏用于显示系统信息、菜单、按钮或其他控件的 功能或操作方法、键盘的状态、鼠标当前的位置、光 标当前的位置等，它以一长方条置于窗体的底部。
StatusBar控件提供了设置状态栏的功能，该控件由 最多十六个面板构成，每个面板都有一个Panel对象。
说明： 1、省略窗体名，将打开当前窗体的菜单。 2、“菜单名”是指菜单的名称。
6-5
工 具 栏
添加工具后的工具箱
设置ImageList控件 在ImageList1控件上右击鼠标，选择属性窗口。 将高度×宽度设置为16 ×16。
向图像框添加作为工具栏按钮的图像。
设置ToolBar控件。在ToolBar1控件上右击鼠标， 调出其属性页窗体。设置图像列表为ImageList1。
VB教案(菜单设计)
下拉菜单的设计
总结词
节省空间，提供更多选项
详细描述
下拉菜单是一种节省空间的菜单设计，用户可以通过点击一个按钮或菜单项来展开更多的选项。这种设计特别适 合在有限的空间内提供大量选项的情况。在设计时，应注意合理安排下拉菜单的深度和宽度，以便用户能够快速 找到所需选项。
弹出菜单的设计
总结词
灵活多变，提供额外信息
VB菜单设计的未来发展趋势
智能化
随着人工智能和机器学习技术的不断发展，VB菜单设计将 更加智能化，能够根据用户的行为和习惯进行自适应调整， 提供更加个性化的使用体验。
动态化
动态化是未来VB菜单设计的一个重要趋势，通过实时获取 数据和信息，动态生成菜单项和功能，以满足用户不断变 化的需求。
交互性增强
保持菜单的简洁明了
避免冗余
避免在菜单中添加过多的功能或选项，以免让用户感到困惑 。
清晰分类
将相关功能进行分类，并使用简洁的文字描述，以便用户快 速理解。
避免使用过多的级联菜单
层级深度
尽量减少菜单的层级深度，避免用户 在多个级联菜单中迷失。
扁平化设计
采用扁平化的设计理念，减少层级的 嵌套，提高用户体验。
双击事件
当用户双击某个菜单项时触发 的事件，可以用于执行特殊操 作或快捷方式。
上下文菜单事件
当用户右键点击某个对象并选 择弹出菜单中的选项时触发的
VB教程(第2版) 第9章 鼠标、键盘和OLE
9.1.1 鼠标事件
当在图片框中移动鼠标时，不断地画线和画方块，实现连续画线和方块。 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '在图片框中移动鼠标 If Button = 1 And C2 = 1 Then Select Case C1 Case 1 Picture1.Line -(X, Y) Case 2 Picture1.Line (X1, Y1)-(X, Y), , BF End Select End If End Sub
9.2 键盘事件
【例9-3】在文本框中输入学生的学号和密码，并在输入时检测按键的有效 性。 功能要求：在输入用户名的文本框中输入用户名，在按键时判断如果不是 字母键则将按键取消并将焦点设置在文本框，输入用户名超过8位时提示出错。 运行界面如图9.5所示，当输入用户名超过8位时的显示。
图9.5 运行界面
9.1.1 鼠标事件
说明： （1）Button表示是哪个鼠标键被按下或释放。用0、1、2三个位表示鼠标 的左、右、中键，每位用0、1表示被按下或释放，三个位的二进制转换成十进 制就是Button的值，如图9.1所示，表9.1列出了按钮与常数值的对应关系。
十进制 0 1 2 3 4 5 6 7
VB程序设计课件(全套)
第一章 Visual Basic程序设计概述（2） 第二章 VB简单的程序设计（6） 第三章 VB语言基础（4） 第四章 基本的控制结构（8） 第五章 数组（5） 第六章 过程（4） 第七章 常用控件（2） 第八章 界面设计（2） 第九章 文件（2） 第十章 图形（1） 第十一章 数据库技术（自学） 第十二章 系统开发案例 （自学）
“代码”框
“过程查看”按钮 “全模块查看”按钮
18
上一页
下一页
1.4.5 工具箱窗口
图形框(Picture Box)
本章目录
工具箱窗口由 21个被绘制成按钮形式的 文本框(Text Box) 图标所构成，显示了各种控件的制作工 命令按钮(Command Button) 具，利用这些工具，用户可以在窗体上 单选按钮(OptionButton) 设计各种控件。其中20个控件称为标准 列表框(List Box) 控件 (注意，指针不是控件，仅用于移动 垂直滚动条(VScrollBox ) 窗体和控件，以及调整它们的大小 )。 驱动器列表框(DriveListBox) 用户也可通过工程 | 部件命令将来装入 文件列表框(FileList Box) Windows 中注册过的其他控件装入到工 直线(Line) 具箱。
22
上一页
下一页
本章目录
例：工具箱内的TextBox是类，它确定了TextBox的属性、方 法和事件。窗体上显示的是两个Text对象 。
VB程序设计教程课后答案
第3章：略（在书本上） 1、 合法的有： （1）单精度（3）单精度（4）双精度（6）整形（7）字符型（9）日期型（10）双精度（12） 八进制表示（14）十六进制表示（15）逻辑型（18）单精度数 2、 合法变量有： （1） ， （2） ， （ 6） ， （9） ， （10） ， （11）
3、 算术表达式写成 VB 表达式 （1）| x+y | + z5 abs(x+y) +z^5
4、 根据条件写出相应的 VB 表达式 (1) chr( int ( Rnd * 10 +67 ) (2) int ( Rnd * 101 +100 ) (3) x * y >0 (4) x%5=0 or x % 7 =0 (5) (x mod 10) 10 + x /10 (6)Round(123.2389*100)/100 (7) Ucase (c ) >=”A” and Ucase(c )<=”Z” or Lcase (c ) >=”a” and Lcase(c )<=”z” (8) Mid ( s, 5, 6 ) (9) x >=10 and x <20 (10) ( x < z and y >z ) or ( x >z and y < z) (11) x>z and y > z 5、 下出下列表达式的值: （1） 123+23 mod 10 \ 7 +Asc(“A”) 188, （2） 100+”100” & 100 200100 （3） Int ( 68.555*100+0.5)/100 68.56 （4） 已知 A$=“87654321”，求表达式 Val(Left$(A$,4)+ Mid(A,4,2))的值 876554 （5）DateAdd(“m”,1,#1/30/2000#) 2000-2-29 （6） Len（”VB 程序设计”） 6 6、 略
VB菜单、工具栏、菜单栏设计
02
工具栏设计
工具栏的种类
主工具栏
包含常用命令的综合性工具栏，方便 用户快速访问常用功能。
自定义工具栏
用户可以根据自己的需求创建自定义 工具栏，添加或删除按钮，以适应特 定工作流程。
浮动工具栏
可移动到屏幕任意位置的工具栏，方 便用户在不同区域使用。
停靠工具栏
可以自动停靠在窗体边缘的工具栏， 便于用户快速访问常用命令。
VB菜单、工具栏、菜 单栏设计
目录
• VB菜单设计 • 工具栏设计 • 菜单栏设计 • VB界面设计中的注意事项 • VB界面设计实例分析
01
VB菜单设计
菜单的类型
下拉菜单
下拉菜单是常见的菜单类型，用户点击菜单 项后，会弹出下拉列表供用户选择。
弹出菜单
弹出菜单通常在用户右键点击时出现，提供 一些常用的功能或操作。
用户友好
提供快捷键、下拉菜单等辅助功能，方便用 户快速操作。
菜单栏的创建过程
确定菜单项
根据应用程序的需求，确定需要哪些菜单项。
添加功能
为每个菜单项添加相应的功能，如弹出子菜 单、执行命令等。
设计布局
根据设计原则，选择合适的布局方式。
测试与调整
在实际使用中测试菜பைடு நூலகம்栏的功能和布局，根 据反馈进行调整。
工具栏的设计原则
用户友好
VB程序设计第2版第9章
h
18
9.3.1 框架(Frame)
• 1. 作用: 作为容器，对控件进行分组；修饰界面。 • 2. 如何将控件放在容器中
➢选中容器，在容器中直接画 ➢选中容器，粘贴控件 • 3. 如何检查控件是否在容器中 ➢拖动容器，控件随容器移动； ➢拖动控件只能在容器中移动 • 4. 选中框架中的多个控件: Ctrl+拖动；Shift+单击 • 5. 删除容器时，其中的控件随之被删除 • 6. 框架的常用属性 ➢Caption: ➢Font: ➢Enabled:设置为False时框架中的控件无效。
•
Select Case KeyCode
•
Case vbKeyUp
•
Shape1.Top = Shape1.Top - 100
•
Case vbKeyDown
•
Shape1.Top = Shape1.Top + 100
•
Case vbKeyLeft
•
Shape1.Left = Shape1.Left - 100
•
Command1.Font.Italic = True
•
【例9-1】自学 P170 例9-1
Fra Baidu bibliotek
h
6
9．MousePointer、MouseIcon属性
➢ MousePointer属性：返回或设置一个值，指示在运行时当鼠标移动到对象上
vb练习题,电子版 第9章 过程
第九章过程
教学要求：
了解VB 6.0过程的分类，掌握Sub过程和Function过程的建立、定义、调用的不同方法；掌握形参、实参的概念，掌握引用、传值、可选参数、可变参数以及对象参数的概念；掌握数组参数、窗体参数、控件参数的概念和使用，熟练使用Sub过程和Function过程设计应用程序；局部内存分配方法；过程嵌套调用和递归调用；Shell函数的使用。
知识点：
Sub过程和Function过程的定义、调用；形参和实参的语法和使用；各种类型的参数传递；局部内存分配方法;过程嵌套调用和递归调用;Shell函数的使用。
内容导航：
一、过程
（一）Sub过程
1．建立Sub过程
通用Sub过程的一般格式如下：
[Static][Private][Public]Sub 过程名[(参数列表)]
语句块
[Exit Sub]
[语句块]
End Sub
2．调用Sub过程
调用引起过程的执行。也就是说，要执行一个过程，必须调用该过程。Sub过程的调用有两种方式如下：
第一种方式：把过程的名字放在Call语句中，调用格式为：Call 过程名[(实际参数)]
第二种方式：把过程名作为语句来使用，在调用Sub过程时，如果省略关键字Call，就成为调用Sub过程的第二种方式。
3．通用过程与事件过程
控件事件过程的一般格式为：
[Private| Public]Sub 控件名_事件名(参数表)
语句组
End Sub
窗体事件过程的一般格式为：
[Private|Public]Sub Form_事件名(参数表)
语句组
End Sub
（二）Function过程
第九章vb6.0图形程序设计
第九章图形程序设计9.1 图形控件
图形控件包括图片框控件、图像框控件、直线控件和形状控件4种，其中图片框和图像框是用来放置图片的，在第5章中已经介绍过，本节介绍另外两种图形控件。
9.1.1直线控件
直线控件用来创建直线。它的使用方法与其他控件相同，在工具箱中单击直线控件图标，将鼠标移动到窗体上，在所需位置开始拖动鼠标，拖动到合适处后释放鼠标，则在鼠标的拖动起点与终点之间就出现了一段直线，如图9.1所示。
单击直线可选中它，并且在直线的两端出现两个小方块。将鼠标指针移动到某个方块上，则指针变成一个十字形，此时拖动鼠标，可以更改该直线的长度与方向，如图9.2所示。也一可以拖动鼠标来改变直线的位置。
直线控件的属性较其他控件要少得多，主要用来设置直线的宽度、颜色以及线型等。
只有直线的宽度为1（BorderWidth=1）时，BorderStyle属性的7个取值才都有效，否则BorderStyle属性的取值只有0和6有效。例如，直线的宽度为2时，不能将其设置为虚线。如图9.3所示的是各种线型的比较，从上到下，各直线控件的BorderStyle属性的值依次为1~6。
与其他控件不同的是，直线控件没有任何事件。因此，在程序运行时，它不能响应用户的任何操作。
9.1.2 形状控件使用形状控件可以方便地在窗体上绘制出矩形、正方形、圆、椭圆、圆角矩形和圆角正方形等5种基本几何图形。使用形状控件的方法与其他控件相同，这里不再赘述。
形状控件的Shape属性是它很主要的一个属性，该属性决定了形状控件所绘制图形的类型。表9.3中列出了Shape属性的值及含义。
程序设计教案VB版第九章
第九章 解析交会定点程序设计原理
§9-1 概述
在地形测量及普通工程测量中，当用三角锁（网）或导线的方法布设的平面控制点密度不足时，还可用解析交会定点的方法进行加密。所谓解析交会定点的测量方法，就是根据几个平面已知点，测定一个或少量的几个未知点的平面坐标的测量方法。首先，在实地布设一个较为简单的图形，然后，用经纬仪测量水平角，或另外再用测距仪（或全站仪）测定某条（或某些）边，经过计算求得未知点的坐标。本章简要介绍交会定点的外业，重点介绍内业。 一、解析交会测量的外业概述
解析交会的图形很多，下面先介绍一些基本图形，较为复杂的图形将在本章后面介绍。 1、单三角形：如图9-1所示。已知点为A 、B ，未知点为P 。分别在A 、B 、P 三点上设站，观测水平角γβα、、。
2、前方交会：如图9-2所示。已知点为A 、B 、C ，未知点为P 。分别在A 、B 、C 三点上设站，观测水平角2211βαβα、、、。
3、侧方交会：如图9-3所示。已知点为A 、B 、C ，未知点为P 。分别在A 、P 两点上设站，观测水平角εγα、、。
4、后方交会：如图9-4所示。已知点为221121)()(C B C B A A 、、、，未知点为P 。只在P 点上设站，观测各方向之间的水平夹角。
图9-1 单三角形 图9-2 测角前方交会
图9-3 侧方交会 图9-4 后方交会
二、解析交会测量的内业概述
根据坐标计算原理可知，为了求得一点的坐标，必须知道从已知点到该点的边长及坐标方位角。对于解析交会定点的有些图形来说，只测定了角度，而没有测定边长，所需边长要通过解算三角形才能获得。坐标方位角则有的可以直接计算，有的也要解算三角形才能求得。 在实际工作中，为确保计算结果可靠，首先需要对外业观测资料进行认真、仔细地检查。在确认外业观测成果无误、且符合规范要求时，再抄录已知数据，然后，即可开始正式计算。 交会点的坐标，通常是按某种交会图形所对应的公式进行计算。一般说来，所有的计算公式，都是按照一定图形上点、角的代号和排列顺序推导出来的。因此，在计算之前，应根据所采用的公式的要求，对实测图形的点、角进行编号，否则，将导致错误的计算结果。 下面分别介绍各种交会图形的计算公式。 §9-2 单三角形
VB菜单使用方法
VB菜单使用方法
1、新建VB菜单：在工具箱中拖动菜单控件到窗体，菜单控件会在窗
体的顶部显示一个框（如果需要，可以重新设置该框的大小）；
2、设置菜单名称：右键单击菜单控件，在弹出的菜单中选择“属性”，将“名称”属性设置为任意合法的名称，它将在菜单项的第一层显示；
3、添加菜单项：右键单击菜单控件，在弹出的菜单中选择“属性”，利用“项”属性，可以设置菜单的子菜单，只需要在列表中添加项来添加
新的子菜单；
4、设置子菜单的名称：右键单击菜单控件，在弹出的菜单中选择
“属性”，设置“项文本”属性，它将显示在菜单项的第二层；
5、添加动作：右键单击菜单项，在弹出的菜单中选择“属性”，可
以设置“菜单项文本”属性，还可以在“动作”属性中添加新动作；
6、保存菜单：操作完成后，可以保存菜单，将它保存在已有的文件
中就可以使用；
7、运行菜单：在菜单上单击鼠标右键，释放后，就会显示菜单，可
以点击菜单的任意一个选项，将会调用相应的代码；
8、多级菜单：可以在单一菜单中添加子菜单，子菜单可以又添加子
菜单，这样就可以创建多级菜单；
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第九章 菜单
ptc.imust.cn
内蒙古科技大学实践训练中心
9.1 菜单
菜单的种类:下拉式菜单,弹出式菜单 9.1 下拉式菜单 1,下拉式菜单结构 结构 : 主菜单栏,子菜单栏; 子菜单又分为:菜单命令或选项,子菜单标题和分隔条; 菜单命令或选项:可以直接执行; 子菜单标题:可以再拉出一级菜单; 分隔条:用于对于子菜单项进行分组; 2,设计下拉式菜单 进入菜单编辑器: ⑴执行"工具"菜单的"菜单编辑器"按钮; ⑵直接执行热键(快捷键) Ctrl+E Ctrl+E; ⑶单击"工具栏"上的"菜单编辑器"; ⑷在要建立菜单的窗体上单击鼠标右键,打开快捷菜单,执行"菜单 编 辑器";
9.1 菜单
9.1 下拉式菜单 例[9-1]利用菜单命令,控制标签的显示和隐藏
Private Sub m_11_Click() Label1.Visible = True End Sub Private Sub m_menu1_Click() Label1.Visible = False End Sub
9.1 菜单
9.1 下拉式菜单
动态菜单的设计 动态菜单是指菜单项或菜单命令在程序的运行过程中有增有减; 可设计一个菜单控件数组,即同一菜单上享有相同的名称和事件过程的 一组菜单项(命令)的集合,通过菜单控件数组的下标来访问该数组中的 某一个具体菜单项或菜单命令. 使用load load方法在菜单控件数组中增加一个新的菜单项(命令),也可以 load 用Unload Unload方法从菜单控件数组中删除一个菜单项. Unload
9.1 菜单
9.1 下拉式菜单 "菜单编辑器"编辑区: "→":每单击一次该按钮,产生"….",称为内缩号,用来确定菜单项的 层 次,每单击一次,菜单项下移一个等级; "←":把选定的菜单上移一个等级; ← "↑":把选定的菜单在同级菜单内向上(前)移动一个位置; ↑ "↓":把选定的菜单在同级菜单内向下(后)移动一个位置; ↓ "下一个":开始一个新的菜单项(命令); "插入":在当前的菜单项前插入一个新的菜单项; "删除":删除当前的菜单项' "菜单编辑器显示区": 该区域显示了所创建的菜单,并通过"…."指明了它们的层次.
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.2 对话框
9.2.1 通用对话框 "打开"对话框属性值:
①"对话框标题"-DialogTitle 对话框标题" 对话框标题 用途:用于设置对话框的标题; ② "文件名称"-FileName 文件名称" 文件名称 用途:用于设置打开对话框显示的初始文件名.若在对话框中选择了 一个文件并单击"打开"或"保存"按钮,则选择的文件(包 含路径) 即为FileName FileName属性的值; FileName ③"初始化路径"-InitDir "初始化路径" 用途:用于指定打开对话框的初始路径,若没有指定该属性,则使用 当前路径;
9.2.1 通用对话框 2,通用对话框的属性
在窗体上添加通用对话框后,可在属性窗口中单击"自定义"的按钮或 者 用鼠标右键单击对话框控件,打开"属性"选项. 3,通用对话框的使用 通过设置不同的Action Action属性值(只能在程序中设置)或调用不同的方法 Action 来决定对话框的类型
显示的对话框 "打开"对话框 "另存为"对话框 "颜色"对话框 "字体"对话框 "打印机"对话框 "帮助"对话框 方法 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp Action属性值 Action 1 2 3 4 5 6
⑤"过滤器索引"-FilterIndex "过滤器索引" 用途:当为对话框指定了一个以上的过滤器时,用于确定哪个过滤器作 为缺省过滤器.第一个过滤器索引值为1,第二个为2,依此类推.
9.2 对话框
9.2.1 通用对话框
"打开"对话框属性值: ⑥ "标志"-Flags 标志" 用途:用于确定对话框的一些特性,如是否允许同时选择多个文件等. 缺省扩展名" ⑦ "缺省扩展名"-DefaultExt 缺省扩展名 用途:当对话框用于保存文件时,如果文件没有指定扩展名,则使用该 属性指定的缺省扩展名,如:*.txt,*.doc *.txt, .doc等 ⑧ "文件最大长度"-MaxFile Size 文件最大长度" 文件最大长度 用途:用于指定文件的最大长度,单位为字节; ⑨ "取消引发错误"-CancelError 取消引发错误" 用途:用于确定运行时在对话框中按"取消"时是否出错.选择该项, 相 当于CancelError CancelError设为true true,按"取消"出错,否则,不出错. CancelError true
9.1 ቤተ መጻሕፍቲ ባይዱ单
9.1.2 弹出式菜单
Flags取值表: Flags
值 0 4 8 位置常量 vbPopMenuLeftAlign vbPopMenuCenterAlign vbPopMenuCenterRight 说明 缺省值,弹出式菜单的左上角位于坐标(x,y)处 弹出式菜单的上边框的中央位于坐标(x,y)处 弹出式菜单的右上角位于坐标(x,y)处
9.2 对话框
9.2.1 通用对话框
1,添加通用对话框控件 方法:系统菜单"工程"->"部件",选择"Microsoft Common Dialog Microsoft 6.0" Control 6.0
通用对话框控件
注:通用对话框在程序运行后不可见,故在设计时可将其放置在窗体的任何 地方
9.2 对话框
9.2 对话框
VB系统提供的对话框: VB系统提供的对话框: 系统提供的对话框 预定义对话框:即由InputBox MsgBox InputBox或MsgBox InputBox MsgBox函数创建的对话框; 通用对话框:用CommonDialog CommonDialog控件创建,如"打开对话框","字体" CommonDialog 对话 框等 ; 用户自定义对话框:用户根据自己的需要在窗体上添加各种控件来构成 自己需要的对话框;
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.1 菜单
9.1.1 下拉式菜单
动态菜单的设计 例[9-3]才菜单中动态添加"乘法"和"除法"操作. [9-3]才菜单中动态添加"乘法" 才菜单中动态添加 除法"操作. 解题思路:当单击窗体时,调用load load方法,利用控件数组appendcal appendcal为菜单 load appendcal 增加两个子菜单;当双击窗体时,调用unload unload方法将新增的两个子菜单删除. unload Appendcal_click事件是新增的两个菜单的共用事件,当作乘法操作时,参 Appendcal_click 数index index的值为1,作除法时为2. index 1 2
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 下拉式菜单 "菜单编辑器"属性区:
属性名 标题(Caption) 名称(Name) 索引 快捷键 复选 有效 可见 显示窗口列表 属性值 字符型数据 字符型数据 整型数据 字符型数据 逻辑型数据 逻辑型数据 逻辑型数据 逻辑型数据 说明 指定菜单项或菜单命令显示的字符串 指定菜单控件的名称 指定一个数字来确定菜单项或菜单命令在菜单控件数 组中的序号,该序号与各菜单控件的位置无关 指定菜单命令的快捷键 指定是否允许在菜单项的左边设置复选标记 指定该菜单项是否可操作 设置是否将该菜单项显示在菜单上 在多重文档(MDI)程序中指定该控件是否包含一个打 开MDI子窗体列表
指定菜单行为:
值 0 2 位置常量 vbPopMenuLeftButton vbPopMenuRightButton 说明 缺省值,弹出式菜单中的命令只接受鼠标左键单击 缺省值,弹出式菜单中的命令只接受鼠标右键单击
若要同时指定菜单位置和行为,则将两个参数值用or or连接:0 or 2 0 or
9.1 菜单
9.2 对话框
9.2.1 通用对话框 "打开"对话框属性值:
④"过滤器"-Filter "过滤器" 用途:用于指定在对话框的文件类型列表框中所要显示的文件类型. 如:选择过滤器为*.txt,,表示显示所有的文本文件. *.txt 通常给每个过滤器一个描述,使用管道符号"|"将过滤器描述和过滤 | 器隔开;如:下列代码用于设置一个过滤器,其允许打开"文本文件 (*.txt),或含有位图和JPG JPG图形的文件(*.bmp;*.jpg : (*.bmp;*.jpg): (*.txt) JPG (*.bmp;*.jpg 文本文件(*.txt) | *.txt | 图形文件 图形文件(*.bmp;*.jpg) | *.bmp;*.jpg 文本文件 描述 过滤器 描述 过滤器
9.1 菜单
9.1.2 弹出式菜单
弹出式菜单独立于菜单栏,直接显示在窗体上; 弹出式菜单通常是单击鼠标右键打开,又称为"右键菜单"或"快捷菜单"; 创建方法: 创建方法: 在"菜单编辑器"中,对最高一级菜单的"可见"属性设置为"False", 然后 调用PopupMenu PopupMenu方法将其作为快捷菜单显示出来,格式: PopupMenu 对象名].PopMenu 菜单名,[flags],[X],[Y], [对象名].PopMenu 菜单名,[flags],[X],[Y],[DefaultMenu] 其中: 对象名:可选项,默认为当前窗体; 菜单名:必选项,要显示的弹出式菜单名,是在菜单编辑器中定义的 主菜单标题,该主菜单标题至少含有一个子菜单; flags:可选项,是一个数值或符号常量,用于指定弹出式菜单的位置 和行为;
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 菜单
9.1 下拉式菜单 "菜单编辑器"属性区: 说明: ⑴"名称"属性是菜单项的必要属性,必须给定; ⑵在输入菜单标题时在某个字母前输入一个&符号.该字母就成了热 键,在窗体上显示时该字母带有下划线,操作时用Alt+该字母就激活 菜单或执行该菜单命令; ⑶分隔符:在菜单的标题栏输入"-"号,则菜单显示时形成一个分隔 符