《对话框和菜单》ppt课件

1、8.1.1 对话框概述1对话框的分类Visual Basic中的对话框分为3种类型，即系统预定义对话框、用户自定义对话框和通用对话框。预定义对话框是由系统提供的，是Visual Basic预先设计好的、以函数方式提供的对话框。Visual Basic提供了两种预定义对话框，即输入对话框和音讯对话框，前者用InputBox函数建立，后者用MsgBox函数建立，详细用法请参见第2章。系统预定义对话框在运用上有一定的局限性，很多情况下无法满足需求，用户可以根据详细需求建立本人的对话框。创建用户自定义对话框普通有两种方法：一是用户根据运用程序的需求，在一个普通窗体上，运用标签、文本框、单项选择按钮、复

2、选框和命令按钮等控件，经过编写相关的程序代码来实现人机交互功能；二是运用Visual Basic系统提供的“对话框模板窗体，经过简单的修正便可创建一个顺应于本人程序的自定义对话框。通用对话框是运用Common Dialog控件，编程人员可以轻松地把Windows的规范对话框参与到本人的运用程序中。8.1.1 对话框概述2对话框的特点1在普通情况下，对话框的边框是固定的，用户不能改动其大小。2为了退出对话框，必需单击其中的某个按钮，不能经过单击对话框外部的某个地方封锁对话框。3在对话框中不能有最大化按钮MaxButton和最小化按钮MinButton。4对话框不是程序的主要任务区，只是暂时运用，

3、运用终了就封锁。5对话框中控件的属性可以在设计阶段设置，也可以在运转时经过代码设置或修正控件的属性。8.1.4 显示与封锁“自定义对话框1显示“自定义对话框可运用窗体对象的Show方法显示“自定义对话框，经过设置不同的参数可以显示两种不同类型的对话框：1方式对话框。方式对话框在焦点可以切换到其他窗体或对话框之前要求用户必需作出呼应以封锁对话框，如单击“确定按钮、“取消按钮或者直接单击“封锁按钮。普通来说，显示重要信息的对话框不允许用户无视其存在，因此需求被设置成方式对话框，其显示方法为：.ShowvbModal 其中vbModal是系统常数，值为12无方式对话框。无方式对话框的焦点可以自在切换

4、到其他窗体或对话框，而无需用户封锁当前对话框，其显示方法为：.Show2封锁“自定义对话框可运用Hide方法或UnLoad语句来封锁自定义对话框，其格式为：Me.Hide或.HideUnLoad 。这里的“Me是一个关键字，Me代表正在执行的地方提供援用详细实例，普通指当前窗体。显示或封锁的操作会涉及到多重窗体编程，有关的设计问题请参见本书第2章第2.1节。 8.2.1 通用对话框控件当要定义的对话框功能较为复杂时，将会破费较多的时间和精神。为此，Visual Basic还提供了一组基于Windows的通用对话框控件CommonDialog，用户可以利用通用对话框控件在窗体上创建6种对话框，分

5、别为“翻开Open、“另存为Save As、“颜色Color、“字体Font、“打印Printer和“协助Help对话框。通用对话框是一种ActiveX控件。在普通情况下，启动Visual Basic后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，可按如下步骤操作：1单击“工程菜单的“部件选项，或者用鼠标右键单击工具箱，在弹出的菜单中选择“部件，翻开“部件对话框，如图8-3所示。2在对话框中选择“控件选项卡，然后在控件列表框中选择“Microsoft Common Dialog Control 6.0。3单击“确定按钮，通用对话框即被加到工具箱中。把通用对话框添加到工具箱以

6、后，就可以像运用规范控件一样把它添加到窗体上。缺省情况下通用对话框的称号为CommonDialogn(n为1、2、3)。通用对话框控件可以被设计为显示6种不同的对话框，每一种对话框对应一个不同的Action属性值和一个Show方法，其对应关系如表8-1所示。在设计形状，将CommonDialog控件添加到窗体上，它以图标显示在窗体上，其大小不能改动；在程序运转时，控件本身被隐藏。值得留意的是Action属性只能在程序中赋值，而不能在属性窗口进展设置，与此同时，通用对话框仅提供了一个用户和运用程序的信息交互界面，详细功能的实现还需编写相应的程序。下面将引见如何建立Visual Basic提供的几

