2下拉式菜单8.1.2·例8.1仿照Windows附件中的“记事本”，创建下拉式“文件”菜单，如图8.3所示图8.3例8.1下拉式菜单窗体6
6 8.1.2 下拉式菜单 • 例8.1 仿照Windows附件中的“记事本” ，创建下 拉式“文件”菜单，如图8.3所示。 图8.3 例8.1下拉式菜单窗体
弹出式菜单8.1.3用户在某个对象上单击右键所弹出的菜单，显示位置取决于单击鼠标时的位置；设计过程与普通菜单相同，需要在“菜单编辑器”内不选中“可见复选框”显示弹出式菜单的方法：[对象].PopupMenu菜单名[，标志，x,y]x，y是快捷菜单显示的位置0---弹出快捷菜单在鼠标右侧4---弹出快捷菜单在鼠标中间。8---弹出菜单在鼠标左侧使用MouseDown事件弹出菜单Button=1（单击鼠标左键）Button=2（单击鼠标右键）SubTextl MouseDown(ButtonAsInterger)IfButton=2ThenPopupMenuEditMenuEndSub
7 8.1.3 弹出式菜单 • 用户在某个对象上单击右键所弹出的菜单，显示位置取决于单击鼠标时 的位置； • 设计过程与普通菜单相同，需要在“菜单编辑器”内不选中“可见复选 框” • 显示弹出式菜单的方法： [对象].PopupMenu 菜单名[，标志，x, y] • x, y是快捷菜单显示的位置 • 0-弹出快捷菜单在鼠标右侧 • 4-弹出快捷菜单在鼠标中间 • 8-弹出菜单在鼠标左侧 • 使用MouseDown事件弹出菜单 • Button=1（单击鼠标左键） Button=2（单击鼠标右键） Sub Text1_MouseDown(Button AsInterger) If Button = 2 Then PopupMenuEditMenu End Sub
弹出式菜单8.1.3 例8.2设计一个如图8.5所示的窗体，窗体上有4个标签、2个文本框以及菜单。2个文本框用于输入数据，Label4标签用于显示运算结果；“加减运算”菜单能够完成加减运算以及清除功能；弹出式菜单“乘除运算”能够完成乘除运算。图8.5例8.2运行效果图8
8 8.1.3 弹出式菜单 • 例8.2 设计一个如图8.5所示的窗体，窗体上有4个标 签、2个文本框以及菜单。2个文本框用于输入数据， Label4标签用于显示运算结果；“加减运算”菜单 能够完成加减运算以及清除功能；弹出式菜单“乘 除运算”能够完成乘除运算。 图8.5 例8.2运行效果图
8.2 对话框预定义对话框可以调用函数直接显示的系统定义对话框InputBoxO函数和MsgBoxO函数自定义对话框·用户根据应用程序的需要自行定义的对话框通用对话框、打开、另存为、颜色、字体、打印、帮助9
9 8.2 对话框 • 预定义对话框 • 可以调用函数直接显示的系统定义对话框； • InputBox()函数和MsgBox()函数； • 自定义对话框 • 用户根据应用程序的需要自行定义的对话框； • 通用对话框 • 打开、另存为、颜色、字体、打印、帮助
通用对话框控件(CommonDialog)利用通用对话框控件可在窗体上创建通用对话框通用对话框不是标准控件，是一种ActiveX控件工程/部件控件选项卡lMicrosoftCommonDialogControl6.0通用对话框在运行时不显示，直到用Action属性或Show方法激活通用对话框仅用于应用程序与用户之间进行信息交互，是输入输出的界面设文件存储、不能真正实现文件打开、置颜色、字体设置、打印等操作如果想要实现这些功能，需要编程实现10
10 ◼利用通用对话框控件可在窗体上创建通用对话框 ◼通用对话框不是标准控件，是一种ActiveX控件 ◼工程|部件|控件选项卡|Microsoft Common Dialog Control 6.0 ◼通用对话框在运行时不显示，直到用Action属性或 Show方法激活 •通用对话框仅用于应用程序与用户之间 进行信息交互，是输入输出的界面 •不能真正实现文件打开、文件存储、设 置颜色、字体设置、打印等操作 •如果想要实现这些功能，需要编程实现 本章目录 通用对话框控件（CommonDialog）