第七章用户界面设计

1第1章VisualBasic程序设计概述第2章VB可视化编程基础第3章VB语言基础第4章VB控制结构第5章数组和自定义类型第6章过程第7章用户界面设计第8章数据文件第9章图形操作第10章数据库应用基础目录2第7章用户界面设计

7.1菜单设计7.2对话框设计7.3工具栏 7.4综合应用7.5自主学习—鼠标和键盘本章目录3用户界面是应用程序的重要组成部分主要负责用户与应用程序之间的交互对初学者来说，编写应用程序，应该首先设计一个简单、美观、易用的界面，然后便捷各控件的事件过程。初学者：编写应用程序=界面设计+编写事件过程

4常用控件VB控件分为三类：标准控件、ActiveX控件和可插入对象(EXCEL工作表)标准控件：内部控件，工具箱中默认显示ActiveX控件：是VB以及第三方开发商提供的，网上有数千种ActiveX控件供下载，大大节约程序员的开发时间。ActiveX部件是可以重复使用的编程代码和数据通用对话框就是一种ActiveX控件5可插入对象：是windows应用程序的对象，例如“microsoftexcel工作表”。可插入对象可以加载到工具箱中，具有与标准控件类似的属性，可以同标准控件一样使用。67.1菜单设计

菜单有下拉式菜单和弹出菜单(上下文菜单)。下拉式菜单的组成结构：快捷键热键子菜单标记主菜单菜单项子菜单名分隔线

本章目录7第七章用户界面设计引例7.1类似Windows记事本的应用程序

菜单：下拉式菜单、弹出式菜单对话框：通用对话框、自定义对话框

87.1菜单设计一、下拉式菜单

标题名称快捷键标题名称快捷键文件(F)FileMenu编辑(E)EditMenu…新建(N)FileNewCtrl+N…复制EditCopy…打开(O)…FileOpenCtrl+O…剪切EditCut…另存为(A)…FileSaveAsCtrl+S…粘贴Paste…分隔线FileSeparate格式(O)FormatMenu…退出(X)FileExit…字体FormatFont帮助(H)HelpMenu…颜色FormatColor…关于HelpAbout例7.2实现例7.1程序的菜单97.1.1菜单编辑器菜单列表框菜单项属性

操作按钮分隔线:在标题栏输入一个连字符“-”标题热键：前面加&本章目录每个菜单项都是一个控件对象，只有CLICK事件10菜单项除了Name、Visible、Enabled等属性之外，还具有下列重要属性：(1)Text

菜单项上显示的标题文本在字符前加一个&符号构成热键。例如，输入“新建(&N)”，则菜单显示“新建(N)”，N为热键。菜单项的分隔符，输入一个减号“-”。(2)ShortCut设置菜单项的快捷键。(3)Checked

控制菜单项左边是否显示“√”菜单项的事件Click

为菜单项编写程序例7.15将例7.10中的命令组织成菜单。

本章目录117.1菜单设计本章目录工具｜菜单编辑器Caption

热键显示F

定义快捷键Shortcut

定义的分隔线

Checked是不是选项√

◆设计菜单127.1菜单设计本章目录◆编写事件过程本章目录'“新建”菜单项的事件过程SubFileNew_Click()Text1.Text=""EndSub'“退出”菜单项的事件过程SubFileExit_Click()EndEndSub13二、

弹出菜单

独立于窗体菜单栏而显示在窗体内的浮动菜单。显示位置取决于单击鼠标键时的位置。设计过程与普通菜单相同，只是将菜单的Visible设为False菜单弹出的方法：

[对象.]PopupMenu

菜单名[,标志,x,y]标志，表示弹出的位置和触发的键本章目录14SubText1_MouseDown(ButtonAsInteger,…)IfButton=2ThenPopupMenuEditmenuendifEndSub说明：Button=2表示按下鼠标右键，EditMenu为编辑菜单名。例7.16为例7.15中的文本框配置弹出菜单157.2对话框设计VB提供了一组基于Windows的标准对话框。利用通用对话框控件可在窗体上创建六种标准对话框：打开文件、保存文件、颜色、字体、打印机和帮助不是标准控件，是ActiveX控件

位于MicrosoftCommonDialogControl6.0需用“工程-部件”加载运行时窗体上不会显示。本章目录通用对话框仅用于应用程序与用户之间进行信息交互，是输入输出的界面，不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作，如果想要实现这些功能则需要编程实现。167.2对话框设计本章目录一、通用对话框

