完整版第七章用户界面设计

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应用程序的对象应用程序的对象添加删除添加删除Acti

2、veX控件控件ActiveX控件在使用前需要执行控件在使用前需要执行“工程工程”菜单下的菜单下的“部部件件”命令，在打开的命令，在打开的“部件部件”对话框中选择对话框中选择“控件控件”标标签，然后选择需要加入工具箱中的签，然后选择需要加入工具箱中的ActiveX控件名，单控件名，单击击“确定确定”即可将控件加入到工具箱中即可将控件加入到工具箱中VB允许用户自己开发需要的控件，并将其编译允许用户自己开发需要的控件，并将其编译成成.ocx文件以便在任何工程中方便地调用。创建简单文件以便在任何工程中方便地调用。创建简单ActiveX控件的一般过程如下：控件的一般过程如下： 1) 建立一个新的建立一个

3、新的ActiveX控件工程。控件工程。 2) 像设计一般程序一样像设计一般程序一样“画出画出”控件的界面。控件的界面。 3) 编写实现控件行为的代码。编写实现控件行为的代码。 4) 编写实现控件特有属性、方法和事件的代码。编写实现控件特有属性、方法和事件的代码。 5) 检测并保存控件的所有文件。检测并保存控件的所有文件。 6) 将控件编译成将控件编译成.ocx文件。文件。例：设计一个能计算三角函数的控件例：设计一个能计算三角函数的控件1)新建一个新建一个ActiveX控件工程控件工程2)添加需要的标准控件添加需要的标准控件3)编写程序代码编写程序代码对象对象属性属性Label1Label2=C

4、ommand1 确定确定Command2 取消取消Option1(0)正弦正弦Option1(1)余弦余弦Option1(2)正切正切Option1(3)余切余切Text1Text2Dim numAs IntegerPrivate Sub Command2_Click() Text1 = “ Text2 = “ Text1.SetFocus Option1(0).Value = TrueEnd SubPrivate Sub Option1_Click(Index As Integer) Label1 = Option1(Index).Caption num= IndexEnd SubPriva

5、te Sub Command1_Click() Select Case num Case 0 Text2 = Format(Sin(Val(Text1) * 3.1415926 / 180), 0.0) Case 1 Text2 = Format(Cos(Val(Text1) * 3.1415926 / 180), 0.0) Case 2 If Text1 = 90 Or Text1 = 270 Then Text2 = 函数值不存在函数值不存在“ Else Text2 = Format(Tan(Val(Text1) * 3.1415926 / 180), 0.0) End If Case 3

6、 If Text1 = 0 Or Text1 = 180 Or Text1 = 360 Then Text2 = 函数值不存在函数值不存在“ Else Text2 = Format(1 / (Tan(Val(Text1) * 3.1415926 / 180), 0.0) End If End Select Text1.SetFocusEnd Sub4) 执行执行“工程工程”菜单中的菜单中的“工程工程1属性属性”命令，设置控命令，设置控件的名称为件的名称为“trigonometric”，描述内容为，描述内容为“三角函数三角函数计算器计算器”，然后单击，然后单击【确定确定】按钮。按钮。5)执行执行

7、“保存工程保存工程”命令，将所有的控件文件存盘，执命令，将所有的控件文件存盘，执行行“文件文件”菜单中的菜单中的“生成生成xxx.ocx文件文件”命令，对控命令，对控件进行编译件进行编译6) 新建一个标准新建一个标准EXE工程，向工具箱中添加工程，向工具箱中添加“三角函三角函数计算器数计算器”控件，并将其加入窗体。控件，并将其加入窗体。7.1.1 7.1.1 单选按钮、复选框和框架单选按钮、复选框和框架1.单选按钮单选按钮(OptionButton ) 单选按钮以组的形式出现，单选按钮以组的形式出现，只允许选择一项只允许选择一项重要属性重要属性 Caption属性属性 按钮上显示的文本按钮上显

8、示的文本Value属性属性 表示单选按钮的状态：表示单选按钮的状态： True 被选定被选定 False 未被选定未被选定重要事件重要事件Click事件事件:单击后使单击后使Value属性为属性为TrueSetFocus方法方法是单选钮控件最常用的方法，可以在是单选钮控件最常用的方法，可以在代码中通过该方法将代码中通过该方法将Value属性设置为属性设置为TrueOption2.SetFocus用于给定选项的选取，可以同时选取多项（复选）用于给定选项的选取，可以同时选取多项（复选）Value属性值为整型，表示复选框的状态：属性值为整型，表示复选框的状态： 0 - vbUnchecked 未选定

