计算机界⾯设计，计算机技术基础（第⼗章　界⾯设计）计算机技术基础(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　Thenhtml下拉菜单的制作方法
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”

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。