vb程序设计第10章课件

第10章界面设计本章要点:

•菜单的设计

•工具栏的设计

•状态栏的设计

•多文档界面的设计

•对话框的设计110.1菜单的设计两种菜单类型:下拉式菜单；弹出式菜单10.1.1下拉式菜单1.下拉式菜单的结构子菜单菜单命令主菜单栏主菜单标题分隔条子菜单22.菜单编辑器菜单项:看成控件，具有其属性、事件、方法。菜单项也称为菜单控件。设计:通过“菜单编辑器”完成。打开菜单编辑器:

•首先使窗体成为当前窗体

•执行“工具”菜单下的“菜单编辑器”命令

•单击标准工具栏的“菜单编辑器”按钮

•从窗体快捷菜单中选择“菜单编辑器”命令菜单编辑器结构:属性区、编辑区、菜单列表区3【例10-1】设计菜单界面，各主菜单项及其下拉菜单如下图所示。下拉菜单中的子菜单项用于对文本框Text1设置字体、字号、文字颜色和文字效果。其中，效果子菜单下的各菜单项具有复选功能，设运行初始时各项前面没有√符号，与文本框的初始状态一致。5标题名称索引快捷键说明字体(&F)AA访问键Alt+F....宋体AA11Ctrl+A定义成控件数组AA1;AA1(3)用于生成分隔条....黑体AA12Ctrl+B....-AA13....隶书AA14Ctrl+C....楷体_GB2312AA15Ctrl+D字号(&S)BB访问键Alt+S....14BB11定义成控件数组BB1....16BB12....18BB13....20BB14菜单编辑器设置如下表:6访问键Alt+C说明

DD4....斜体

DD3....粗体DD2....下划线

DD1....删除线

DD效果(&E)

CC3....蓝色

CC2....绿色

CC1....红色CC颜色(&C)快捷键索引名称标题(续表)访问键Alt+E7PrivateSubCC1_Click()Text1.ForeColor=vbRedEndSubPrivateSubCC2_Click()Text1.ForeColor=vbGreenEndSubPrivateSubCC3_Click()Text1.ForeColor=vbBlueEndSub(4)“效果”菜单下的各菜单项具有复选功能，每次单击时应切换成另一种状态，因此要判断当前菜单项的Checked属性，各事件过程如下:9PrivateSubDD1_Click()IfDD1.Checked=TrueThenText1.FontStrikethru=FalseDD1.Checked=FalseElseText1.FontStrikethru=TrueDD1.Checked=TrueEndIfEndSub10PrivateSubDD2_Click()IfDD2.Checked=TrueThenText1.FontUnderline=FalseDD2.Checked=FalseElseText1.FontUnderline=TrueDD2.Checked=TrueEndIfEndSub11PrivateSubDD4_Click()IfDD4.Checked=TrueThenText1.FontItalic=FalseDD4.Checked=FalseElseText1.FontItalic=TrueDD4.Checked=TrueEndIfEndSub1310.1.2弹出式菜单弹出式菜单:上下文菜单、快捷菜单、右键菜单

为某对象设计弹出式菜单的步骤:(1)在菜单编辑器中设计弹出式菜单，然后将顶级菜单设置为不可见。(2)在对象的MouseDown事件过程中编写代码，用以下的PopupMenu方法显示弹出式菜单:

[<窗体名>.]PopupMenu<菜单名>

,flags[,x[,y[,boldcommand]]]]

功能:在当前鼠标位置或指定的坐标位置显示弹出式菜单。

说明:见P171-17214【例10-2】在例10-1的基础上设计窗体和文本框的弹出式菜单。如下图所示。标题

名称

可见

文本框快捷菜单

EE

....增加1磅

EE1

....减少1磅

EE2....锁定EE3窗体快捷菜单FF

....红色背景FF1

....绿色背景FF2

....默认背景FF3

(1)设置菜单编辑器:15(3)在窗体的MouseDown事件过程中编写代码PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then

PopupMenuFF,8Or0,,,FF3

EndIfEndSub(4)编写实现菜单命令功能的代码DimFcolorAsLongPrivateSubForm_Load()Fcolor=Form1.BackColorEndSub17PrivateSubEE1_Click()Text1.FontSize=Text1.FontSize+1EndSubPrivateSubEE2_Click()Text1.FontSize=Text1.FontSize–1EndSubPrivateSubEE3_Click()IfEE3.Caption="锁定"ThenEE3.Caption="取消锁定"Text1.Locked=TrueElseEE3.Caption="锁定"

Text1.Locked=FalseEndIfEndSub18PrivateSubFF1_Click()Form1.BackColor=vbRedEndSubPrivateSubFF2_Click()Form1.BackColor=vbGreenEndSubPrivateSubFF3_Click()Form1.BackColor=FcolorEndSub19【例10-3】在例10-2的基础上添加工具栏。如下图。放置4各复选框控件，分别用于完成“效果”菜单下的四个功能。在复选框的ToolTipText属性中分别设置功能提示:删除线、下划线、粗体、斜体。Check1~Check421分别在复选框控件的Click事件过程中编写代码：PrivateSubCheck1_Click()Text1.FontStrikethru=Check1.ValueEndSubPrivateSubCheck2_Click()Text1.FontUnderline=Check2.ValueEndSubPrivateSubCheck3_Click()Text1.FontBold=Check3.ValueEndSubPrivateSubCheck4_Click()Text1.FontItalic=Check4.ValueEndSub2210.2.2使用工具栏控件(ToolBar)制作工具栏设计步骤:(1)添加ToolBar控件、ImageList控件。工程部件选择“MicrosoftWindowsCommonControls6.0”