9、未选定1 - vbChecked 被选定被选定2 -vbGrayed 灰色，并显示一个选中标记灰色，并显示一个选中标记Caption：复选框标题文字：复选框标题文字重要事件重要事件Click事件事件:用户单击后，复选框自动改变状态用户单击后，复选框自动改变状态2.复选框复选框(CheckBoxCheckBox) 3.框架框架 (FrameFrame) 作为容器，用于放置控件，可以整体移动。作为容器，用于放置控件，可以整体移动。 主要用于单选钮的分组，一组中的单选钮互斥，与主要用于单选钮的分组，一组中的单选钮互斥，与另一组单选钮无关另一组单选钮无关Caption属性，给出框架的标题属性，给出框架

10、的标题注意：注意：1.必须先有框架，再向框架中放入其他控件必须先有框架，再向框架中放入其他控件 2.若用框架将现有的控件分组，则选定控件剪切、若用框架将现有的控件分组，则选定控件剪切、选中框架再粘贴选中框架再粘贴框架可以响应框架可以响应Click和和DoubleClick事件，事件，但一般不需要编写事件过程但一般不需要编写事件过程 框架框架设设Caption为为 字体字体例：窗体上有一个名称为例：窗体上有一个名称为Frame1的框架，若要把框架上的框架，若要把框架上显示的显示的“Frame1”改为汉字改为汉字“框架框架”下面正确的语句是下面正确的语句是A）Frame1.Name=框架框架“ B

11、）Frame1.Caption=框架框架“C）Frame1.Text=框架框架“ D）Frame1.Value=框架框架例：窗体上画两个单选按钮（例：窗体上画两个单选按钮（Option1、Option2,标标题分别为题分别为“宋体宋体”“”“黑体黑体”）1个复选框（个复选框（Check1,标题为标题为“粗体粗体”）1个文本框（个文本框（Text1,Text属性为属性为“改变文字字体改变文字字体”），程序运行后要求），程序运行后要求“宋体宋体”单单选按钮和选按钮和“粗体粗体”复选框被选中，则能实现的语句复选框被选中，则能实现的语句是：是：A）Option1.Value=False Check1.

12、Value=TrueB）Option1.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 SubP

13、rivate Sub Check2_Click()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 2000O

14、ption2Windows 98Combo1Text1Label1品牌：品牌：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 Ch

15、eck2_Click()Option1.Enabled = Not Option1.EnabledOption2.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

16、Sub Command1_Click()If Check1.Value = 1 Then List1.AddItem 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 Sub.2滚动条和进度条滚动条和进度条 滚动条滚动条(ScrollBar)通常附在窗体上协助观察数据或确通常附在窗体上协助观察数据或确定位置，也可作

17、为数据输入工具定位置，也可作为数据输入工具进度条进度条(ProgressBar)用来指示事务处理的进度用来指示事务处理的进度滚动条属性滚动条属性滚动条控件（滚动条控件（ScrollBar）分为水平滚动（）分为水平滚动（HScrollbar）和垂直滚动条（和垂直滚动条（VscrollBar）vValue: 滑块当前位置的值滑块当前位置的值(缺省为缺省为0)vMin: 滑块处最小位置的值滑块处最小位置的值(缺省为缺省为0)vMax: 滑块处在最大位置的值滑块处在最大位置的值vSmallChange 单击滚动条两端的箭头时，单击滚动条两端的箭头时，Value属性属性(滑块位置滑块位置)增加或减少的值

18、增加或减少的值vLargeChange 单击滚动条的空白区域时，单击滚动条的空白区域时，Value属性属性增加或减少的值增加或减少的值滚动条事件滚动条事件（1）Change事件事件改变改变Value属性值属性值（滚动条内滑块位置改变）时发生（滚动条内滑块位置改变）时发生单击滚动条两端的箭头或空白处将引发单击滚动条两端的箭头或空白处将引发Change事事（2）Scroll事件事件按水平方向或垂直方向滚动时，按水平方向或垂直方向滚动时，Scroll事件发生事件发生拖动滑块拖动滑块时会触发时会触发Scroll事件事件Scroll事件与事件与Change事件的区别：事件的区别：当滚动条控件滚动时当滚动