7、种主要的通用对话框，即“翻开对话框、“另存为对话框、“颜色对话框、“字体对话框。8.2.2 “翻开/“另存为对话框运用通用对话框控件的ShowOpen方法，或将Action属性赋值为1，可以在运转时显示“翻开对话框，如图8-4所示。运用通用对话框控件的ShowSave方法，或将Action属性赋值为2，可以在运转时显示“另存为对话框，如图8-5所示。“翻开对话框与“另存为对话框为用户提供了一个规范的文件翻开与保管的界面。由于这两种对话框具有许多共同的属性，故放在一同引见。1对话框标题Dialog Title设置对话框的标题。在默许情况下“翻开对话框的标题是“翻开，“保管对话框的标题是“保管。2

8、Filter属性用来指定在对话框中显示的文件类型，用该属性可以设置多个文件类型，供用户在对话框的“文件类型的下拉列表中选择。Filter的属性值由一对或多对文本字符串组成，每对字符串用管道符“|隔开，在“|前面的部分称为描画符，后面的部分普通为通配符和文件扩展名，称为“过滤器，如*.txt等，各对字符串之间也用管道符隔开。其格式如下：文件阐明字符|类型描画|文件阐明字符|类型描画例如，为CommonDialog1. Filter赋值如下：“Word文档(*.doc)|*.doc|文本文件(*.txt)|*.txt|一切文件(*.*)|*.*3FilterIndex属性FilterIndex属性

9、为整型，用于确定选择了何种文件类型，缺省设置为0，系统取Filter属性设置中的第一项，相当于FilterIndex属性值设置为1，在上例中，如选择“Word文档(*.doc)可以不设置，也可将FilterIndex属性值设置为1。4InitDir属性用来指定对话框的起始目录。假设没有设置InitDir，那么显示当前目录。例如：CommonDialog1.InitDir =C:zjicmFile5DefaultExt属性设置对话框中默许文件扩展名。6CancelError属性CancelError属性为逻辑型值，表示用户在与对话框进展信息交换时，按下“取消按钮时能否产生出错信息。当该属性设置为

10、True时，无论何时单击“取消按钮，将出现错误警告；Err对象的Number属性值置为32755cdlCancel。当该属性设置为False缺省时，单击“取消按钮，不会出现错误警告。留意，上述属性假设在程序中设置，都必需放在运用Action属性或用ShowOpen和ShowSave方法调用“翻开或“另存为对话框的语句之前；否那么该属性不效。7FileName属性FileName属性为字符型，用于前往或设置用户要翻开或保管的文件全名含途径，运转时用户在通用对话框中选择的文件或输入的文件就保管在该属性中，封锁对话框后，可用FileName属性得到文件全名。8FileTitle属性FileTitle

11、属性为字符型，用于前往或设置用户要翻开或保管的文件名不含途径。运转时，用户选定的文件名或在“文件名文本框中输入文件名后，FileTitle属性为该文件名而FileName属性那么由文件名及其途径共同组成。 【例8-1】设计一个图片阅读器。可以加载显示图片，也可保管图片。1界面设计在窗体上建立一个Picture1控件，用于显示图片；建立通用对话框控件CommonDialog1；再建立两个命令按钮，如图8-6所示。Private Sub Command1_Click() CommonDialog1.dialogtitle = 翻开图片文件 设置对话框标题 CommonDialog1.InitDir

12、 = C:winnt 设置翻开目录 设置过滤器属性 CommonDialog1.Filter = 一切文件*.*|*.*|bmp文件|*.bmp|gif文件|*.gif CommonDialog1.filterindex = 2 设置过滤器索引默许属性为2 CommonDialog1.Action = 1 调用翻开文件对话框 Picture1.Picture = LoadPicture(CommonDialog1.FileName) 加载所选择的图片End SubPrivate Sub Command2_Click() CommonDialog1.dialogtitle = 图片另存为 设置对