常用ImageList控件提供工具栏所需的图片。(2)在窗体上画ToolBar控件、ImageList控件(3)设置ImageList控件。(4)设置ToolBar控件的“属性页”。定义按钮对象集。引用索引号为n的按钮:Buttons(n)

例:设置Toolbar1中索引号为3的按钮的标题。

Toolbar1.Buttons(3).Caption="显示"(5)编写代码:在ButtonClick事件过程或ButtonMenuClick事件过程中编写。2310.4多文档界面设计单文档界面(SDI):一次只能打开一个文档如Notepad（记事本）多文档界面(MDI):一次可以打开多个文档如ExcelMDI主要特点：(1)子窗体随父窗体最小化或关闭而最小化或关闭。(2)子窗体不能移出父窗体。(3)当子窗体最大化时，标题与父窗体的标题重叠。(4)

父窗体和子窗体可以有各自的菜单，加载子窗体后，父窗体的菜单将被子窗体的菜单取代。25创建多文档界面步骤：(1)添加一个MDI父窗体。工程添加MDI窗体选择“MDI窗体”(2)建立其它子窗体。建立普通窗体，设置其MDIChild属性为True(3)设置启动对象为MDIForm对象。工程工程属性选择“启动对象”为MDIForm(4)要在MDIForm对象中显示各子窗体，可以使用Show方法。使用Arrange方法可以重排MDI子窗体或图标。

格式:<MDIForm对象名>.Arrange<排列方式><排列方式>：vbCascade或0—层叠非最小化的子窗体vbTileHorizontal或1—水平平铺非最小化子窗体vbTileVertical或2—垂直平铺非最小化子窗体vbArrangeIcons或3—重排最小化子窗体的图标26例如:Form2.ShowvbModalForm2.ShowvbModeless为确保对话框可以随其父窗体的最小化而最小化，随其父窗体的关闭而关闭，需要在Show方法中定义父窗体。例如:PrivateSubCommand1_Click()Form2.ShowvbModeless,Form1EndSub(6)编写从对话框退出的代码例如:UnloadForm2或:Form2.Hide29【例10-4】设计对话框Form2如下图所示。当输入某文件所在的路径及名称后，单击“确定”按钮按所选择的运行方式运行该文件，单击“取消”按钮取消本次操作，返回窗体Form1中。如果输入文件名错误，将给出警告并返回该对话框。Text1Option1Option2Option3Command1Command230对话框Form2代码如下：PrivateSubCommand1_Click()

OnErrorGoToErrorHandler

FName=Trim(Text1.Text)

IfOption1.Value=TrueThena=Shell(FName,1)IfOption2.Value=TrueThena=Shell(FName,3)

IfOption3.Value=TrueThena=Shell(FName,2)

ExitSubErrorHandler:MsgBox"不能运行该程序",,"注意"

ResumeNext'从产生错误的语句之后开始运行EndSubPrivateSubCommand2_Click()UnloadMeEndSub3110.5.2通用对话框使用通用对话框控件(CommonDialog)可以创建多种标准对话框。设计步骤:(1)添加:工程部件选择“MicrosoftCommonDialogControls6.0”(2)在窗体的任意位置画通用对话框控件。(3)设置通用对话框控件的“属性页”。(4)在代码中使用以下方法打开对话框。ShowOpen:显示“打开文件”对话框ShowSave:显示“文件存储”对话框ShowColor:显示“颜色”对话框ShowFont:显示“字体”对话框

ShowPrinter:显示“打印”对话框ShowHelp:显示“帮助”对话框321.文件对话框属性页:DialogTitle

InitDirFilterFlagsDefaultExtMaxFilterIndexCancelError33【例10-5】使用打开文件对话框，在运行时打开一幅图像。在窗体Form1上放置一个图像控件、一个通用对话框控件、一个命令按钮，界面如图所示。Image1CommonDialog1Command134其中，CommonDialog1的属性页设置如下:Allfiles|*.*|BmpFiles|*.bmp|IconFiles|*.ico指文件名35“装入图像”按钮代码如下：PrivateSubCommand1_Click()CommonDialog1.ShowOpenImage1.Picture=_LoadPicture(CommonDialog1.)EndSub在对话框中按取消按钮的处理:(1)不处理:不设置“取消引发错误”36(2)处理:设置“取消引发错误”，编写代码如下:PrivateSubCommand1_Click()

OnErrorGoToErrHandlerCommonDialog1.ShowOpenImage1.Picture=_LoadPicture(CommonDialog1.)ExitSub

ErrHandler:ExitSubEndSub37颜色:Color标志:FlagsFontSize

Min

Max

FontName38【例10-6】设计如图所示的界面，运行时单击“背景色”按钮打开颜色对话框，在对话框中选择的颜色用于设置文本框的背景颜色，单击“字体”按钮打开字体对话框，在对话框中选择字体、效果及颜色，用于设置文本框文字的字体、效果及颜色。CommonDialog1Text1设置Flag:257、258、25939“背景色”按钮Command1的Click事件过程如下：PrivateSubCommand1_Click()CommonDialog1.ShowColorText1.BackColor=CommonDialog1.ColorEndSub40“字体”按钮Command2的Click事件过程如下：PrivateSubCommand2_Click()CommonDialog1.ShowFontText1.Font=CommonDial