19、条控件滚动时Scroll事件一直发生，事件一直发生，而而Change事件只是在滚动结束之后才发生一次事件只是在滚动结束之后才发生一次例例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 =

20、 1 To n s = s * i Next i End If Label2.Caption = n & ! = &sEnd Sub例例7.4 设计一个调色板应用程序，使用三个滚动条作为设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具。三种基本颜色的输入工具。三个滚动条属性设置：三个滚动条属性设置：Max属性属性255Min属性属性0， Value初值初值0 SmallChange属性为属性为1，LargeChange属性为属性为25两个按钮，一个文本框两个按钮，一个文本框一个标签一个标签Dim Red&, Green&, Blue As LongPrivate Sub Com

21、mand2_Click()Text1.BackColor = Label1.BackColorEnd SubPrivate Sub Command1_Click()Text1.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 =

22、HScroll1.ValueGreen = HScroll2.ValueBlue = HScroll3.ValueLabel1.BackColor = RGB（Red ， Green ， Blue ）End SubPrivate Sub HScroll3_Change()Red = HScroll1.ValueGreen = HScroll2.ValueBlue = HScroll3.ValueLabel1.BackColor = RGB（Red ， Green ， Blue ）End Sub例、窗体上有一个名称为例、窗体上有一个名称为Hscroll1的滚动条，程序运的滚动条，程序运行后，当单

23、击滚动条两端的箭头时，立即在窗体上显行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动块的位置（即刻度值）示滚动块的位置（即刻度值）,能实现操作的过程是能实现操作的过程是）Private Sub HScroll1_Changc( ) Print HScroll1.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_Scr

24、oll() Print HScroll1.SmallChange End Sub例：设窗体上有一个名称为例：设窗体上有一个名称为HScroll1的水平滚动条，的水平滚动条，当滚动块移动位置后，能够在窗体上输出移动的距离当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面可实现此功能程序，请填写向左移动为负数）。下面可实现此功能程序，请填写 Dim As Integer Private Sub Form_Load() pos=HScroll1.Value End Sub Private

25、 Sub HScroll1_Change() Print -pos pos=HScroll1.Value End Sub HScroll1.value posProgressBarProgressBar控件控件 ProcessBar控件位于控件位于Microsoft Windows Common Controls 6.0部件中，其添加到工具箱后的图标部件中，其添加到工具箱后的图标ProcessBar控件用于：监视一个较长操作完成的进度，控件用于：监视一个较长操作完成的进度，它通过从左到右用一些方块填充矩形的形式来表示操作它通过从左到右用一些方块填充矩形的形式来表示操作处理的进程。处理的进程。属

26、性：属性：Orientation:决定进度条有水平和垂直两种决定进度条有水平和垂直两种 0-ccOrientationHorizontal(默认默认) 1-ccOrientationVertical Max和和Min 设置控件的界限设置控件的界限 Value 控件执行阶段被填充的数目，直到等于控件执行阶段被填充的数目，直到等于Max.控件显示的填充数是控件显示的填充数是Value属性与属性与Max和和Min属性之间的属性之间的比值比值(如：如：Max=5和和Min=0， Value=2，那么就填充五分，那么就填充五分之二之二)在对在对ProgressBar编程时，必须先确定编程时，必须先确定V

27、alue属性上限属性上限例例7.5 用进度条来指示一个大数组的元素赋值进度。用进度条来指示一个大数组的元素赋值进度。 Sub Command1_Click() Dim i As Integer,a(25000) As String ProgressBar1.Min = LBound(a) ProgressBar1.Max = UBound(a) ProgressBar1.Visible = True ProgressBar1.Value = ProgressBar1.Min For i = LBound(a) To UBound(a) a(i) = Initial value & i Prog

28、ressBar1.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 图形框和图像框图形框和图像框图形框图形框PictureBox控件控件作用作用:显示图片，也可作为其他控件的容器显示图片，也可作为其他控件的容器在程序运行时装入图形在程序运行时装入图形 ：Picture1.Picture = LoadPicture(“图形文件路径及名称图形文件路径及名称)删除图形框中图形删除图形框中图形

