Click to edit Master title style,Click to edit Master text style,Second level,Third level,Forth level,Fifth level,*,*,Click to edit Master title style,Click to edit Master text style,Second level,Third level,Forth level,Fifth level,*,*,Visual Basic程序设计教程(第3版),第,4,章 用户界面设计,第,4,章 用户界面设计,2,4.1 菜单设计,4.2 工具栏设计,4.3 状态栏设计,4.4 对话框设计,4.5 多文档界面设计,4.6 应用案例与设计-利用菜单、工具栏实现多窗体应,用程序设计,4.1,菜单设计,1,下拉式菜单,菜单的基本结构包括：菜单栏、菜单标题、一级菜单、子菜单。,2,弹出式菜单,弹出式菜单就是在,Windows,中常用的浮动式菜单。,创建菜单,1,菜单编辑器的使用,打开“菜单编辑器”窗口的方法有以下几种：,选择“工具”菜单中的“菜单编辑器”菜单项。,单击标准工具栏中的“菜单编辑器”按钮。,在窗体中单击右键，在弹出的快捷菜单中（如图,4.2,所示）选择“菜单编辑器”菜单项。,Ctrl+E,组合键。,2,在“菜单编辑器”窗口中创建菜单的方法,创建菜单,(,续,),创建菜单,(,续,),3,分隔菜单项,在菜单项较多的菜单上，可以使用分隔线将各项划分成一些逻辑组。,4,设置访问键和快捷键,访问键一般用于在鼠标失效时，为用户操作菜单提供的按键选择。使用访问键时，要同时按下,Alt,键和该字母键。,快捷键是为了更快地执行菜单项命令，为每个底层菜单项设置的一种键盘操作手段，快捷键一般为键盘上的功能键或它们与其他字母键的组合。,创建菜单,(,续,),5,创建子菜单,使用菜单编辑器创建的每个菜单最多可以包含,5,级子菜单，子菜单会分支出另一个菜单以显示它自己的菜单项。一般地，在菜单栏已满情况下需要使用子菜单。,弹出式菜单设计,弹出式菜单是独立于窗体菜单栏而显示于窗体任何位置的浮动菜单。,弹出式菜单的显示取决于按下鼠标右键时指针所处的位置，在,Windows 9.X,中，一般是通过单击鼠标右键来激活弹出式菜单的。,弹出式菜单设计,(,续,),以“编辑”主菜单项为例进行设计，设计如图,4.10,所示。,图,4.10,创建弹出式菜单,弹出式菜单设计,(,续,),创建弹出式菜单具体方法如下：,在“菜单编辑器”窗口中建立一个将要作为弹出式菜单的主菜单项。,该主菜单项的标题（,Caption,属性）为编辑（,&E,），名称（,Name,属性）为,EDIT,，所包含的菜单项为“剪切”、“复制”、“粘贴”。建好弹出式菜单所需的菜单后，可以把“编辑”的,Visible,属性设置为,False,，也可以设为,True,。,弹出式菜单设计,(,续,),为建立好的弹出式菜单编写程序代码。,在代码窗口中选择,Form,对象，再在过程列表框中选择,MouseUp,，则出现,Form_MouseUp,事件过程的模板。,Private Sub,Form_MouseUp(Button,As,Integer,Shift,As,Integer,X,As,Single,Y,As Single),End Sub,在事件过程模板中添加下列代码：,If Button=2 Then ,检查是否单击鼠标右键,PopupMenu,EDITEDIT,是,编辑,菜单的控制名，将其激活显示在窗体上,End If,弹出式菜单设计,(,续,),对于上例，利用窗体的,MouseUp,事件，当用户在窗体中单击鼠标右键时，上述代码可将控制名为,EDIT,的弹出式菜单激活显示在鼠标所在处。要显示弹出式菜单，可使用,PopupMenu,方法。,PopupMenu,方法的语法如下：,object.PopupMenu,Menuname,Flags,X,Y,Boldcommand,其中，,object,（可选）：窗口名称表达式。,Menuname,（必需）：为所要显示的弹出式菜单名（本例编辑菜单名为,EDIT,）。,Flags,（可选）：一个数值或常数，按照下列设置中的描述，用以指定弹出式菜单的位置和行为,在菜单中添加文件列表,1,设计时创建菜单控件数组,用户如果要在菜单编辑器中创建菜单控件数组,2,运行时动态地创建菜单数组,菜单控件数组中的元素也可以在运行时动态创建,4.2,工具栏设计,工具栏控件（,ToolBar,）用来在窗体上产生具有很多按钮对象的工具栏，按钮上可以显示文字、图形。,ImageList,控件,1.ImageList控件,2.常用属性,Index,Key,Picture,3.ImageList控件的创建,ToolBar,控件,在,Visual Basic 6.0,中，没有把,ToolBar,控件作为标准控件，它属于系统扩充的,ActiveX,控件。,1,ToolBar,控件的属性卡,2,ToolBar,控件的常用属性,ImageList,属性,DisableImageList,属性,HotImageList,属性,ShowTips,属性,Visible,属性,Style,属性,ToolBar,控件,(,续,),3.,ToolBar控件常用的事件和方法,ButtonClick事件,Add,(),ToolBar,控件名,.,Buttons.Add(Index,Key,Caption,Style,Image,),Remove,(),ToolBar,控件名,.,Buttons.Remove,按钮的,Index,值,Clear,(),ToolBar,控件名,.,Buttons.Clear,4.3,状态栏设计,用户可以在应用程序中添加状态栏，状态栏一般位于窗体的底部，用于向用户显示系统的一些状态,。,4.4,对话框设计,对话框是一种特殊的窗体，既可以用来显示信息，也可以用于输入应用程序继续执行所需要的数据。,使用函数生成对话框,1,消息框,通过执行,Visual Basic,中的,MsgBox,函数，可以在屏幕上出现一个消息框来显示消息,MsgBox,函数的语法格式如下：,MsgBox(prompt,buttons,title,helpfile,context),tt=MsgBox(,请选择操作,65,消息框,),使用函数生成对话框,(,续,),2,输入框,在,Visual Basic,中提供,InputBox,函数为用户建立输入框。,InputBox,函数的语法格式：,InputBox(prompt,title,default,xpos,helpfile context),name=InputBox(,请输入用户名：,输入对话框,),通用对话框,Visual Basic,提供通用对话框（,CommonDialog,）控件，通过该控件可以创建“打开”、“另存为”、“颜色”、“字体”和、“打印”和“帮助”,6,种标准对话框。,CommonDialog,控件不在标准工具箱中，在使用之前，应先将其添加到工具箱中。,通用对话框,(,续,),表,4.10,通用对话框的方法列表,方 法,对话框类型,ShowOpen,显示“打开”对话框,ShowSave,显示“另存为”对话框,ShowColor,显示“颜色”对话框,ShowFont,显示“字体”对话框,ShowPrinter,显示“打印”对话框,ShowHelp,显示“,Windows,帮助”对话框,“打开”和“另存为”对话框实例,在窗体上放置,6,个,CommandButton,控件，分别为：“打开”按钮，其,Name,属性为,command1,；“另存”按钮，其,Name,属性为,command2,；“颜色”按钮，其,Name,属性为,command3,；“字体”按钮，其,Name,属性为,command4,；“打印”按钮，其,Name,属性为,command5,；“帮助”按钮，其,Name,属性为,command6,；以及一个,CommonDialog,控件，其默认,Name,属性为,commondialog1,，如图,4.36,所示。,“打开”和“另存为”对话框实例,(,续,),图,4.36,示例使用的窗体,“打开”和“另存为”对话框实例,(,续,),要显示打开或者另存为对话框，程序代码如下：,Private Sub Command1_Click(),CommonDialog1.FileName=,CommonDialog1.Filter=all files|*.bmp|*.txt|*.doc,设置文件过滤器,Text1.Text=,正在打开,CommonDialog1.ShowOpen ,显示,打开,对话框,End Sub,“打开”和“另存为”对话框实例,(,续,),Private Sub Command2_Click(),CommonDialog1.FileName=,CommonDialog1.Filter=Bmp Files(*.bmp;*.BMP),设置文件过滤器,Text1.Text=,正在另存,CommonDialog1.ShowSave ,显示,另存为,对话框,End Sub,“打开”和“另存为”对话框实例,(,续,),Private Sub Command3_Click(),CommonDialog1.Flags=,cdlCCRGBInit,为对话框设置初始颜色值,CommonDialog1.ShowColor ,显示,颜色,对话框,Text1.BackColor=CommonDialog1.Color ,设置背景颜色,End Sub,“打开”和“另存为”对话框实例,(,续,),Private Sub Command4_Click(),CommonDialog1.ShowFont,显示,字体,对话框,CommonDialog1.Flags=,cdlCFBoth,Text1.FontSize=CommonDialog1.FontSize,Text1.FontUnderline=CommonDialog1.FontUnderline,Text1.FontStrikethru=CommonDialog1.FontStrikethru,Text1.FontBold=CommonDialog1.FontBold,Text1.FontItalic=CommonDialog1.FontItalic,End Sub,“打开”和“另存为”对话框实例,(,续,),Private Sub Command5_Click(),CommonDialog1.Copies=1 ,设置默认打印份数,CommonDialog1.ShowPrinter ,显示,打印,对话框,End Sub,Private Sub Command6_Click(),CommonDialog1.HelpFile=,c:windowshelpnotepad.hlp,CommonDialog1.HelpCommand=,cdlHelpForceFile,CommonDialog1.ShowHelp,显示帮助文件,End Sub,“打开”和“另存为”对话框实例,(,续,),程序运行后，单击“打开”按钮，显示如图,4.37,所示的对话框，单击“另存为”按钮，显示如图,4.38,所示的对话框，用户可从文件类型列表中看到文件过滤器的结果，单击“颜色”按钮，显示如图,4.39,所示的“颜色”对话框，选定颜色后，单击“确定”按钮，可以设置,Text1,中字体颜色，单击“字体”按钮，显示如图,4.40,所示的“字体”对话框，单击“打印”按钮，显示如图,4.41,所示的“打印”对话框，单击“帮助”菜单项，即可启动,Windows,帮助系统，如图,4.42,所示。,“打开”和“另存为”对话框实例,(,续,),图,4.37 “,打开”对话框,图,4.3