◆显示对话框(VB提供6种对话框），Action属性和Show方法

打开对话框

通用对话框的类型Action属性Show方法打开（Open)文件对话框1ShowOpen另存为（SaveAs)对话框2ShowSave颜色（Color）对话框3ShowColor字体（Font）对话框4ShowFont打印机（Printer）对话框5ShowPrinter帮助（Help）对话框6ShowHelp例如：CommonDialog1.Action=1或CommonDialog1.ShowOpen该属性只能在程序中赋值，不能在属性窗口设置，用于调出相应的对话框。177.2对话框设计本章目录◆DialogTiltle标题属性◆CancelError属性

DialogTiltleTrue：按下“取消”按钮，出现错误警告

自动将错误标志Err置为32755（cdCancel）。False（缺省值）：按下“取消”按钮，不会出现错误警告。避免程序出错的结构：OnErrorGoToUserCancel '一旦程序出错转向UserCancelCommonDialog1.CancelError=True '选择"取消"产生错误警告┆ExitSub '退出过程UserCancel: MsgBox("没有选择文件！")187.2对话框设计本章目录◆属性页19FilterFileNameInitDir

FilterIndex例7.10编写一个简单的文本文件编辑程序本章目录207.2对话框设计本章目录1．打开对话框

CommonDialog1.Action=1或CommonDialog1.ShowOpen

◆FileName：文件名，包含路径例如：C:\User\T1.TXT◆FileTitle：文件名，不包含路径例如：T1.TXT◆Filter：过滤器确定文件列表框中所显示文件的类型若要显示：

Documents(*.DOC) 扩展名为DOC的Word文件

TextFiles(*.TXT) 扩展名为TXT的文本文件

AllFiles(*.*) 所有文件

Filter设置为：Documents(*.DOC)|*.DOC|TextFiles(*.TXT)|*.txt|AllFiles|*.*

◆

FilterIndex：过滤器索引，整型指定是显示第几组文件若FilterIndex为2，则文件列表框文本文件（*.TXT）。◆InitDir：初始化目录，,用于指定打开对话框中的初始目录.21Filter是文件类型过滤器用“|”隔开，前面显示列表内显示的内容，后面跟着实际过滤的格式。

比如xxx.Flter="Word文档(*.doc)|*.doc|文本文件(*.txt)|*.txt|所有文件(*.*)|*.*“FilterIndex=1时，CommonDialog控件就只显示*.doc格式的内容22SubCommand1_Click()OnErrorGoToUserCancel '一旦程序出错转向UserCancelCommonDialog1.CancelError=True'用户选择"取消"按钮后产生错误警告

CommonDialog1.FileName="*.Bmp"CommonDialog1.InitDir="C:\Windows"CommonDialog1.Filter="Pictures(*.Bmp)|*.Bmp|AllFiles(*.*)|*.*"CommonDialog1.FilterIndex=1CommonDialog1.ShowOpen'也可用：CommonDialog1.Action=1Picture1.Picture=LoadPicture(CommonDialog1.FileName)'图片装入图形框

ExitSubUserCancel:MsgBox("没有选择文件！")EndSub7.2对话框设计本章目录例7.4通过打开文件对话框，选择一个BMP位图文件，在图形框中显示该图片。

①

使用“工程｜部件”命令

加载MicrosoftCommonDialogControl6.0部件②设置控件属性③编写事件过程23SubCommand1_Click()OnErrorGoToUserCancel '一旦程序出错转向UserCancelCommonDialog1.CancelError=True'用户选择"取消"按钮后产生错误警告

CommonDialog1.ShowOpen'也可用：CommonDialog1.Action=1Picture1.Picture=LoadPicture(CommonDialog1.FileName)'图片装入图形框

ExitSubUserCancel:MsgBox("没有选择文件！")EndSub7.2对话框设计本章目录若通用对话框进行了设置，则事件过程简化24例7.5为例7.1中的“打开”菜单项编写事件过程。

SubFileOpen_Click()CommonDialog1.FileName="*.txt"CommonDialog1.InitDir="C:\"CommonDialog1.Filter="TextFiles(*.Txt)|*.Txt|Alliles(*.*)|*.*"CommonDialog1.FilterIndex=1CommonDialog1.CancelError=TrueCommonDialog1.Action=1Text1.Text=""OpenCommonDialog1.FileNameForInputAs#1'打开文件

DoWhileNotEOF(1)LineInput#1,InputData '读一行数据

Text1.Text=Text1.Text+InputData+vbCrLfLoopClose#1 '关闭文件EndSub7.2对话框设计本章目录252.另存为对话框

CommonDialog1.Action=2或CommonDialog1.ShowSave特有的属性DefaultExt：缺省扩展名，当filename没指定文件扩展名，就用DefaultExt属性例7.6为例7.1中的“另存为”菜单项编写事件过程。SubFileSaveAs_Click()OnErrorGoToUserCancelCommonDialog1.FileName="C:\Default.Txt" '设置缺省文件名

