1、第第7 7章章 用户界面设计用户界面设计 7.1 7.1 7.2 7.2 通用对话框通用对话框7.3 7.3 菜单设计菜单设计 7.4 7.4 多重窗体多重窗体 7.5 7.5 鼠标和键盘鼠标和键盘 7.6 7.6 综合应用综合应用 7.1 7.1 常用控件常用控件 在在VB中控件大致分为三类：中控件大致分为三类：标准控件：在工具箱中默认显示标准控件：在工具箱中默认显示ActiveX控件：是扩展名为控件：是扩展名为.ocx的独立文件，是的独立文件，是VB工具工具箱的扩充部分箱的扩充部分可插入对象：是可插入对象：是Windows应用程序的对象应用程序的对象添加删除添加删除ActiveX控件控件A
2、ctiveX控件在使用前需要执行控件在使用前需要执行“工程工程”菜单下的菜单下的“部部件件”命令，在打开的命令，在打开的“部件部件”对话框中选择对话框中选择“控件控件”标标签，然后选择需要加入工具箱中的签，然后选择需要加入工具箱中的ActiveX控件名，单控件名，单击击“确定确定”即可将控件加入到工具箱中即可将控件加入到工具箱中7.1.1 7.1.1 单选按钮、复选框和框架单选按钮、复选框和框架1.单选按钮单选按钮(OptionButton)单选按钮以组的形式出现，单选按钮以组的形式出现，只允许选择一项只允许选择一项重要属性重要属性 Caption属性属性 按钮上显示的文本按钮上显示的文本Va
3、lue属性属性 表示单选按钮的状态：表示单选按钮的状态：True 被选定被选定 False 未被选定未被选定重要事件重要事件Click事件事件:单击后使单击后使Value属性为属性为TrueSetFocus方法方法是单选钮控件最常用的方法，可以在是单选钮控件最常用的方法，可以在代码中通过该方法将代码中通过该方法将Value属性设置为属性设置为TrueOption2.SetFocus用于给定选项的选取，可以同时选取多项（复选）用于给定选项的选取，可以同时选取多项（复选）Value属性值为整型，表示复选框的状态：属性值为整型，表示复选框的状态：0-vbUnchecked 未选定未选定1-vbChe
4、cked 被选定被选定2-vbGrayed 灰色，并显示一个选中标记灰色，并显示一个选中标记Caption：复选框标题文字：复选框标题文字重要事件重要事件Click事件事件:用户单击后，复选框自动改变状态用户单击后，复选框自动改变状态2.复选框复选框(CheckBoxCheckBox)3.框架框架 (FrameFrame)作为容器，用于放置控件，可以整体移动。作为容器，用于放置控件，可以整体移动。主要用于单选钮的分组，一组中的单选钮互斥，与主要用于单选钮的分组，一组中的单选钮互斥，与另一组单选钮无关另一组单选钮无关Caption属性，给出框架的标题属性，给出框架的标题注意：注意：1.必须先有框
5、架，再向框架中放入其他控件必须先有框架，再向框架中放入其他控件 2.若用框架将现有的控件分组，则选定控件剪切、若用框架将现有的控件分组，则选定控件剪切、选中框架再粘贴选中框架再粘贴框架可以响应框架可以响应Click和和DoubleClick事件，事件，但一般不需要编写事件过程但一般不需要编写事件过程 框架框架设设Caption为为 字体字体例：窗体上有一个名称为例：窗体上有一个名称为Frame1的框架，若要把框架上的框架，若要把框架上显示的显示的“Frame1”改为汉字改为汉字“框架框架”下面正确的语句是下面正确的语句是A）Frame1.Name=框架框架“B）Frame1.Caption=框
6、架框架“C）Frame1.Text=框架框架“D）Frame1.Value=框架框架例：窗体上画两个单选按钮（例：窗体上画两个单选按钮（Option1、Option2,标标题分别为题分别为“宋体宋体”“”“黑体黑体”）1个复选框（个复选框（Check1,标题为标题为“粗体粗体”）1个文本框（个文本框（Text1,Text属性为属性为“改变文字字体改变文字字体”），程序运行后要求），程序运行后要求“宋体宋体”单单选按钮和选按钮和“粗体粗体”复选框被选中，则能实现的语句复选框被选中，则能实现的语句是：是：A）Option1.Value=False Check1.Value=TrueB）Option
7、1.Value=True Check1.Value=0C）Option1.Value=False Check1.Value=2D）Option1.Value=True Check1.Value=1例例7.2Private Sub Option1_Click()Text1.FontName=宋体宋体End SubPrivate Sub Option2_Click()Text1.FontName=黑体黑体End SubPrivate Sub Check1_Click()Text1.FontBold=Not Text1.FontBoldEnd SubPrivate Sub Check2_Click(
8、)Text1.FontItalic=Not Text1.FontItalicEnd SubPrivate Sub Check3_Click()Text1.FontStrikethru=Not Text1.FontStrikethruEnd SubPrivate Sub Check4_Click()Text1.FontUnderline=Not Text1.FontUnderlineEnd Sub例例7.2对象对象属性属性Frame1Frame2Check1计算机计算机Check2操作系统操作系统Option1Windows 2000Option2Windows 98Combo1Text1Lab
9、el1品牌：品牌：Label2数量：数量：Command1OKList1Private Sub Form_Load()Combo1.Enabled=FalseText1.Enabled=FalseOption1.Enabled=FalseOption2.Enabled=FalseEnd SubPrivate Sub Check1_Click()Combo1.Enabled=Not Combo1.EnabledText1.Enabled=Not Text1.EnabledEnd SubPrivate Sub Check2_Click()Option1.Enabled=Not Option1.En
10、abledOption2.Enabled=Not Option2.EnabledEnd SubPrivate Sub Combo1_LostFocus()flag=FalseFor i=0 To Combo1.ListCount 1 If Combo1.List(i)=Combo1.Text Then flag=True Exit For End IfNext iIf Not flag ThenCombo1.AddItem Combo1.TextEnd IfEnd SubPrivate Sub Command1_Click()If Check1.Value=1 Then List1.AddIt
11、em Combo1.Text List1.AddItem Text1End IfIf Check2.Value=1 Then If Option1.Value Then List1.AddItem Windows 2000“Else List1.AddItem Windows 98“End IfEnd IfEnd Sub7.1.27.1.2滚动条和进度条滚动条和进度条 滚动条滚动条(ScrollBar)通常附在窗体上协助观察数据或确通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具定位置，也可作为数据输入工具进度条进度条(ProgressBar)用来指示事务处理的进度用来指示事务处理的
12、进度滚动条属性滚动条属性滚动条控件（滚动条控件（ScrollBar）分为水平滚动（）分为水平滚动（HScrollbar）和垂直滚动条（和垂直滚动条（VscrollBar）vValue:滑块当前位置的值滑块当前位置的值(缺省为缺省为0)vMin:滑块处最小位置的值滑块处最小位置的值(缺省为缺省为0)vMax:滑块处在最大位置的值滑块处在最大位置的值vSmallChange 单击滚动条两端的箭头时，单击滚动条两端的箭头时，Value属性属性(滑块位置滑块位置)增加或减少的值增加或减少的值vLargeChange 单击滚动条的空白区域时，单击滚动条的空白区域时，Value属性属性增加或减少的值增加或
13、减少的值滚动条事件滚动条事件（1）Change事件事件改变改变Value属性值属性值（滚动条内滑块位置改变）时发生（滚动条内滑块位置改变）时发生单击滚动条两端的箭头或空白处将引发单击滚动条两端的箭头或空白处将引发Change事事（2）Scroll事件事件按水平方向或垂直方向滚动时，按水平方向或垂直方向滚动时，Scroll事件发生事件发生拖动滑块拖动滑块时会触发时会触发Scroll事件事件Scroll事件与事件与Change事件的区别：事件的区别：当滚动条控件滚动时当滚动条控件滚动时Scroll事件一直发生，事件一直发生，而而Change事件只是在滚动结束之后才发生一次事件只是在滚动结束之后才发
14、生一次例例7.3计算计算018之间某个数阶乘，数据由滚动条获得。之间某个数阶乘，数据由滚动条获得。滚动条属性设置：滚动条属性设置：Max属性属性18，Min属性属性0，Value初值初值0 SmallChange属性为属性为1，LargeChange属性为属性为3Private Sub HScroll1_Change()Dim i As Integer,s As Double s=1 n=HScroll1.Value If n 0 Then For i=1 To n s=s*i Next i End If Label2.Caption=n&!=&sEnd Sub例例7.4 设计一个调色板应用程
15、序，使用三个滚动条作为设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具。三种基本颜色的输入工具。三个滚动条属性设置：三个滚动条属性设置：Max属性属性255Min属性属性0，Value初值初值0 SmallChange属性为属性为1，LargeChange属性为属性为25两个按钮，一个文本框两个按钮，一个文本框一个标签一个标签Dim Red&,Green&,Blue As LongPrivate Sub Command2_Click()Text1.BackColor=Label1.BackColorEnd SubPrivate Sub Command1_Click()Text1
16、.ForeColor=Label1.BackColorEnd SubPrivate Sub HScroll1_Change()Red=HScroll1.ValueGreen=HScroll2.ValueBlue=HScroll3.ValueLabel1.BackColor=RGB（Red，Green，Blue）End SubPrivate Sub HScroll2_Change()Red=HScroll1.ValueGreen=HScroll2.ValueBlue=HScroll3.ValueLabel1.BackColor=RGB（Red，Green，Blue）End SubPrivate
17、Sub HScroll3_Change()Red=HScroll1.ValueGreen=HScroll2.ValueBlue=HScroll3.ValueLabel1.BackColor=RGB（Red，Green，Blue）End Sub例、窗体上有一个名称为例、窗体上有一个名称为Hscroll1的滚动条，程序运的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动块的位置（即刻度值）示滚动块的位置（即刻度值）,能实现操作的过程是能实现操作的过程是）Private Sub HScroll1_Changc()Print HScrol
18、l1.Value End Sub B)Private Sub HSctroll1_Change()Print HScroll1.SmallChange End SubC)Private Sub HScroll1_Scroll()Print HScroll1.Value End SubD)Private Sub HScroll1_Scroll()Print HScroll1.SmallChange End Sub例：设窗体上有一个名称为例：设窗体上有一个名称为HScroll1的水平滚动条，的水平滚动条，当滚动块移动位置后，能够在窗体上输出移动的距离当滚动块移动位置后，能够在窗体上输出移动的距离（
19、即新位置与原位置的刻度值之差，向右移动为正数，（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面可实现此功能程序，请填写向左移动为负数）。下面可实现此功能程序，请填写 Dim As Integer Private Sub Form_Load()pos=HScroll1.Value End Sub Private Sub HScroll1_Change()Print -pos pos=HScroll1.Value End Sub HScroll1.value posProgressBarProgressBar控件控件 ProcessBar控件位于控件位于Microsoft W
20、indows Common Controls 6.0部件中，其添加到工具箱后的图标部件中，其添加到工具箱后的图标ProcessBar控件用于：监视一个较长操作完成的进度，控件用于：监视一个较长操作完成的进度，它通过从左到右用一些方块填充矩形的形式来表示操作它通过从左到右用一些方块填充矩形的形式来表示操作处理的进程。处理的进程。属性：属性：Orientation:决定进度条有水平和垂直两种决定进度条有水平和垂直两种 0-ccOrientationHorizontal(默认默认)1-ccOrientationVertical Max和和Min 设置控件的界限设置控件的界限 Value 控件执行阶段
21、被填充的数目，直到等于控件执行阶段被填充的数目，直到等于Max.控件显示的填充数是控件显示的填充数是Value属性与属性与Max和和Min属性之间属性之间的比值的比值(如：如：Max=5和和Min=0，Value=2，那么就填充五，那么就填充五分之二分之二)在对在对ProgressBar编程时，必须先确定编程时，必须先确定Value属性上限属性上限例例7.5 用进度条来指示一个大数组的元素赋值进度。用进度条来指示一个大数组的元素赋值进度。Sub Command1_Click()Dim i As Integer,a(25000)As String ProgressBar1.Min=LBound(
22、a)ProgressBar1.Max=UBound(a)ProgressBar1.Visible=True ProgressBar1.Value=ProgressBar1.Min For i=LBound(a)To UBound(a)a(i)=Initial value&i ProgressBar1.Value=i Next i ProgressBar1.Visible=False ProgressBar1.Value=ProgressBar1.Min For i=1 To 10 Print a(i)Next i End Sub7.1.3 图形框和图像框图形框和图像框图形框图形框Picture
23、Box控件控件作用作用:显示图片，也可作为其他控件的容器显示图片，也可作为其他控件的容器在程序运行时装入图形在程序运行时装入图形：Picture1.Picture=LoadPicture(“图形文件路径及名称图形文件路径及名称)删除图形框中图形删除图形框中图形Picture1.Picture=LoadPicture(“”)装入另一个图形框中的图形装入另一个图形框中的图形Picture1.Picture=Picture2.Picture Autosize属性属性 True 图形框自动调整大小与图片匹配图形框自动调整大小与图片匹配 False 图形超过图形框的部分将被剪裁掉图形超过图形框的部分将被
24、剪裁掉图像框图像框ImageImage 使用方法与图形框相同使用方法与图形框相同区别：区别：1.图形框作为一个图形框作为一个“容器容器”，可以把其他控件放在其内，可以把其他控件放在其内作为它的作为它的“子控件子控件”，当图形发生位移，其内的子控，当图形发生位移，其内的子控件也跟着一起移动。件也跟着一起移动。图像框内不能存放其他控件图像框内不能存放其他控件 2.没有没有Autosize属性，但有属性，但有Stretch属性属性3.图形框可通过图形框可通过 Print 方法显示文本，而图像框不能方法显示文本，而图像框不能 Stretch属性属性 False：图像框自动改变大小适应其中的图形图像框自
25、动改变大小适应其中的图形 True：图形根据图像框的大小自动调整尺寸图形根据图像框的大小自动调整尺寸例例7.6 说明图像框的说明图像框的Stretch属性对加载的图形的影响属性对加载的图形的影响Max属性属性20、Min属性属性0，Value初值初值10Dim H&,W As LongSub Check1_Click()Image1.Stretch=Check1.ValueEnd SubSub Form_Load()H=Image1.HeightW=Image1.WidthEnd SubSub HScroll1_Scroll()Image1.Height=H*HScroll1.Value/10
26、Image1.Width=W*HScroll1.Value/10End Sub7.1.4 7.1.4 定时器定时器 时钟控件（时钟控件（Timer）又称定时器控件，用于有规律地）又称定时器控件，用于有规律地定时执行指定的工作如定时执行指定的工作如计时、倒计时、动画计时、倒计时、动画等等 在程序在程序运行阶段，时钟控件不可见。运行阶段，时钟控件不可见。定时器以一定的时间间隔产生定时器以一定的时间间隔产生Timer事件事件 属属 性性（1）Interval属性（属性（缺省设置为缺省设置为 0）单位：为单位：为毫秒毫秒（0.001秒），表示计时间隔秒），表示计时间隔若将若将Interval属性设置为
27、属性设置为0或负数，则计时器停止工作或负数，则计时器停止工作 （2）Enabled属性（属性（缺省设置为缺省设置为True）设置为设置为True，而且，而且Interval0，则计时器开始工作，则计时器开始工作（以以Interval属性值为间隔，触发属性值为间隔，触发Timer事件事件）设置为设置为False可使时钟控件无效，即计时器停止工作。可使时钟控件无效，即计时器停止工作。事事 件件:时钟控件只有时钟控件只有Timer事件事件当当Enabled属性值为属性值为True且且Interval属性值大于属性值大于0时，时，该事件该事件以以Interval属性指定的时间间隔发生属性指定的时间间隔
28、发生 常常将需要定时执行的操作放在常常将需要定时执行的操作放在Timer事件过程中事件过程中例、例、设窗体上有一个标签设窗体上有一个标签Label1和一个计时器和一个计时器Timer1，Timer1的的Interval设置为设置为1000，Enabled设置为设置为True。程序运行时每秒在标签中显示一次系统当前时间程序运行时每秒在标签中显示一次系统当前时间）Private Sub Timer1_Timer()Label1.Caption=True End Sub B)Private Sub Timer1_Timer()Label1.Caption=Time End SubC)Private
29、Sub Timer1_Timer()Label1.Interval=1 End SubD)Private Sub Timer1_Timer()For k=l To Timer1.Interval Label1.Caption=Timer Next k End Sub 例：某人在窗体上画了一个例：某人在窗体上画了一个Timer1的计时器，属性设置的计时器，属性设置为为Enabled=True,Interval=0,一个标签一个标签Label1 的并编程的并编程如下。希望在每如下。希望在每2秒在标签上显示一次系统当前时间秒在标签上显示一次系统当前时间 Private Sub Timer1_Time
30、r()Label1.Caption=Time End Sub 程序执行时发现未能实现上述目的那么应做的修改是程序执行时发现未能实现上述目的那么应做的修改是 A）通过属性窗口把计时器的）通过属性窗口把计时器的Interval属性设置为属性设置为2000 B）通过属性窗口把计时器的）通过属性窗口把计时器的Enabled属生设置为属生设置为False C)把事件过程中的把事件过程中的Label1.Caption=Time语句改为语句改为 Timer1.Interval=Time D)把事件过程中的把事件过程中的Label1.Caption=Time语句改为语句改为Label1.Caption=Tim
31、er1.Time 例例7.7设计一个倒计时应用程序设计一个倒计时应用程序:设置设置Enabled=False,Interval=1000Dim t As IntegerSub Command1_Click()t=60*Val(Text1.Text)Timer1.Enabled=TrueEnd SubSub Timer1_Timer()Dim m%,s As Integer t=t-1 m=t 60 s=t Mod 60 Label1.Caption=m&分分&s&秒秒 If(t=0)Then Timer1.Enabled=False MsgBox(时间到！时间到！)End IfEnd Sub例
32、例7.8用一个定时器控制蝴蝶在窗体内的飞舞用一个定时器控制蝴蝶在窗体内的飞舞 对象名对象名属性属性设置设置Command1Caption退出退出Timer1Interval200Image1PictureBfly1.bmpImage2PictureVisibleBfly2.bmpFalseImage3PictureVisibleBfly1.bmpFalsePrivate Sub Timer1_Timer()Static x As Integer If x=0 Then Image1.Picture=Image2.Picture x=1 Else Image1.Picture=Image3.Pi
33、cture x=0 End IfEnd SubPrivate Sub Timer1_Timer()Static x As Integer Image1.Move Image1.Left+150,Image1.Top 100 If Image1.Top=0 Then Image1.Left=0 Image1.Top=2320 End If If x=0 Then Image1.Picture=Image2.Picture x=1 Else Image1.Picture=Image3.Picture x=0 End IfEnd Sub7.2 7.2 通用对话框通用对话框 VB提供了一组标准对话框提
34、供了一组标准对话框利用通用对话框控件可在窗体上创建打开文件、保存利用通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框。文件、颜色、字体、打印等对话框。工程工程 选定部选定部件标签件标签选定选定Microsoft Common Dialog Control 6.0 通用对话框添加到工具箱通用对话框添加到工具箱确定确定例例7.9 通过打开文件对话框，选择一个通过打开文件对话框，选择一个.bmp图片文件，图片文件，在图形框中显示该图片在图形框中显示该图片 Private Sub Command1_Click()CommonDialog1.ShowOpenImage1.Pict
35、ure=LoadPicture(CommonDialog1.FileName)End Sub通用对话框的属性设置方法：通用对话框的属性设置方法：1.1.在在“属性页属性页”对话框中设置对话框中设置2.2.在程序代码中设置，必须设置在显示对话框之前在程序代码中设置，必须设置在显示对话框之前CommonDialog1.FileName=*.bmp“CommonDialog1.InitDir=C:“CommonDialog1.Filter=pictures(*.bmp)|*.bmp|ALL files(*.*)|*.*“CommonDialog1.FilterIndex=1CommonDialog1
36、.ShowOpen通用对话框的基本属性和方法通用对话框的基本属性和方法(1)Action属性和属性和Show方法：方法：打开对话框打开对话框 ShowHelp6帮助（帮助（Help）对话框）对话框ShowPrinter5 打印打印(Print)对话框对话框ShowFont4 字体字体(Font)对话框对话框ShowColor3 颜色颜色(Color)对话框对话框ShowSave2另存为另存为(Save As)对话框对话框ShowOpen1打开打开(Open)文件对话框文件对话框Show方法方法Action属性属性通用对话框的类型通用对话框的类型该属性只能在程序中赋值该属性只能在程序中赋值Com
37、monDialog1.Action=1 CommonDialog1.ShowOpen通用对话框的基本属性和方法通用对话框的基本属性和方法(2)DialogTiltle属性属性:设置通用对话框标题设置通用对话框标题(3)CancelError属性属性:逻辑型值，表示用户在与对话逻辑型值，表示用户在与对话框进行信息交换时，按下框进行信息交换时，按下“取消取消”按钮时是否产生按钮时是否产生出错信息。出错信息。True：选择取消按钮：选择取消按钮,出现错误信息出现错误信息（错误标志错误标志Err设置为设置为32755 Cancel was selected）False：选择取消按钮，没有错误警告。：选
38、择取消按钮，没有错误警告。由由 ShowOpen或或Action属性为属性为1来实现来实现重要属性重要属性:(1)FileName(文件名称）文件名称）:用户所要打开的文件名用户所要打开的文件名(2)InitDir（初始化路径）（初始化路径）：指定打开对话框中的初始目录指定打开对话框中的初始目录(3)Filter（过滤器）：过滤器）：确定文件列表框中所显示文件的类型（多组用确定文件列表框中所显示文件的类型（多组用|分隔）分隔）若在若在“文件类型文件类型”列表框显示三种文件类型供用户选列表框显示三种文件类型供用户选择择 Documents(*.DOC)扩展名为扩展名为DOC的的Word文件文件
39、Text Files(*.TXT)扩展名为扩展名为TXT的文本的文本文件文件 All Files(*.*)所有所有文件文件Documents(*.DOC)|*.DOC|TextFiles(*.TXT)|*.TXT|All Files(*.*)|*.*7.2.17.2.1打开文件对话框打开文件对话框DialogTiltleFileName InitDirFilterFilterIndexDefaultExt(4)FilterIndex（过滤器索引）属性（过滤器索引）属性：为整型值：为整型值表示用户在文件类型列表框选定了第几组文件类型。表示用户在文件类型列表框选定了第几组文件类型。(5)Defau
40、ltExt属性属性:字符型确定保存文件的缺省扩展名字符型确定保存文件的缺省扩展名FilterFileNameInitDir FilterIndexDialogTiltle例例7.10编写一个简单的文本文件编辑程序编写一个简单的文本文件编辑程序当用户要求单击当用户要求单击“打开打开”就弹出打开对话框，当用户就弹出打开对话框，当用户选择一文本文件，便可将该文件内容读入到文本框；选择一文本文件，便可将该文件内容读入到文本框；对象对象属性属性设置设置TextBoxNameText1MultiLineTrueScrollBars2-VerticalCommonDialogNameCommonDialog
41、1FileName*.TXTInitDirC:FilterTextFiles(*.TXT)|*.TXT|AllFiles(*.*)|*.*FilterIndex 1Private Sub Command1_Click()CommonDialog1.ShowOpen Text1.Text=Open CommonDialog1.FileName For Input As#1 Do While Not EOF(1)Line Input#1,inputdata Text1.Text=Text1+inputdata+vbCrLf Loop Close#1 End SubPrivate Sub Comma
42、nd6_Click()EndEnd Sub7.2.2 7.2.2 保存文件对话框保存文件对话框 由由 ShowSave方法或方法或Action属性为属性为2来实现来实现与打开文件对话框的属性基本相同与打开文件对话框的属性基本相同特有的属性是特有的属性是DefaultExt，用于设置缺省的扩展名，用于设置缺省的扩展名例例7.10中另存命令按钮编写代码，保存文本框内信息中另存命令按钮编写代码，保存文本框内信息Sub Command2_Click()CommonDialog1.FileName=Default.DOC CommonDialog1.DefaultExt=DOC CommonDialog
43、1.ShowSave Open CommonDialog1.Filename For Output As#1 Print#1,Text1.Text Close#1End Sub 7.2.3 7.2.3 颜色对话框颜色对话框 由由ShowColor或或Action属性为属性为3实现打开颜色对话框实现打开颜色对话框重要属性重要属性Color：用来返回或设置选定的颜色：用来返回或设置选定的颜色 例例7.10 颜色命令按钮编写事件过程设置文本框前景色颜色命令按钮编写事件过程设置文本框前景色Sub Command3_Click()CommonDialog1.ShowColorText1.ForeColo
44、r=CommonDialog1.Color End Sub7.2.4 7.2.4 字体对话框字体对话框 由由ShowFont方法或方法或Action属性为属性为4来实现来实现字体对话框重要的属性有：字体对话框重要的属性有：Color,FontName,FontSize,FontBold FontItalic,FontStrikethru,FontUnderline等等 FontName FontBold、FontItalicFontSizeFontStrikethruFontUnderline Color显示字体对话框前必须设置显示字体对话框前必须设置Flags属性，否则发生不存属性，否则发生
45、不存在字体错误在字体错误 Flags属性：设置所显示的字体类型，按下表取值属性：设置所显示的字体类型，按下表取值常数常数值值说明说明cdlCFScreenFonts&H1屏幕字体屏幕字体cdlCFPrinterFonts&H2打印机字体打印机字体cdlCFBoth&H3打印机字体和屏幕字体打印机字体和屏幕字体cdlCFEffects&H100显示删除线和下划线检显示删除线和下划线检查框以及颜色组合框查框以及颜色组合框cdlCFEffects不能单独使用和其他三种用不能单独使用和其他三种用Or连接使用连接使用例例7.10中的字体按钮编写设置文本框字体的过程中的字体按钮编写设置文本框字体的过程Pr
46、ivate Sub Command4_Click()CommonDialog1.Flags=cdlCFBoth Or cdlCFEffects CommonDialog1.ShowFont Text1.FontName=CommonDialog1.FontName Text1.FontSize=CommonDialog1.FontSize Text1.FontBold=CommonDialog1.FontBold Text1.FontItalic=CommonDialog1.FontItalic Text1.FontStrikethru=CommonDialog1.FontStrikethru
47、 Text1.FontUnderline=CommonDialog1.FontUnderline Text1.ForeColor=CommonDialog1.ColorEnd Sub7.2.5 7.2.5 打印对话框打印对话框 由由ShowPrinter方法或方法或Action属性为属性为5来实现来实现打印对话框重要的属性有：打印对话框重要的属性有：FromPage：整型起始页号整型起始页号Topage：整型终止页号整型终止页号Copies：整型打印份数整型打印份数FromPage TopageCopies 例例10.5 例例10.2 中中“打印打印.”按钮的事件过程按钮的事件过程Privat
48、e Sub Command5_Click()CommonDialog1.Action=5 For i=1 To CommonDialog1.Copies Printer.Print Text1.Text Next i Printer.EndDocEnd Sub对上述程序，下列叙述中错误的是对上述程序，下列叙述中错误的是）单击）单击“打开打开”按钮显示打开文件对话框按钮显示打开文件对话框B）单击）单击“保存保存”按钮显示保存文件对话框按钮显示保存文件对话框C）单击）单击“打印打印”按钮，能够设置打印按钮，能够设置打印 选项，并执行打印操作选项，并执行打印操作D）单击）单击“退出退出”按钮，结束程
49、序的运行按钮，结束程序的运行例、窗体上有一个名称为例、窗体上有一个名称为CD1的通用对话框控件和的通用对话框控件和由四个命令按钮组成的控件数由四个命令按钮组成的控件数Command1,其下标其下标从左到右分别为从左到右分别为0、1、2、3,窗体外观如图所示窗体外观如图所示Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0CD1.Action=1Case 1CD1.ShowSaveCase 2CD1.Action=5Case 3EndEnd SelectEnd Sub例：在窗体上有例：在窗体上有1个名为个名为Cd
50、1的通用对话框的通用对话框,为了在为了在运行程序时打开保存文件对话框运行程序时打开保存文件对话框,则在程序总则在程序总应使用的语句是应使用的语句是()A)Cd1.Action=2 B)Cd1.Action=1 C)Cd1.ShowSave=Ture D)Cd1.ShowSave=0 7.3 7.3 菜单设计菜单设计 菜单是菜单是Windows应用程序中十分关键的要素之一，应用程序中十分关键的要素之一，它以分组的形式组织多个命令或操作，为用户灵活操它以分组的形式组织多个命令或操作，为用户灵活操作应用程序提供了便捷的手段。作应用程序提供了便捷的手段。菜单可分为两种基本类型：菜单可分为两种基本类型：
