计算机技术基础（VB）
第十章 界面设计 学习内容
第一节 菜单的设计
必修
开启
通过
第二节 工具栏的设计
必修
开启
通过
第四节 多文档界面设计
必修
开启
通过
第五节 对话框的设计
必修
开启
通过
本章小结
必修
开启
通过
第一节 菜单的设计
一、下拉式菜单
1．下拉式菜单的结构
2．菜单编辑器
菜单项：看成控件，具有其属性、事件、方法。
菜单项也称为菜单控件。
菜单设计：通过“菜单编辑器”完成。
打开菜单编辑器：
首先使窗体成为当前窗体
执行“工具”菜单下的“菜单编辑器”命令
单击标准工具栏的“菜单编辑器”按钮
从窗体快捷菜单中选择“菜单编辑器”命令
菜单编辑器结构：属性区、编辑区、菜单列表区
注：标题框中键入“-”和“&”符号的作用。
不能给顶级菜单项加快捷键。
【例10-1】设计菜单界面，各主菜单项及其下拉菜单如下图所示。下拉菜单中的子菜单项用于对文本框Text1设置字体、字号、文字颜色和文字效果。其中，效果子菜单下的各菜单项具有复选功能，设运行初始时各项前面没有√符号，与文本框的初始状态一致。
菜单编辑器设置如下表：
（1）“字体”菜单下的菜单项设计成一个控件数组AA1，共享以下事件过程：
Private Sub AA1_Click（Index As Integer）
Text1.Font=AA1（Index）.Caption
End Sub
（2）“字号”菜单下的菜单项设计成一个控件数组BB1，共享以下事件过程：
Private Sub BB1_Click（Index As Integer）
Text1.FontSize=Val（BB1（Index）.Caption）
End Sub
（3）“颜色”菜单下的各菜单项为独立的菜单控件，因此应分别在其单击事件过程中编写代码，各事件过程如下：
Private Sub CC1_Click（）
Text1.ForeColor=vbRed
End Sub
Private Sub CC2_Click（）
Text1.ForeColor=vbGreen
End Sub
Private Sub CC3_Click（）
Text1.ForeColor=vbBlue
End Sub
（4）“效果”菜单下的各菜单项具有复选功能，每次单击时应切换成另一种状态，因此要判断当前菜单项的Checked属性，各事件过程如下：
Private Sub DD1_Click（）
If DD1.Checked=True Then
Text1.FontStrikethru=False
DD1.Checked=False
Else
Text1.FontStrikethru=rue
DD1.Checked=True
End If
End Sub
Private Sub DD2_Click（）
If DD2.Checked=True Then
Text1.FontUnderline=False
DD2.Checked=False
Else
Text1.FontUnderline=True
DD2.Checked=True
End If
End Sub
Private SubDD3_Click（）
If DD3.Checked=True Then
Text1.FontBold=False
DD3.Checked=False
Else
Text1.FontBold=True
DD3.Checked=True
End If
End Sub
Private Sub DD4_Click（）
If DD4.Checked=True Then
Text1.FontItalic=False
DD4.Checked=False
Else
Text1.FontItalic=True
DD4.Checked=True
End If
End Sub
二、弹出式菜单
弹出式菜单:上下文菜单、快捷菜单、右键菜单
为某对象设计弹出式菜单的步骤:
(1) 在菜单编辑器中设计各菜单项，然后将顶级菜单设置为不可见。
(2) 在对象的MouseDown事件过程中编写代码，用以下的PopupMenu方法显示弹出式菜单:
[<窗体名>]PopupMenu<菜单名>
,flags[,x[,y[,boldcommand]]]]
功能: 在当前鼠标位置或指定的坐标位置显示弹出式菜单。
说明: 见P171-172
第二节 工具栏的设计
一、用手工方式制作工具栏
二、使用工具栏控件（ToolBar）制作工具栏
第三节 状态栏的设计（略）
第四节 多文档界面设计
示例1：【例10-3】工具栏
示例2：【例10-4】状态栏
示例3：【例10-5】多文档界面设计
第五节 对话框的设计
1．对话框：特殊类型的窗体对象。
2．作用：是用户和应用程序交互的主要途径。
3．建立方法：
使用预定义对话框，即输入框、消息框。
自定义对话框。
使用CommonDialog控件创建通用对话框。
一、自定义对话框
设计步骤：
（1）添加窗体：工程(添加窗体。
（2）将窗体定义成对话框风格。
如：不能移动、改变尺寸、最大或最小化
例：BorderStyle设置为1—单边框，不能改变大小
ControlBox设置为False—删除控制菜单框
MaxButton设置为False—删除最大化按钮
MinButton设置为False—删除最小化按钮
（3）在对话框上添加按钮，如“确定”与“取消”按钮。
（4）在对话框上添加其它控件。
（5）在适当的位置编写显示对话框的代码。
两种显示方式：模式对话框与无模式对话框。
显示模式对话框：
窗体名.Show vbModal 或：窗体名.Show 1
显示无模式对话框：
窗体名.ShowvbModeless
或：窗体名.Show 0 或：窗体名.Show
例如：Form2.ShowvbModal
Form2.ShowvbModeless
为确保对话框可以随其父窗体的最小化而最小化，随其父窗体的关闭而关闭，需要在Show方法中定义父窗体。
例如：Private Sub Command1_Click（）
Form2.Show vbModeless,Form1
End Sub
（6）编写从对话框退出的代码
例如：Unload Form2
或：Form2.Hide
【例10-6】设计对话框Form2如下图所示。当输入某文件所在的路径及名称后，单击“确定”按钮按所选择的运行方式运行该文件，单击“取消”按钮取消本次操作，返回窗体Form1中。如果输入文件名错误，将给出警告并返回该对话框。
对话框Form2代码如下：
Private Sub Command1_Click（）
On Error GoTo ErrorHandler'设置错误陷阱
FName=Trim（Text1.Text）
If Option1.Value=True Then a=Shell（FName,1）
If Option2.Value=True Then a=Shell（FName,3）
If Option3.Value=True Then a=Shell（FName,2）
Exit Sub
ErrorHandler：
MsgBox"不能运行该程序",,"注意"
Resume Next '从产生错误的语句之后开始运行
End Sub
Private Sub Command2_Click（）
Unload Me
End Sub
二、通用对话框
使用通用对话框控件（CommonDialog）可以创建多种标准对话框。
设计步骤：
（1）添加：工程(部件(选择
“Microsoft Common Dialog Controls 6.0”
（2）在窗体的任意位置画通用对话框控件。
（3）设置通用对话框控件的“属性页”。
（4）在代码中使用以下方法打开对话框。
ShowOpen：显示“打开文件”对话框
ShowSave：显示“文件存储”对话框
ShowColor：显示“颜色”对话框
ShowFont：显示“字体”对话框
ShowPrinter：显示“打印”对话框
ShowHelp：显示“帮助”对话框
1．文件对话框
属性页：
【例10-7】使用打开文件对话框，在运行时打开一幅图像。
在窗体Form1上放置一个图像控件、一个通用对话框控件、一个命令按钮，界面如图所示。
其中，CommonDialog1的属性页设置如下：
“装入图像”按钮代码如下：
Private Sub Command1_Click（）
CommonDialog1.ShowOpen
Image1.Picture=_
LoadPicture（CommonDialog1.FileName）
End Sub
在对话框中按取消按钮的处理：
（1）不处理：不设置“取消引发错误”
（2）处理：设置“取消引发错误”，编写代码如下：
Private Sub Command1_Click（）
On Error GoTo ErrHandler
CommonDialog1.ShowOpen
Image1.Picture=_
LoadPicture（CommonDialog1.FileName）
Exit Sub
ErrHandler：
Exit Sub
End Sub
2．颜色、字体对话框
属性页：
【例10-8】设计如图所示的界面，运行时单击“背景色”按钮打开颜色对话框，在对话框中选择的颜色用于设置文本框的背景颜色，单击“字体”按钮打开字体对话框，在对话框中选择字体、效果及颜色，用于设置文本框文字的字体、效果及颜色。
“背景色”按钮Command1的Click事件过程如下：
Private Sub Command1_Click（）
CommonDialog1.ShowColor
Text1.BackColor=CommonDialog1.Color
End Sub
“字体”按钮Command2的Click事件过程如下：
Private Sub Command2_Click（）
CommonDialog1.ShowFont
Text1.Font=CommonDialog1.FontName
Text1.FontBold=CommonDialog1.FontBold
Text1.FontItalic=CommonDialog1.FontItalic
Text1.FontStrikethru=_
CommonDialog1.FontStrikethru
Text1.FontUnderline=_
CommonDialog1.FontUnderline
Text1.ForeColor=CommonDialog1.Color
Text1.FontSize=CommonDialog1.FontSize
End Sub
本章小结
1．下拉式菜单的设计
（1）打开菜单编辑器，设置各菜单项的属性。
（2）编写菜单命令的Click事件过程。
2．弹出式菜单的设计
（1）打开菜单编辑器，设置各菜单项的属性。将顶级菜单设置为不可见。
（2）在对象的MouseDown事件过程中编写代码，用PopupMenu方法显示弹出式菜单。
（3）编写实现菜单命令功能的代码
3．对话框的设计
（1）自定义对话框的设计：模式与无模式对话框
（2）使用CommonDialog控件创建通用对话框。
打开文件、文件存储、颜色、字体、……