13、话框标题 CommonDialog1.InitDir = C:winnt 设置翻开目录 设置过滤器属性 CommonDialog1.Filter = 一切文件*.*|*.*|bmp文件|*.bmp|gif文件|*.gif CommonDialog1.Defaultext = bmp 设置默许属性为2 CommonDialog1.Action = 2 调用另存为文件对话框 SavePicture Picture1.Picture, CommonDialog1.FileNameEnd Sub8.2.3 “颜色对话框 运用通用对话框控件的ShowColor方法，或将Action属性赋值为3，可显示“

14、颜色对话框，它为用户提供了一个规范的调色板界面，如图8-8所示，用户可以运用其中的根本颜色，也可以本人调色。当用户选中某一种颜色后，该颜色值长整型赋给Color属性。【例8-2】设计一外形程序，经过“颜色对话框对外形进展着色。1界面设计在窗体上建立一个外形控件Shape1，用于显示各种外形；建立通用对话框控件CommonDialog1；再建立框架，并在其中建立单项选择按钮控件数组，如图8-9所示。Private Sub Command1_Click() CommonDialog1.ShowColor 翻开颜色对话框 Shape1.FillStyle = 0 实心填充 Shape1.FillCo

15、lor = CommonDialog1.ColorEnd SubPrivate Sub Option1_Click(Index As Integer) Shape1.Shape = Index 选择外形End Sub 8.2.4 “字体对话框字体对话框 运转时，运用通用对话框控件的ShowFont方法，或将Action属性赋值为4，可以显示“字体对话框。在“字体对话框中选定设置并封锁对话框，读者可以经过运用以下属性得到所需求的设置对象的字体属性。1字体格式属性Font Name：选定字体的称号FontBold：能否选定了粗体FontItalic：能否选定了斜体FontStrikethru：能否

16、选定了程度删除线FontUnderline：能否选定了下划线FontSize：选定字体的大小Color：选定的颜色“字体对话框为用户提供了一个规范的进展字体设置的界面如图8-11所示，经过该对话框用户可以选择字体、字体款式、字体大小、字体效果以及字体颜色。2Flags属性Flags属性确定对话框中显示字体的类型，在显示字体对话框前必需设置该属性，否那么会产生不存在字体的错误。常用设置如表8-2所示。运用Or运算符可以为一个对话框设置多个标志，如cdlCFScreenFonts Or cdlCFEffects。其中，要运用FontStrikethru、FontUnderline和Color这3个

17、属性，必需先将通用对话框的Flags属性设置为cdlCFEffects或256。【例8-3】“字体对话框例如。在文本框上显示文字，利用“字体对话框来设置所显示文字的字体、字型、大小、颜色等。1界面设计在窗体上添加一个通用对话框CommonDialog1、一个文本框Text1、两个命令按钮Command1和Command2，并设置属性如下：Text1.Multiline=True 多行文本Text1.ScrollBars=2 具有垂直滚动条Command1.Caption=选择字体Command2.Caption=终了在Text1的属性窗口内设置Text属性，输入假设干行要在文本框内显示的文字。

18、编写Form_Load、Command1和Command2的Click事件过程代码如下：Private Sub Form_Load() CommonDialog1.FontName = 宋体 设置初始字体为宋体 Flags为256+1，运用屏幕字体；出现颜色、效果等选项 CommonDialog1.Flags = 257End SubPrivate Sub Command1_Click() CommonDialog1.ShowFont 翻开字体对话框 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.F

19、ontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontUnderline = CommonDialog1.FontUnderline Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command2_Click() EndEnd Sub8.3.2 菜单编辑器菜单编辑器 Visual

20、 Basic 6.0没有菜单控件，但提供了建立菜单的菜单编辑器。在Visual Basic 6.0集成开发环境中，可以经过以下4种方式进入菜单编辑器：执行“工具菜单中的“菜单编辑器命令运用热键CtrlE。单击工具栏中的“菜单编辑器按钮。在要建立菜单的窗体上单击鼠标右键，将弹出一个菜单，单击“菜单编辑器命令。留意，只需当某个窗体为活动窗体时，才干用上面的方法翻开菜单编辑器窗口。翻开后的菜单编辑器窗口如图8-14所示。从菜单编辑器窗口可知，菜单编辑器窗口分为三个部分，即数据区、编辑区和菜单项显示区。1数据区数据区为窗口标题栏下面的5行，用来输入或修正菜单项，设置属性。其中的主要工程的作用见表8-3