29、Picture1.Picture = LoadPicture(“”) 装入另一个图形框中的图形装入另一个图形框中的图形Picture1.Picture = Picture2.Picture Autosize属性属性 True 图形框自动调整大小与图片匹配图形框自动调整大小与图片匹配 False 图形超过图形框的部分将被剪裁掉图形超过图形框的部分将被剪裁掉图像框图像框ImageImage 使用方法与图形框相同使用方法与图形框相同区别：区别：1.图形框作为一个图形框作为一个“容器容器”，可以把其他控件放在其内，可以把其他控件放在其内作为它的作为它的“子控件子控件”，当图形发生位移，其内的子控，当图

30、形发生位移，其内的子控件也跟着一起移动。件也跟着一起移动。图像框内不能存放其他控件图像框内不能存放其他控件 2.没有没有Autosize属性，但有属性，但有Stretch属性属性3.图形框可通过图形框可通过 Print 方法显示文本，而图像框不能方法显示文本，而图像框不能 Stretch属性属性 False： 图像框自动改变大小适应其中的图形图像框自动改变大小适应其中的图形 True ：图形根据图像框的大小自动调整尺寸图形根据图像框的大小自动调整尺寸例例7.6 说明图像框的说明图像框的Stretch属性对加载的图形的影响属性对加载的图形的影响Max属性属性20、Min属性属性0， Value初

31、值初值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 / 10Image1.Width = W * HScroll1.Value / 10End Sub7.1.4 7.1.4 定时器定时器 时钟控件（时钟控件（Timer）又称定时器控件，用于有规律地）又称定时器控件，用于有规律地

32、定时执行指定的工作如定时执行指定的工作如计时、倒计时、动画计时、倒计时、动画等等 在程序在程序运行阶段，时钟控件不可见。运行阶段，时钟控件不可见。定时器以一定的时间间隔产生定时器以一定的时间间隔产生Timer事件事件 属属 性性（1）Interval属性（属性（缺省设置为缺省设置为 0 ）单位：为单位：为毫秒毫秒（0.001秒），表示计时间隔秒），表示计时间隔若将若将Interval属性设置为属性设置为0或负数，则计时器停止工作或负数，则计时器停止工作 （2）Enabled属性（属性（缺省设置为缺省设置为True）设置为设置为True，而且，而且Interval0，则计时器开始工作，则计时器开

33、始工作（以以Interval属性值为间隔，触发属性值为间隔，触发Timer事件事件）设置为设置为False可使时钟控件无效，即计时器停止工作。可使时钟控件无效，即计时器停止工作。事事 件件: 时钟控件只有时钟控件只有Timer事件事件当当Enabled属性值为属性值为True且且Interval属性值大于属性值大于0时，时， 该事件该事件以以Interval属性指定的时间间隔发生属性指定的时间间隔发生 常常将需要定时执行的操作放在常常将需要定时执行的操作放在Timer事件过程中事件过程中例、例、 设窗体上有一个标签设窗体上有一个标签Label1和一个计时器和一个计时器Timer1，Timer1

34、的的Interval设置为设置为1000，Enabled设置为设置为True。程序运行时每秒在标签中显示一次系统当前时间程序运行时每秒在标签中显示一次系统当前时间）Private Sub Timer1_Timer() Label1.Caption=True End Sub B) Private Sub Timer1_Timer() Label1.Caption=Time End SubC) Private Sub Timer1_Timer() Label1.Interval=1 End SubD) Private Sub Timer1_Timer() For k = l To Timer1.I

35、nterval Label1.Caption=Timer Next k End Sub 例：某人在窗体上画了一个例：某人在窗体上画了一个Timer1的计时器，属性设置的计时器，属性设置为为Enabled=True, Interval=0,一个标签一个标签Label1 的并编程的并编程如下。希望在每如下。希望在每2秒在标签上显示一次系统当前时间秒在标签上显示一次系统当前时间 Private Sub Timer1_Timer() Label1.Caption=Time End Sub 程序执行时发现未能实现上述目的那么应做的修改是程序执行时发现未能实现上述目的那么应做的修改是 A）通过属性窗口把计

36、时器的）通过属性窗口把计时器的Interval属性设置为属性设置为2000 B）通过属性窗口把计时器的）通过属性窗口把计时器的Enabled属生设置为属生设置为False C)把事件过程中的把事件过程中的Label1.Caption=Time语句改为语句改为 Timer1.Interval=Time D)把事件过程中的把事件过程中的Label1.Caption=Time语句改为语句改为Label1.Caption=Timer1.Time 例例7.7设计一个倒计时应用程序设计一个倒计时应用程序: 设置设置Enabled=False, Interval=1000Dim t As IntegerSu

