第6章 对话框和菜单设计

1、目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计 掌握 通用对话框 熟悉 自定义对话框 学会 菜单编辑器的使用目标要求目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计nl 通用对话框nl 自定义对话框nl 菜单编辑器的使用讲课提纲目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第第6章章 对话框和菜单设计对话框和菜单设计6.1.1通用对话框的基本属性和方法通用对话框的基本属性和方法 通用对话框可以提

2、供通用对话框可以提供6种形式的对话框，通过设置种形式的对话框，通过设置Action属性属性值值或调用或调用Show方法方法来建立不同类型的对话框。如下表来建立不同类型的对话框。如下表6.16.1通用对话框通用对话框通通用用对对话话框框的的类类型型 Action 方方法法 打打开开(Open) 1 ShowOpen 另另存存为为(Save As) 2 ShowSave 颜颜色色(Color) 3 ShowColor 字字体体(Font) 4 ShowFont 打打印印机机(Printer) 5 ShowPrinter 帮帮助助(Help) 6 ShowHelp 目标要求目标要求课后作业课后作业讲

3、课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计1属性属性Action属性属性：数值型，决定打开何种类型的对话框（见上表）：数值型，决定打开何种类型的对话框（见上表）DialogTiltle属性属性：对通用话框标题。：对通用话框标题。CancelError属性：逻辑型值，表示用户在与对话框进行信息交换时，按属性：逻辑型值，表示用户在与对话框进行信息交换时，按下下“取消取消”按钮时是否产生出错信息。按钮时是否产生出错信息。 True：选择选择“取消取消”按钮，出现错误警告；按钮，出现错误警告； Err置为置为32755 (cdlCancel) 。False

4、(缺省缺省)：选择：选择“取消取消”按钮，没有错误警告。按钮，没有错误警告。2 通用对话框的方法通用对话框的方法. 除了除了Acton属性，属性，VB还提供了一组方法用来打开不还提供了一组方法用来打开不同类型对话框同类型对话框 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp6.16.1通用对话框通用对话框目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计n6.1.2 “打开打开”/“另存为另存为”对话框对话框6.16.1通用对话框通用对话框DialogTi

5、ltleFileName InitDirFilterFilterIndexDefaultExt目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计范例程序（范例程序（06-01-0106-01-01）：）： 6.16.1通用对话框通用对话框目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计属性设置如下：属性设置如下：6.16.1通用对话框通用对话框对象属性设置Label1Caption文本编辑区Text1MultilineTrueCommondialog

6、1InitDir filterC:mydocuments文本文件（*.text）|(*.*)Command1NameCaptionOpen打开Command2NameCaptionSave保存Command3NameCaptionPrint打印Command4NameCaptionFont字体Command5NameCaptioncolor颜色目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计“打开打开”按钮的事件过程如下：按钮的事件过程如下：Private Sub Open_Click()Private Sub Open

7、_Click()Commondialog1.Action = 1Commondialog1.Action = 1Text1.Text = Text1.Text = Open Commondialog1.Open Commondialog1.FileNameFileName For Input As #1 For Input As #1Do While Not EOF(1)Do While Not EOF(1)Line Input #1, Line Input #1, inputdatainputdataText1.Text=Text1.Text+Text1.Text=Text1.Text+in

8、putdatainputdata+ + vbNewLinevbNewLineLoopLoopClose #1 Close #1 关闭文件关闭文件, ,第九章讲解第九章讲解End SubEnd Sub6.1.3“6.1.3“另存为另存为”对话框对话框 6.1.46.1.4颜色对话框颜色对话框 6.16.1通用对话框通用对话框目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计把范例程序（06-01-01）“颜色” 添加如下代码：Private Sub Color_Click()CommonDialog1.Action = 3打

9、开颜色对话框Text1.ForeColor=CommonDialog1.Color End Sub 6.1.46.1.4“字体字体”对话框对话框 把范例程序（06-01-01）“字体”按钮编写代码如下：Private Sub font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4Text1.font = CommonDialog1.FontNameEnd sub6.16.1通用对话框通用对话框目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道

10、出版社第6章 对话框和菜单设计6.1.5“6.1.5“打印打印”对话框对话框把范例程序（把范例程序（06-01-0106-01-01）的）的“打印打印”按钮代码编辑如下：按钮代码编辑如下：Private Sub print_Click()Private Sub print_Click()CommonDialog1.Action = 5CommonDialog1.Action = 5 将数据送打印机打印将数据送打印机打印End SubEnd Sub6 6.1.6“.1.6“帮助帮助”对话框对话框 6.1.7“6.1.7“自定义自定义”对话框对话框 6.16.1通用对话框通用对话框目标要求目标要求

11、课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计6.2.16.2.1菜单编辑器菜单编辑器Visual Basic中的菜单通过菜单编辑器，即菜单设计窗口建立。将要建立下拉菜单的窗体设为活动窗体后，可以通过4种方法进入菜单编辑器：（1）执行“工具”菜单中的“菜单编辑器”命令。（2）使用热键Ctrl+E。（3）单击工具栏中的“菜单编辑器”按钮。（4）在要建立菜单的窗体上单击鼠标右键，将弹出一个菜单，在该菜单中单击“菜单编辑器”命令。菜单编辑器窗口分为3部分，即数据区、编辑区和菜单项显示区。 6.2 6.2 菜单菜单 目标要求目标要求课后作业课

12、后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计6.2.26.2.2下拉菜单下拉菜单下拉菜单作为菜单栏位于窗口的标题栏下面，当单击其中某一项时，下拉菜单作为菜单栏位于窗口的标题栏下面，当单击其中某一项时，下拉出其相应的子菜单，如图。下拉出其相应的子菜单，如图。 设计步骤如下设计步骤如下 :1 1）添加菜单编辑器：在窗体设计状态下选择）添加菜单编辑器：在窗体设计状态下选择“工具工具”菜单下的菜单下的“菜单编辑器菜单编辑器”命令，调出菜单设计窗口。在菜单设计窗口中，命令，调出菜单设计窗口。在菜单设计窗口中， 如下表如下表:6.2 6.2 菜单菜单目标

13、要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计6.2 6.2 菜单菜单表单项表单项名称名称快捷键快捷键字体字体ztzt 宋体宋体ststCtrCtr+s+s楷体楷体KtKtCtrCtr+k+k仿宋仿宋FsFsCtrCtr+f+f隶书隶书LsLsCtrCtr+l+l行体行体XsXsCtrCtr+x+x字号字号ZhZh 1 1Y Y 2 2ErEr 3 3SanSan 4 4S S 5 5W W 6 6L L 7 7Q Q 8 8B B 9 9J J 颜色颜色ColorColor 目标要求目标要求课后作业课后作业讲课提纲讲课提

14、纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第第6 6章章 对话框和菜单设计对话框和菜单设计 2）完成所有的输入工作，当按上表将菜单设计好后,菜单设计器就成为如图所示的窗口，单击“确定”按钮退出就完成了菜单的建立过程。3）把代码连接到菜单上(具体代码参考教材) 6.2 6.2 菜单菜单目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章 对话框和菜单设计6.2.36.2.3弹出菜单弹出菜单 PopupMenu方法用来显示弹出式菜单，其格式为：对象. PopupMenu 菜单名,Flags,x,y,BoldCommand Private Sub text1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then PopupMenu zh, 2 End If End Sub6.2 6.2 菜单菜单目标要求目标要求课后作业课后作业讲课提纲讲课提纲讲课内容讲课内容退出上课实验上课实验中国铁道出版社第6章