CommonDialog1.DefaultExt="Txt" '设置缺省扩展名

CommonDialog1.CancelError=TrueCommonDialog1.Action=2 '打开另存为对话框

OpenCommonDialog1.FileNameForOutputAs#1 '打开文件

Print#1,Text1.TextClose#1 '关闭文件

ExitSubUserCancel:MsgBox("没有指定文件名！")EndSub7.2对话框设计本章目录26例7.11为例7.10中的另存为命令按钮编写代码，保存文本框内的信息。SubCommand2_Click()CommonDialog1.FileName="Default.txt"CommonDialog1.DefaultExt="txt"

CommonDialog1.ShowSave

OpenCommonDialog1.filenameForOutputAs#1Print#1,Text1.Text '保存文件

Close#1 '关闭文件EndSub273.颜色对话框

CommonDialog1.Action=3或CommonDialog1.ShowColor重要属性Color，它返回或设置选定的颜色例7.7为例7.1中的“颜色”菜单项编写事件过程。SubFileSaveAs_Click()CommonDialog1.CancelError=True'打开颜色对话框CommonDialog1.Action=3'设置文件框前景颜色Text1.ForeColor=CommonDialog1.ColorEndSub7.2对话框设计本章目录设置文本框前景颜色284.字体对话框

CommonDialog1.Action=4或CommonDialog1.ShowFont◆

Flags属性7.2对话框设计本章目录①Flags属性必须设置，否则出错②常数cdlCFEffects不能单独使用

与其他常数进行Or运算◆

FontNameFontSize、FontBold、

FontItalicFontStrikethruFontUnderlineColor29例7.8为例7.1中的“字体”菜单项编写事件过程。SubFormatFont_Click()CommonDialog1.CancelError=TrueCommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialog1.Action=4IfCommonDialog1.FontName<>""ThenText1.FontName=CommonDialog1.FontNameEndIfText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicText1.FontStrikethru=CommonDialog1.FontStrikethruText1.FontUnderline=CommonDialog1.FontUnderlineText1.ForeColor=CommonDialog1.ColorEndSub7.2对话框设计本章目录307.2对话框设计本章目录二、自定义对话框

1.设计对话框①添加窗体

项目｜添加窗体 窗体文件：.FRM文件

②设置属性

③设置启动窗体项目｜属性

317.2对话框设计本章目录2.主要语句和方法●Load语句装入窗体 ●

Unload语句卸载窗体

Load窗体名称

UnLoad窗体名称或UnLoadMe

事件：Initialize、Load

事件：Unload●

Show方法加载和显示窗体

[窗体名称].Show[模式]Form1.ShowvbModeless

Form1.ShowvbModal

非模式对话框 模式对话框

无法操作其他窗体 可以操作其他窗体●

Hide方法隐藏窗体

[窗体名称.]Hide327.2对话框设计本章目录3.与对话框的数据传递

①一个窗体直接访问另一个窗体上的数据②一个窗体直接访问在另一个窗体中定义的全局变量③在模块定义公共变量实现相互访问。

33例7.9为例7.1设计一个对话框，编写“关于(A)…”事件过程

SubFormatFont_Click()SubHelpAboutDialog_Click()Form2.ShowvbModalEndSub7.2对话框设计本章目录347.2.3颜色对话框由ShowColor方法打开颜色对话框重要属性Color，它返回或设置选定的颜色例7.12为例7.10中的颜色命令按钮编写事件过程，设置文本框的前景色。SubCommand3_Click()CommonDialog1.ShowColorText1.ForeColor=CommonDialog1.ColorEndSub设置文本框前景颜色本章目录357.2.4字体对话框由ShowFont方法来实现主要属性Flags：显示字体对话框之前必须设置（P169),通常设置为&H103，或者&H3or&H100Font:获取选择的字体Color:返回或设置选定的颜色本章目录36例7.13为例7.10中的字体按钮编写设置文本框字体的过程。CommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialog1.Action=4Text1.FontName=CommonDialog1.FontNameText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicText1.FontStrikethru=CommonDialog1.FontStrikethruText1.FontUnderline=CommonDialog1.FontUnderlineText1.ForeColor=CommonDialog1.Color377.3工具栏本章目录控件ToolBar和ImageList◆位于MicrosoftWindowsCommonControl6.0部件7.10为例7.1配置一个工具栏①加载MicrosoftWindowsCommonControl6.0部件添加ToolBar和ImageList控件②在ImageList1属性页中插入图片③ToolBar1与ImageList1绑定