37、b 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例例7.8用一个定时器控制蝴蝶在窗体内的飞舞用一个定时器控制蝴蝶在窗体内的飞舞 对象名对象名属性属性设置设

38、置Command1Caption退出退出Timer1Interval200Image1PictureBfly1.bmpImage2PictureVisibleBfly1.bmpFalseImage3PictureVisibleBfly1.bmpFalsePrivate Sub Timer1_Timer() Static x As Integer If x=0 Then Image1.Picture = Image2.Picture x=1 Else Image1.Picture = Image3.Picture x=0 End IfEnd SubPrivate Sub Timer1_Timer

39、() 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提供了一组基于提供了一组基于Windows的标准对话框的标准对话框(Acti

40、veX)利用通用对话框控件可在窗体上创建打开文件、保存利用通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框。文件、颜色、字体、打印等对话框。 工程工程/部件部件 选定部选定部件标签件标签选定选定Microsoft CommDialog Control 6.0 通用对话框添加到工具箱通用对话框添加到工具箱确定确定例例7.9 通过打开文件对话框，选择一个通过打开文件对话框，选择一个.bmp图片文件，图片文件，在图形框中显示该图片在图形框中显示该图片 Private Sub Command1_Click() CommonDialog1.ShowOpenPicture1.Pic

41、ture=LoadPicture(CommonDialog1. FileName)End SubCommonDialog1.Action=1通用对话框的属性设置方法：通用对话框的属性设置方法：1.1.在在“属性页属性页”对话框中设置对话框中设置2.2.在程序代码中设置，必须设置在显示对话框之前在程序代码中设置，必须设置在显示对话框之前CommonDialog1.FileName = *.bmp“CommonDialog1.InitDir = C:“CommonDialog1.Filter = pictures(*.bmp)|*.bmp|ALL files(*.*)|*.*“CommonDial

42、og1.FilterIndex = 1通用对话框的基本属性和方法通用对话框的基本属性和方法 (1) Action属性和属性和Show方法：方法：打开对话框打开对话框 ShowHelp6帮助（帮助（Help）对话框）对话框ShowPrinter5 打印打印(Print)对话框对话框ShowFont4 字体字体(Font)对话框对话框ShowColor3 颜色颜色(Color)对话框对话框ShowSave2另存为另存为(Save As)对话框对话框ShowOpen1打开打开(Open)文件对话框文件对话框Show方法方法Action属性属性通用对话框的类型通用对话框的类型该属性只能在程序中赋值该属

43、性只能在程序中赋值CommonDialog1.Action=1 CommonDialog1.ShowOpen通用对话框的基本属性和方法通用对话框的基本属性和方法(2) DialogTiltle属性属性:设置通用对话框标题设置通用对话框标题(3) CancelError属性属性:逻辑型值，表示用户在与对话逻辑型值，表示用户在与对话框进行信息交换时，按下框进行信息交换时，按下“取消取消”按钮时是否产生按钮时是否产生出错信息。出错信息。 True：选择取消按钮：选择取消按钮, 出现错误信息出现错误信息 （ 错误标志错误标志Err设置为设置为32755 Cancel was selected ）Fal

