第10章 菜单和对话框程序设计

1、第十章菜单和对话框计算机编程，沈阳市理工大学应用技术学院，0。牙齿章节的内容、控制Visual Basic中的菜单编辑器菜单项和增量弹出菜单对话框分类档案对话框其他对话框、2，1。Visual Basic中的菜单、应用程序通过菜单向用户提供两组茄子命令菜单。下拉菜单和弹出菜单下拉菜单的默认结构包括菜单栏、子菜单区域和工作空间、3，2 .菜单编辑器。设计菜单的工具可通过四种茄子方法访问菜单编辑器。从“工具”菜单中运行菜单编辑器命令。使用快捷键Ctrl E。单击工具栏中的“菜单编辑器”按钮。在要设置菜单的表单上单击单击右键，将弹出菜单，使您可以单击菜单编辑器命令。菜单编辑器窗口分为三个部分：数据区

2、域、剪辑区域和菜单项显示区域。4，2。菜单编辑器，菜单编辑器分为上下两部分，上部(数据区域)设置属性，下部(菜单项显示区域)显示用户输入的菜单内容。5，2。菜单编辑器，6，示例1设计具有算术运算(，-，X，/)和清除功能的菜单。在键盘上输入两个数字，然后使用菜单命令获取和、差、积或份额并显示它们。(1)创建应用程序的用户界面和设置对象属性，2 .菜单编辑器、7、菜单栏包含计算加法、减法、乘法计算、清除和退出、2 .功能表编辑器，8，Private subadd _ click()x=val(num 1 . text)val(num 2 . text)result . caption=str $

3、(x.如果为False，菜单项将暗显，并且菜单命令无效。示例：Mnu30。Enabled=False菜单项显示为菜单项的Checked属性。您可以设定勾选标记范例。Mnu31。Checked=True显示菜单编辑器中的复选框“”，9，3 .选择菜单项的复选框单击子菜单将分别显示十进制、八进制和十六进制，并在菜单项前面添加“”标记。(1)创建应用程序的用户界面和设置对象属性，3 .菜单项的控制和增量、11、主菜单为“显示数”，有5个子菜单。十进制八进制十六进制清除结束，(2)编写节目代码，3 .菜单项的控制和增量private subdec _ click()answer=val(text 1

4、. text)octv . checked=falsedec . checked=true hexv . checked privatesuboctv _ click()answer=val(text 1 . text)octv . checked=truedec . checked=falsehexv . checked=菜单项的控制和增量，13，3。菜单项的控制和增量，14，示例3作者实现菜单项的增量。，(1)创建应用程序的用户界面并设置对象属性，要求：单击时在分隔线下添加新菜单项单击“减少应用程序节目”时删除在分隔线后指定的菜单项，3 .菜单项控制和增量，15，(2)编写节目代码dim

5、num as integer private subap name _ click(index as integer)x=shellcaption)end subprop Msg $=enterfile path 3360 temp $=input box $(Msg $，Add application)num=num 1 load aadcaption=temp $ AP name (num)。visible Private subdel _ click()dim n as integer，I as integer msg $=enter number to delete 3360n=inp

6、ut box(msg)caption=AP name (i1)。caption next I unload AP name(num)num单击右键单击将弹出不同的菜单，具体取决于鼠标鼠标右键单击的位置。若要创建弹出菜单，请使用菜单编辑器设计菜单，必须将菜单名称(主菜单项)的显示属性设置为False(请勿将子菜单项设置为False)。使用PopupMenu方法弹出显示格式：对象。PopupMenu菜单名称，Flags，x，y，BoldCommand，17，4。弹出菜单，18，示例4示例1，然后在菜单编辑器中，在“加减计算”菜单标题的“显示”框中，取消(渡边杏选择)(2)private subfo

7、rm _ mouse up(buup)mouse up事件弹出菜单，19，弹出菜单三个茄子对话框：预定义对话框输入对话框(使用InputBox函数)消息框(使用MsgBox函数)自定义对话框常规对话框对话框属性边框固定结束对话框按钮设置不最大化、最小化按钮非主工作空间、使用后关闭、20，5。对话框分类，自定义对话框设置表单根据需要设置控件放置，控件属性值，以创建西餐外观定义表单自定义对话框，一般步骤：在项目中西餐附加表单中创建其他控件对象，对话框外观设置表单和控制对象属性定义代码窗口中生成事件流程，21，5。对话框分类，22，示例5定制对话框节目使用案例，(1)创建应用程序用户界面和设置对象属

8、性，5。对话框分类，23，private subcommand 1 _ click()if option 1 then data=val(text 1 . text)End if option 2 then data=text添加打印机和帮助文档对话框通用对话框控件的一般步骤：从“工程”菜单中运行“零件”命令，然后选择“Microsoft common dialog control 6.0”单击“确定”。一般对话框不可见，24，6。档案对话框，结构(1)对话框标题(2)文件夹(3)选择文件夹级别(4)新建文件夹(5)档案列表模式(6)档案详细信息(7)档案列表属性(1)对话框标题(Dialog

9、Title)档案对话框，27，示例6然后，将名为Command1的命令按钮添加到默认名称为CommonDialog1 (2)的表单中。Caption属性是on (3) open命令按钮Command1的Click事件过程代码3360。设置档案滤镜(Filter)属性的参数格式如下：描述符1过滤器1描述符2过滤器2运行节目后，弹出“打开单击”按钮，以获取从控件FileName属性中选择的路径和档案名称。private subcommand 1 _ click()commondialog1 . dialog title=打开档案档案过滤器设置common dialog 1。Filter=所有档案|

10、 *。* .txt common dialog1 . init dir=c : my documents设定预设资料夹common dialog 1。显示ShowOpen打开对话框End Sub，7 .其他对话框，29，Private Sub command 1 _ Click()common dialog 1 . flags=vbccrgbinit common dialog 1 . color=back color common dialog示例8字体对话框设置文本框中显示的字体，Private Sub command 1 _ Click()common dialog 1 . flags=cdlcfscreenfonts c