21、。2编辑区编辑区由7个按钮组成，单击右箭头将把选定的菜单向右移一个等级。单击左箭头将把选定的菜单向上移一个等级。单击上箭头将把选定的菜单项在同级菜单内向上挪动一个位置。单击下箭头把选定的菜单项在同级菜单内向下挪动一个位置。单击“下一个按钮将开场一个新的菜单项。单击“插入按钮将在某个菜单项前插入一个新的同级空白菜单项。单击“删除按钮将删除选定的菜单项。3菜单项列表区菜单项列表区为菜单编辑器最下面的列表框，该列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分级位置或等级。参见图8-15。在运用Windows运用程序时经常会发现，某些菜单项会呈灰色显示，此时单击该菜单项没有任何反映，有时菜单项

22、的标题会发生改动。这些都可以经过在菜单设计和程序代码中加以控制。1有效性控制一个菜单项能否正常显示，即该菜单项能否“有效，是由该菜单项的“有效属性来控制的。只需该属性设置为True时，单击该菜单项才会执行相应的操作。可以在设计时设置该属性值选中图8-15中的“有效复选框，也可以在运转时经过执行代码加以改动。2可见性控制只需将菜单项的Visible属性设置为True，该菜单项才显示。可以在设计时设置该属性值选中图8-15中的“可见复选框，也可以在运转时经过执行代码加以改动。3菜单项标志菜单项标志就是在菜单项左边加上标志阐明该菜单项处于选中形状。设计时该属性可以由菜单编辑器中的“复选Checked

23、属性设置，也可以在属性窗口的“Checked栏内设置。通常情况下，该属性时在程序运转时动态地进展设置的。 8.3.3 下拉式菜单下拉式菜单 任何复杂的菜单程序都遵照一样的设计方法，在窗体中添加菜单的普通方法如下：1选取菜单控件出现的窗体。2从“工具菜单中选取“菜单编辑器；或者在工具栏上单击“菜单编辑器按钮，那么翻开“菜单编辑器，如图8-14所示。3在“标题文本框中，为第一个菜单标题键入希望在菜单栏上显示的文本。假设希望某一字符成为该菜单项的访问键，也可以在该字符前面加上一个“&字符。在菜单中，这一字符会自动加上一条下划线。菜单标题文本显示在菜单控件列表框中。4在“称号文本框中，键入将用

24、来在代码中援用该菜单控件的名字。5单击向左或向右箭头按钮，可以改动该控件的缩进级。6假设需求的话，还可以设置控件的其他属性。这一任务可以在菜单编辑器中做，也可以以后在“属性窗口中做。7单击“下一个按钮就可以再建一个菜单控件。或者单击“插入可以在现有的控件之间添加一个菜单控件。也可以单击向上与向下的箭头按钮，在现有菜单编辑器的列表框中挪动菜单。8假设窗体一切的菜单控件都已创建，单击“确定按钮可封锁菜单编辑器。9创建的菜单将显示在窗体上。在设计时，单击一个菜单标题可下拉其相应的菜单项。 【例8-4】 利用菜单和对话框设计一个文本编辑器。表8-4 各级菜单设置Private Sub Color_Cl

25、ick() 单击子菜单Color时执行该事件过程 Commondialog1.Action = 3 翻开颜色对话框 Text1.ForeColor = Commondialog1.Color 改动Text1的文本颜色End SubPrivate Sub Copy_Click() 单击子菜单Copy时执行该事件过程 Clipboard.Clear 剪贴板先清空 Clipboard.SetText Text1.SelText 将选中的文本参与到剪贴板中End SubPrivate Sub cut_Click() 单击子菜单Cut时执行该事件过程 Clipboard.Clear Clipboard.

26、SetText Text1.SelText Text1.SelText = 文本框选中部分清空End SubPrivate Sub Exit_Click() 单击子菜单Exit时执行该事件过程 EndEnd SubPrivate Sub Font_Click() 单击子菜单Font时执行该事件过程 Commondialog1.flags = 257 Commondialog1.Action = 4 翻开字体对话框 Text1.FontName = Commondialog1.FontName Text1.FontSize = Commondialog1.FontSize Text1.FontBold = Commondialog1.FontB