44、se：选择取消按钮，没有错误警告。：选择取消按钮，没有错误警告。由由 ShowOpen或或Action属性为属性为1来实现来实现重要属性重要属性 :(1) FileName (文件名称）属性文件名称）属性: 用户所要打开的文件名（包含路径）用户所要打开的文件名（包含路径）(2) FileTitle （文件标题）属性：（文件标题）属性：用户所选定的文件名（不包含路径）用户所选定的文件名（不包含路径）(3) Filter （过滤器）属性：过滤器）属性：确定文件列表框中所显示文件的类型（多组用确定文件列表框中所显示文件的类型（多组用|分隔）分隔） 则在则在“文件类型文件类型”列表框显示三种文件类型供

45、用户选列表框显示三种文件类型供用户选择择 Cocuments(*.DOC) 扩展名为扩展名为DOC的的Word文件文件 Text Files(*.TXT) 扩展名为扩展名为TXT的文本的文本文件文件 All Files(*.*) 所有所有文件文件Cocuments(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files(*.*).1打开文件对话框打开文件对话框DialogTiltleFileName InitDirFilterFilterIndexDefaultExt(4) FilterIndex （过滤器索引）属性（过滤器索引）属性：为整

46、型值：为整型值表示用户在文件类型列表框选定了第几组文件类型。表示用户在文件类型列表框选定了第几组文件类型。 (5) InitDir （初始化路径）属性（初始化路径）属性：该属性用来指定打开对话框中的初始目录该属性用来指定打开对话框中的初始目录(6)DefaultExt属性属性:字符型确定保存文件的缺省扩展名字符型确定保存文件的缺省扩展名(7)CancelError属性属性：逻辑型值，用户在与对话框：逻辑型值，用户在与对话框行信息交换时，按下行信息交换时，按下“取消取消”按钮时是否产生出错信按钮时是否产生出错信息息FilterFileNameInitDir FilterIndex例例7.10编写

47、一个简单的文本文件编辑程序编写一个简单的文本文件编辑程序当用户要求单击当用户要求单击“打开打开”就弹出打开对话框，当用户就弹出打开对话框，当用户选择一文本文件，便可将该文件内容读入到文本框；选择一文本文件，便可将该文件内容读入到文本框；对象对象属性属性设置设置TextBoxNameText1MultiLineTrueScrollBars2-VerticalCommonDialogNameCommonDialog1FileName*.TextInitDirC:FilterTextFiles(*.Txt)|*.Txt|All Files(*.*)|*.*FilterIndex1Private Su

48、b 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 Command1_Click() EndEnd Sub7.2.2 7.2.2 保存文件对话框保存文件对话框 由由 ShowSave方法或方法或Action属性为属

49、性为2来实现来实现与打开文件对话框的属性基本相同与打开文件对话框的属性基本相同特有的属性是特有的属性是DefaultExt，用于设置缺省的扩展名，用于设置缺省的扩展名例例7.10中另存命令按钮编写代码，保存文本框内信息中另存命令按钮编写代码，保存文本框内信息Sub Command2_Click () CommonDialog1.ShowSave CommonDialog1. FileName=“Default.Txt” CommonDialog1. DefaultExt =“Txt” Open CommonDialog1.filename For Output As #1 Print #1,

50、Text1.Text Close #1End Sub 7.2.3 7.2.3 颜色对话框颜色对话框 由由ShowColor或或Action属性为属性为3实现打开颜色对话框实现打开颜色对话框重要属性重要属性Color：用来返回或设置选定的颜色：用来返回或设置选定的颜色 例例7.10 颜色命令按钮编写事件过程设置文本框前景色颜色命令按钮编写事件过程设置文本框前景色Sub Command3_Click ()CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.Color End Sub7.2.4 7.2.4 字体对话框字体对话框 由由ShowF

51、ont方法或方法或Action属性为属性为4来实现来实现字体对话框重要的属性有：字体对话框重要的属性有：Color, FontName, FontSize, FontBold FontItalic , FontStrikethru, FontUnderline, Max, mint等，等， FontName FontBold、FontItalicFontSizeFontStrikethruFontUnderline ColorMin、Max显示字体对话框前必须设置显示字体对话框前必须设置Flags属性，否则发生不存属性，否则发生不存在字体错误在字体错误 Flags属性：设置所显示的字体类型，数

52、据类型为属性：设置所显示的字体类型，数据类型为Long Flages属性应取下列值属性应取下列值 常熟常熟值值说明说明cdlCFScreenFonts &H1屏幕字体屏幕字体cdlCFPrinterFonts &H2打印机字体打印机字体cdlCFBoth&H3打印机字体和屏幕字体打印机字体和屏幕字体cdlCFEffects&H100显示删除线和下划线检显示删除线和下划线检查框以及颜色组合框查框以及颜色组合框例例7.10中的字体按钮编写设置文本框字体的过程中的字体按钮编写设置文本框字体的过程Private Sub Command4_Click() CommonDialog1.Flags = cd

53、lCFBoth Or cdlCFEffects CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.F

54、ontUnderline Text1.ForeColor = CommonDialog1.ColorEnd Sub7.2.5 7.2.5 打印对话框打印对话框 由由ShowPrinter方法或方法或Action属性为属性为5来实现来实现打印对话框重要的属性有：打印对话框重要的属性有： FromPage：整型起始页号整型起始页号Topage：整型终止页号整型终止页号Copies：整型打印份数整型打印份数FromPage TopageCopies 例例10.5 例例10.2 中中“打印打印.”按钮的事件过程按钮的事件过程Private Sub Command5_Click() CommonDial

55、og1.Action = 5 For i = 1 To CommonDialog1.Copies Printer.Print Text1.Text Next i Printer.EndDocEnd Sub对上述程序，下列叙述中错误的是对上述程序，下列叙述中错误的是）单击）单击“打开打开”按钮显示打开文件对话框按钮显示打开文件对话框B）单击）单击“保存保存”按钮显示保存文件对话框按钮显示保存文件对话框C）单击）单击“打印打印”按钮，能够设置打印按钮，能够设置打印 选项，并执行打印操作选项，并执行打印操作D）单击）单击“退出退出”按钮，结束程序的运行按钮，结束程序的运行例、窗体上有一个名称为例、窗

56、体上有一个名称为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个名为个名为Cd1的通用对话框的通用对话框,为了在为了在运行程序时打开保

57、存文件对话框运行程序时打开保存文件对话框,则在程序总则在程序总应使用的语句是应使用的语句是() A)Cd1.Action=2 B)Cd1.Action=1 C)Cd1.ShowSave=Ture D)Cd1.ShowSave=0 7.3 7.3 菜单设计菜单设计 菜单是菜单是Windows应用程序中十分关键的要素之一，应用程序中十分关键的要素之一，它以分组的形式组织多个命令或操作，为用户灵活操它以分组的形式组织多个命令或操作，为用户灵活操作应用程序提供了便捷的手段。作应用程序提供了便捷的手段。 菜单可分为两种基本类型：下拉式和弹出式菜菜单可分为两种基本类型：下拉式和弹出式菜下拉式菜单下拉式菜单