通用—图像列表（ImageList1）387.3工具栏本章目录④在ToolBar1属性页的按钮选项卡中，插入7个按钮，然后将按钮与对应的图像连接起来⑤编写事件过程SubToolbar1_ButtonClick(ByValButtonAsctlLib.Button)SelectCaseButton.IndexCase1CallFileNew_ClickCase2CallFileOpen_ClickCase3CallFileSaveAs_ClickCase4CallEditCut_ClickCase5CallEditCopy_ClickCase6CallEditPaste_ClickCase7CallHelpAboutDialog_ClickEndSelectEndSub397.4综合应用

本章目录例7.11

设计一个如图所示的程序①添加模块，定义全局变量PublicMin_Value%,Max_Value%PublicAve_Value#②事件过程SubStatistics_Click()Dimi%,Min%,Max%,Sum%Sum=List1.List(0)Fori=1ToList1.ListCount-1IfList1.List(i)<List1.List(Min)ThenMin=iEndIfIfList1.List(i)>List1.List(Max)ThenMax=iEndIfSum=Sum+List1.List(i)NextiMin_Value=List1.List(Min)Max_Value=List1.List(Max)Ave_Value=Sum/List1.ListCountForm2.ShowEndSub显示统计结果对话框上的事件过程

SubForm_Load()Text1.Text=Min_ValueText2.Text=Max_ValueText3.Text=Ave_ValueEndSub407.4综合应用

本章目录例7.12多重窗体应用示例

方法1：①添加模块，定义全局变量

PublicsMath,sPhysics,sChemistry,sChinese,sEnglishAsSingle②编写事件过程417.4综合应用

本章目录

'窗体Form2的Command1_Click()用于将输入的数据赋给全局变量SubCommand1_Click() sMath=Val(Text1.Text) sPhysics=Val(Text2.Text) sChemistry=Val(Text3.Text) sChinese=Val(Text4.Text) sEnglish=Val(Text5.Text) Form2.Hide Form1.ShowEndSub'Form3窗体的Form_Activate()用于计算总分和平均分并显示。

SubForm_Activate() DimsTotalAsSingle

sTotal=sMath+sPhysics+sChemistry+sChinese+sEnglish Text1.Text=sTotal/5 '计算平均成绩并送入文本框

Text2.Text=sTotal '将总分送入文本框

EndSub427.4综合应用

本章目录

方法二：直接访问其它窗体上的数据。'Form3窗体的Form_Activate()事件过程SubForm_Activate() DimsTotalAsSingle WithForm2 '将Form2中各文本框的数据相加并送Total变量

sTotal=val(.Text1.Text)+val(.Text2.Text)+val(.Text3.Text)_+val(.Text4.Text)+val(.Text5.Text)EndWithText1.Text=sTotal/5 '计算平均成绩送入文本框

Text2.Text=sTotal '将总分送入文本框EndSub437.4多重窗体

指一个应用程序中有多个并列的普通窗体，每个窗体有自己的界面和代码，完成不同的功能1.添加窗体通过工程|添加窗体命令，每个窗体有独立的Frm文件，同一工程不能有相同名称的窗体

。2.设置启动对象★通过工程|属性指定启动对象(缺省为第一个创建的窗体)。启动过程除了是窗体外还可以是main子过程，但是main子过程必须放在标准模块中本章目录44窗体语句(1)Load语句装入窗体到内存(不显示)

Load

窗体名称(2)Unload语句从内存删除窗体

Unload

窗体名称或

UnloadMe(3)Show方法显示窗体

[窗体名称].Show

[模式]

模式为0：关闭才能对其它窗体进行操作模式为1：可以同时对其它窗体进行操作(4)Hide方法隐藏窗体

[窗体名称.]Hide本章目录45不同窗体数据的存取(1)直接访问另一个窗体上的控件数据另一个窗体名.控件名.属性

Text1=Val(Form2.Text1)+Val(Form2.Text2)(2)访问另一个窗体中的全局变量

另一个窗体名.全局变量名例7.17多重窗体应用:输入学生五门课程的成绩，计算总分及平均分并在不同窗体内显示。本章目录467.5鼠标和键盘7.5.1鼠标P180鼠标事件需要注意事件发生在哪一个对象上(控件还是窗体）Click、DblClick事件MouseDown

按下任意一个鼠标按钮时被触发MouseUp

释放任意一个鼠标按钮时被触发MouseMove

移动鼠标时被触发本章目录47鼠标(p180两张表）鼠标事件过程中的参数e决定鼠标的当前状态。e.X、e.Y表示当前鼠标的位置；e.Button指示按下或释放了哪个鼠标按钮，其值的意义如下表：

枚举常量含义MouseButtons.Left

按下或释放了鼠标左键MouseButtons.Right按下或释放了鼠标右键MouseButtons.Middle

按下或