58、:一般通过单击菜单栏中菜单标题（如一般通过单击菜单栏中菜单标题（如“文件文件”、“编辑编辑”、“视图视图”等）的方式打开等）的方式打开弹出式菜单弹出式菜单:则通过用鼠标右键单击某一区域打开则通过用鼠标右键单击某一区域打开快捷键快捷键热键热键子菜单标记子菜单标记主菜单主菜单菜单项菜单项子菜单名子菜单名分隔线分隔线 7.3.1 7.3.1 菜单编辑器菜单编辑器 菜单列表框菜单列表框菜单项属性菜单项属性 操作按钮操作按钮分隔线分隔线: 在标题栏输在标题栏输入一个连字符入一个连字符“-” 标题热键：前面加标题热键：前面加&启动菜单编辑器：启动菜单编辑器：“工具工具”“菜单编辑器菜单编辑器”菜单编辑器的

59、使用技巧菜单编辑器的使用技巧1. 标题标题(Caption)2. 名称名称(Name)3. 快捷键快捷键(Shortcut)4. 下一个下一个(Next)5. 和和按钮按钮6. 插入插入(Insert)按钮按钮7. 删除删除(Delete)按钮按钮8. 和和按钮按钮9.复选复选Checked检查框检查框10. 有效有效Enabled，可，可见见Visible检查框检查框11显示窗口列表显示窗口列表Window List检查检查根据设计要求，依次输入或选择项目，即可根据设计要求，依次输入或选择项目，即可1. 标题标题(Caption)：在窗口上显示，如：输入：在窗口上显示，如：输入&File，显

60、，显示为：示为： File，热键：，热键：Alt+F 2. 名称名称(Name)： 菜单项的名称，分界符也应有名称。菜单项的名称，分界符也应有名称。3. 快捷键快捷键(Shortcut)：下拉列表框选择一个键：下拉列表框选择一个键4.下一个下一个(Next)： 设置下一个菜单项设置下一个菜单项5. 和和：“” 下一级菜单项；下一级菜单项；“”上一级菜单上一级菜单项项6. 插入插入(Insert)按钮按钮：插入菜单项：插入菜单项7. 删除删除(Delete)按钮按钮：删除菜单项：删除菜单项8. 和和按钮按钮：改变菜单项位置改变菜单项位置9. 复选复选(Checked)检查框检查框：菜单项为选定项