《教学课件第8章 菜单、多窗体和通用对话框.ppt》由会员分享，可在线阅读，更多相关《教学课件第8章 菜单、多窗体和通用对话框.ppt（38页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1第第8章章菜单、多窗体和菜单、多窗体和通用对话框通用对话框 2本章内容本章内容n菜单结构和菜单编辑器菜单结构和菜单编辑器n下拉式菜单和弹出式菜单的创建与应用下拉式菜单和弹出式菜单的创建与应用 n多窗体的窗体控制、切换多窗体的窗体控制、切换n多窗体窗体之间的数据交换多窗体窗体之间的数据交换 n通用对话框的设计和使用方法通用对话框的设计和使用方法 3学习目标学习目标 n理解菜单的构成理解菜单的构成n理解通用对话框的用途理解通用对话框的用途n掌握菜单编辑器的操作掌握菜单编辑器的操作n掌握下拉式菜单、弹出式菜的创建掌握下拉式菜单、弹出式菜的创建n掌握添加新窗体、设置启动对象的方法掌握添加新窗体、设置
2、启动对象的方法n熟悉不同窗体间数据的访问方法熟悉不同窗体间数据的访问方法n掌握通用对话框的加载方式、主要属性和方法的使用掌握通用对话框的加载方式、主要属性和方法的使用n能够在程序中应用菜单、多窗体界面能够在程序中应用菜单、多窗体界面n能够利用通用对话框产生文件对话框、颜色对话框和能够利用通用对话框产生文件对话框、颜色对话框和字体对话框字体对话框 48.1 菜单设计菜单设计 n菜单的概念菜单的概念n菜单是一系列命令组成的列表菜单是一系列命令组成的列表 n每个菜单项对应一条命令或一个子菜单每个菜单项对应一条命令或一个子菜单n菜单项可以响应菜单项可以响应Click事件事件n菜单是分层的菜单是分层的n
3、但层与层之间不存在父子关系但层与层之间不存在父子关系n菜单分为两种菜单分为两种n下拉式菜单下拉式菜单n弹出式菜单弹出式菜单 5菜单结构菜单结构 n下拉菜单的结构下拉菜单的结构n弹出式菜单的结构弹出式菜单的结构n菜单的结构与下拉菜单相同菜单的结构与下拉菜单相同n通过一种方式来激活并显示通过一种方式来激活并显示菜单项（菜单命令）菜单项（菜单命令）子菜单标题子菜单标题子菜单子菜单快捷键快捷键菜单栏菜单栏访问键访问键子菜单子菜单分隔线分隔线顶级菜单的菜单项顶级菜单的菜单项6菜单编辑器菜单编辑器 n打开菜单编辑器窗口的方法打开菜单编辑器窗口的方法n选中窗体后，从选中窗体后，从“工具工具”菜单中选菜单中选
4、“菜单编辑器菜单编辑器”命令命令 数据区数据区菜单项显示菜单项显示区区7下拉式菜单的创建下拉式菜单的创建步骤步骤n创建下拉式菜单的一般步骤创建下拉式菜单的一般步骤n设计菜单的结构设计菜单的结构n设计各级菜单的层次关系设计各级菜单的层次关系n定义每个菜单项的属性定义每个菜单项的属性n通过菜单编辑器来完成通过菜单编辑器来完成n为不含子菜单的菜单项定义一条命令为不含子菜单的菜单项定义一条命令n通过编写菜单项的通过编写菜单项的Click事件过程来实现事件过程来实现 8下拉式菜单的应用下拉式菜单的应用n例例8-1n设计如下表所示结构的下拉式菜单，并为格式子菜单编设计如下表所示结构的下拉式菜单，并为格式子
5、菜单编写程序，使得选中某个菜单项时，可以改变文本框写程序，使得选中某个菜单项时，可以改变文本框Text1中文本的字体或字号中文本的字体或字号 标题标题名称名称层次层次标题标题名称名称层次层次文件文件File 1格式格式Textformat 1 打开打开 Open 2 字体字体 TextFont 2 关闭关闭 Close 2 宋体宋体 Font1 3 - Split 2 黑体黑体 Font2 3 退出退出 Exit 2 隶书隶书 Font3 3 字号字号 TextSize 2 10 Size10 3 15 Size15 3 20 Size20 39Private Sub Font1_Click(
6、 ) Text1.FontName = 宋体宋体End SubPrivate Sub Font2_Click( ) Text1.FontName = 黑体黑体End SubPrivate Sub Font3_Click( ) Text1.FontName = 隶书隶书End SubPrivate Sub Size10_Click( ) Text1.FontSize = 10End SubPrivate Sub Size15_Click( ) Text1.FontSize = 15End SubPrivate Sub Size20_Click( ) Text1.FontSize = 20End
7、Sub 程序代码程序代码 10弹出式菜单的创建与显示弹出式菜单的创建与显示 n创建弹出式菜单的前创建弹出式菜单的前2步与下拉式菜单相同步与下拉式菜单相同n通常，弹出式菜单的顶级菜单项的通常，弹出式菜单的顶级菜单项的“可见可见”（即（即Visible）属）属性应设置为性应设置为False n还要设计菜单的弹出方式还要设计菜单的弹出方式n一般通过某个控件的一个事件过程（例如窗体的鼠标事件过一般通过某个控件的一个事件过程（例如窗体的鼠标事件过程）来实现程）来实现 n使用窗体的使用窗体的PopupMenu方法显示弹出式菜单方法显示弹出式菜单n.PopupMenu ，Flags，x，y 对象名是窗体的名
8、称，通常可以省略对象名是窗体的名称，通常可以省略 “菜单名称菜单名称”是弹出式菜单的上一级菜单项名称是弹出式菜单的上一级菜单项名称 x和和y表示弹出式菜单的显示位置，具体含义与表示弹出式菜单的显示位置，具体含义与Flags的值有关的值有关 默认（即默认（即Flags=0）情况下表示弹出式菜单左上角的坐标）情况下表示弹出式菜单左上角的坐标 除菜单名称外，其他参数都可以省略除菜单名称外，其他参数都可以省略 11弹出式菜单的应用弹出式菜单的应用n例例8-2n把例把例8-1中的中的“格式格式”子菜单设计为弹出式菜单，在菜单栏上不子菜单设计为弹出式菜单，在菜单栏上不显示显示“格式格式”子菜单。弹出方式为
9、鼠标右键单击窗体。子菜单。弹出方式为鼠标右键单击窗体。n分析分析n在菜单编辑器中把例在菜单编辑器中把例8-1中中“格式格式”菜单的菜单的“可见可见”属性改为不属性改为不可见可见n为窗体添加鼠标事件过程，在事件过程中调用为窗体添加鼠标事件过程，在事件过程中调用PopupMenu方法方法n程序代码程序代码n保留例保留例8-1中的程序代码，再添加如下代码中的程序代码，再添加如下代码nPrivate Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single)n If Button = 2 The
10、nn PopupMenu TextFormatn End IfnEnd Sub 12菜单的应用菜单的应用n例例8-3n在窗体上画一个图象框，利用下拉式菜单完成加在窗体上画一个图象框，利用下拉式菜单完成加/卸载图片和卸载图片和改变图片尺寸等操作，利用弹出式菜单完成移动图片的操作。改变图片尺寸等操作，利用弹出式菜单完成移动图片的操作。n分析分析n建立建立2个下拉式子菜单，用于个下拉式子菜单，用于 加加/卸载图片和改变图片尺寸卸载图片和改变图片尺寸n用鼠标右键单击图象框来显示用鼠标右键单击图象框来显示 弹出式菜单弹出式菜单n为了使图象框中的图片可以随图为了使图象框中的图片可以随图 象框一起伸缩，图象
11、框象框一起伸缩，图象框Image1 的的Stretch属性应设置为属性应设置为True 13菜单的应用菜单的应用 例例8-3n菜单设计菜单设计 n菜单结构如表所示菜单结构如表所示n“图片移动图片移动”子菜单的子菜单的Visible属性设置为属性设置为False 标题标题名称名称层次层次标题标题名称名称层次层次加加/卸载图片卸载图片Picture1图片移动图片移动MovePic1 加载图片加载图片LoadPic 2 左移左移 MoveLeft 2 卸载图片卸载图片UnloadPic 2 右移右移 MoveRight 2图片伸缩图片伸缩Stretch 上移上移 MoveUp 2 变窄变窄10%Na
12、rrow1 下移下移 MoveDown 2 加宽加宽10%Widen 2 缩短缩短10%Shorten 2 伸长伸长10%Extend 214Private Sub LoadPic_Click() Image1.Picture = LoadPicture(pic1.bmp)End SubPrivate Sub UnloadPic_Click() Image1.Picture = LoadPicture()End Sub图片伸缩的代码图片伸缩的代码Private Sub Narrow_Click() Image1.Width = Image1.Width * 0.9End SubPrivate
13、Sub Widen_Click() Image1.Width = Image1.Width * 1.1End SubPrivate Sub Shorten_Click() Image1.Height = Image1.Height * 0.9End SubPrivate Sub Extend_Click() Image1.Height = Image1.Height * 1.1End Sub 加载和卸载图片的代码加载和卸载图片的代码 15移动图片的代码（弹出式菜单中的菜单项）移动图片的代码（弹出式菜单中的菜单项）Private Sub MoveLeft_Click() Image1.Left
14、= Image1.Left - 100End SubPrivate Sub MoveRight_Click() Image1.Left = Image1.Left + 100End SubPrivate Sub MoveUp_Click() Image1.Top = Image1.Top - 100End SubPrivate Sub MoveDown_Click() Image1.Top = Image1.Top + 100End Sub显示弹出式菜单的代码显示弹出式菜单的代码Private Sub Image1_MouseDown(Button As Integer, _ Shift As
15、 Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MovePic End IfEnd Sub 168.2 多窗体界面多窗体界面 n应用程序可以包含多个窗体应用程序可以包含多个窗体n不同窗体提供不同的界面，共同完成整个程序的交不同窗体提供不同的界面，共同完成整个程序的交互工作互工作n每个窗体存放在一个窗体文件中，具有各自的控件每个窗体存放在一个窗体文件中，具有各自的控件和程序代码，完成各自的功能和程序代码，完成各自的功能n各窗体之间可以进行数据的互访各窗体之间可以进行数据的互访n当前窗体当前窗体n多个窗体可同时显示，
16、但只有一个是当前窗体多个窗体可同时显示，但只有一个是当前窗体n交互总是在当前窗体上进行的交互总是在当前窗体上进行的n用鼠标点击某个窗体，就把它变为当前窗体用鼠标点击某个窗体，就把它变为当前窗体 17多窗体界面的设计多窗体界面的设计 n添加新窗体添加新窗体 n打开打开“添加窗体添加窗体”对话对话框框 n“工程工程”菜单、菜单、“添加添加窗体窗体”n或接单击标准工具栏上或接单击标准工具栏上的的“添加窗体添加窗体”按钮按钮n在对话框中选择在对话框中选择“窗窗体体”，再单击，再单击“打开打开”按钮按钮n设置启动对象设置启动对象 n在在“工程工程”菜单中选中菜单中选中“属性（属性（E）”打开如打开如图所
17、示的图所示的“工程属性工程属性”对话框对话框 18多窗体程序中常用的语句与方法多窗体程序中常用的语句与方法 n窗体要先加载到内存中，再显示到屏幕上窗体要先加载到内存中，再显示到屏幕上n一个窗体可以被隐藏或从内存中被卸载一个窗体可以被隐藏或从内存中被卸载n程序运行时，启动窗体会自动加载并显示程序运行时，启动窗体会自动加载并显示n其他窗体则需要编写相应的程序代码来加载和显示，或其他窗体则需要编写相应的程序代码来加载和显示，或隐藏和卸载隐藏和卸载 n加载窗体加载窗体nLoad n把指定的窗体加载到内存中并引发该窗体的把指定的窗体加载到内存中并引发该窗体的Load事件，但事件，但不显示该窗体不显示该窗
18、体n卸载窗体卸载窗体nUnLoad nUnLoad语句把指定的窗体从内存中删除。语句把指定的窗体从内存中删除。n若不使用窗体名称而使用关键字若不使用窗体名称而使用关键字Me，则表示卸载，则表示卸载UnLoad Me语句所在的窗体。语句所在的窗体。n对于单窗体应用程序，卸载窗体就结束了程序对于单窗体应用程序，卸载窗体就结束了程序 19多窗体程序中常用的语句与方法多窗体程序中常用的语句与方法n显示窗体显示窗体nShow方法的调用格式方法的调用格式n.Show 0|1 0 ： 窗体为非模式型，是默认值窗体为非模式型，是默认值 此模式下，可以在不关闭本窗体的情况下对其他已经显示的此模式下，可以在不关闭
19、本窗体的情况下对其他已经显示的窗体进行操作窗体进行操作 1 ： 窗体为模式型窗体为模式型 只有在关闭（隐藏或卸载）了本窗体后，才能对其他已经显只有在关闭（隐藏或卸载）了本窗体后，才能对其他已经显示的窗体进行操作示的窗体进行操作n若该窗体还未被加载，则先加载，再显示若该窗体还未被加载，则先加载，再显示n把窗体的把窗体的Visible属性设置为属性设置为True可以起到同样效果。可以起到同样效果。n隐藏窗体隐藏窗体nHide方法的调用格式方法的调用格式n.Hide 缺省窗体名称表示是调用缺省窗体名称表示是调用Hide方法的语句所在的窗体方法的语句所在的窗体n隐藏窗体，但不卸载隐藏窗体，但不卸载n把
20、窗体的把窗体的Visible属性设置为属性设置为False可以起到同样的效果可以起到同样的效果 20多窗体应用多窗体应用n例例8-4 修改例修改例7-12，使得输入了正确密码使得输入了正确密码后可以打开另一个窗后可以打开另一个窗体体Form2n分析分析n添加添加1个个Form2窗体窗体n启动窗体是密码输入启动窗体是密码输入窗体窗体n密码输入正确后，密密码输入正确后，密码输入窗体就没有用码输入窗体就没有用了，可以隐藏甚至卸了，可以隐藏甚至卸载，同时应显示载，同时应显示Form2窗体窗体n其他部分不做修改其他部分不做修改修改后的程序代码修改后的程序代码Private Sub Command1_Cl
21、ick() Static num As Integer num = num + 1 If Text1.Text = 123456 Then Unload Me Form2.Show ElseIf num = 3 Then Command1.Enabled = False Text1.Enabled = False MsgBox 密码错误，不能再输入密码错误，不能再输入 Else MsgBox 密码错误，请重新输入密码错误，请重新输入 End IfEnd Sub21不同窗体间数据的访问不同窗体间数据的访问 n不同窗体之间可以实现数据的互相访问不同窗体之间可以实现数据的互相访问n除了使用全局变量外
22、，在一个窗体中可以访问其除了使用全局变量外，在一个窗体中可以访问其他窗体上控件的属性和方法他窗体上控件的属性和方法n访问另一窗体上控件的格式访问另一窗体上控件的格式n.n如果省略属性名和方法名，访问的就是如果省略属性名和方法名，访问的就是n控件的默认属性控件的默认属性n对象，例如作为对象型参数的实参对象，例如作为对象型参数的实参n例如把本窗体中例如把本窗体中Text1文本框中内容复制到文本框中内容复制到Form2窗体的窗体的Text1文本框中文本框中nForm2.Text1.Text = Text1.Text228.3 通用对话框通用对话框n通用对话框控件的用途通用对话框控件的用途n可以打开以
23、下对话框可以打开以下对话框n“打开打开”对话框，用于查找、确认要打开的文件名对话框，用于查找、确认要打开的文件名n“另存为另存为”对话框，用于查找、确认要写的文件名对话框，用于查找、确认要写的文件名n“颜色颜色”对话框，用于选择颜色对话框，用于选择颜色n“字体字体”对话框，用于选择字体、字号等文字属性对话框，用于选择字体、字号等文字属性n“打印机打印机”对话框，用于设置打印参数对话框，用于设置打印参数 n“帮助帮助”对话框，显示设定的帮助文件对话框，显示设定的帮助文件 23加载通用对话框加载通用对话框 n使用通用对话使用通用对话框控件时，须框控件时，须先把它加载到先把它加载到工具箱窗口中工具箱
24、窗口中n加载方法加载方法n“工程工程”菜单菜单中选中选“部件部件(O)” 24为通用对话框控件设置属性值为通用对话框控件设置属性值 25在程序中打开标准对话框在程序中打开标准对话框 n调用通用对话框的调用通用对话框的6个个Show方法方法n为通用对话框的为通用对话框的Action属性赋属性赋6个不同的值个不同的值nAction属性不能在属性窗口中设置，只能在程序中赋值属性不能在属性窗口中设置，只能在程序中赋值 Show方法方法Action的值的值打开的标准对话框打开的标准对话框ShowOpen1“打开（打开（Open）”文件对话框文件对话框ShowSave2“另存为（另存为（Save As）”
25、文件对话框文件对话框ShowColor3“颜色（颜色（Color）”对话框对话框ShowFont4“字体（字体（Font）”对话框对话框ShowPrinter5“打印（打印（Printer）”对话框对话框ShowHelp6“帮助（帮助（Help）”对话框对话框26使用通用对话框的一般步骤使用通用对话框的一般步骤 n通用对话框控件的特点通用对话框控件的特点n并不能实现一个具体的功能（例如打开文件或保存文件）并不能实现一个具体的功能（例如打开文件或保存文件）n只提供一个作为交互界面的对话框来接受操作者的输入或只提供一个作为交互界面的对话框来接受操作者的输入或设置设置 n后面程序去利用这些属性中的值
26、完成相应操作后面程序去利用这些属性中的值完成相应操作n使用通用对话框控件的一般步骤使用通用对话框控件的一般步骤n通过属性窗口或在程序中为通用对话框控件的相关属性设通过属性窗口或在程序中为通用对话框控件的相关属性设置初始值置初始值n初始值会作为默认值影响对话框显示的初始内容初始值会作为默认值影响对话框显示的初始内容 n在程序中调用一个在程序中调用一个Show方法或赋给方法或赋给Action属性一个值来属性一个值来打开一种标准对话框打开一种标准对话框n操作者通过对话框输入了信息或进行了设置并关闭了对话操作者通过对话框输入了信息或进行了设置并关闭了对话框后才会执行下一步框后才会执行下一步 n利用用户
27、在对话框中的输入而造成通用对话框相关属性的利用用户在对话框中的输入而造成通用对话框相关属性的改变进行后面的操作改变进行后面的操作 27文件对话框文件对话框 n包括包括“打开打开”与与“另存为另存为”2种对话框种对话框 n用于产生打开和存储文件时的交互界面用于产生打开和存储文件时的交互界面n目的是获得要打开或要存储的文件的文件名和路目的是获得要打开或要存储的文件的文件名和路径，供后面的程序使用径，供后面的程序使用n在后面的程序中实际打开或保存该文件在后面的程序中实际打开或保存该文件 28“打开打开”对话框对话框 n调用通用对话框的调用通用对话框的ShowOpen方法，或把它的方法，或把它的Act
28、ion属性赋值为属性赋值为1 DialogTitle属性属性FilterIndex属性属性FileName属性属性Filter属性属性29“打开打开”对话框用到的属性对话框用到的属性nDialogTitle属性属性n对应属性页中的对应属性页中的“对话框标题对话框标题”n内容作为对话框标题显示在各种对话框的标题栏上内容作为对话框标题显示在各种对话框的标题栏上n如果没有设置如果没有设置DialogTitle属性，将显示默认标题属性，将显示默认标题nFileName属性属性n对应属性页中的对应属性页中的“文件名称文件名称”n如果在弹出对话框之前被赋值，其内容将显示在对话框如果在弹出对话框之前被赋值，
29、其内容将显示在对话框的的“文件名文件名”一栏中一栏中n对于对于“打开打开”对话框，选中一个文件并按下了对话框，选中一个文件并按下了“打开打开”按钮后，选中文件的文件全名，包括路径和扩展名，将按钮后，选中文件的文件全名，包括路径和扩展名，将被赋值到被赋值到FileName属性中属性中nInitDir属性属性n对应属性页中的对应属性页中的“初始化路径初始化路径”n内容决定了显示对话框时的当前路径内容决定了显示对话框时的当前路径n如果在对话框操作时改变路径，不会修改如果在对话框操作时改变路径，不会修改InitDir属性的属性的内容内容 30“打开打开”对话框用到的属性对话框用到的属性nFilter属
30、性属性n对应属性页中的对应属性页中的“过滤器过滤器”，用于指定对话框中显示文，用于指定对话框中显示文件的类型件的类型nFilter属性中字符串的格式是属性中字符串的格式是n类型描述类型描述1|过滤器过滤器1|类型描述类型描述2|过滤器过滤器2.n“类型描述类型描述”是对话框中是对话框中“文件类型文件类型”列表中显示的文字，可以列表中显示的文字，可以是任何可显示字符是任何可显示字符n“过滤器过滤器”是操作系统可以识别的文件类型符号是操作系统可以识别的文件类型符号 通常包括通配符和扩展名，例如：通常包括通配符和扩展名，例如：“*.txt”、“*.bmp”、“*.*”等等n例如，若在弹出对话框之前例
31、如，若在弹出对话框之前 (*.jpg)|*.jpg|位图位图|*.bmp|所有文件所有文件|*.*n则弹出对话框后则弹出对话框后“文件类型文件类型”下拉列表中的内容如前图所示下拉列表中的内容如前图所示nFilterIndex属性属性n对应属性页中的对应属性页中的“过滤器索引过滤器索引”，表示，表示Filter属性中第属性中第几个文件类型作为刚弹出对话框时的默认文件类型几个文件类型作为刚弹出对话框时的默认文件类型n如果没有设置如果没有设置FilterIndex，则，则Filter中第一个文件类型中第一个文件类型是默认文件类型是默认文件类型 31通用对话框应用通用对话框应用n例例8-6n建立如图所
32、示界面。在建立如图所示界面。在Text1文本框中输入图象文件的文件名文本框中输入图象文件的文件名n单击单击“装入装入”按钮，则把指定的图象显示在图象框中按钮，则把指定的图象显示在图象框中n按钮按钮“浏览浏览” 可以弹出可以弹出“打开打开”对话框选择图象文件对话框选择图象文件n复选框复选框“图象伸缩图象伸缩”决定图象是否在图象框中伸缩决定图象是否在图象框中伸缩n分析分析n“浏览浏览”按钮只把选中的文件的全名复制到按钮只把选中的文件的全名复制到Text1文本框中，文本框中，并不进行文件的读取，读取文件的是并不进行文件的读取，读取文件的是“装入装入”按钮按钮n在弹出在弹出“打开打开”对话框之前应设置
33、对话框的一些属性对对话对话框之前应设置对话框的一些属性对对话框进行初始化框进行初始化n对话框关闭后，应判断对话框关闭后，应判断FileName属性，以便确定是否选中了属性，以便确定是否选中了一个图象文件一个图象文件 32通用对话框应用通用对话框应用Private Sub Check1_Click() Image1.Stretch = Not Image1.StretchEnd SubPrivate Sub Command1_Click() Image1.Picture = LoadPicture(Text1.Text)End SubPrivate Sub Command2_Click() Co
34、mmonDialog1.DialogTitle = 打开图象文件打开图象文件 CommonDialog1.InitDir = D:VBPicture CommonDialog1.Filter = (*.jpg)|*.jpg|位图位图|*.bmp|所有文件所有文件|*.* CommonDialog1.FilterIndex = 2 CommonDialog1.ShowOpen CommonDialog1.Action = 1 If CommonDialog1.FileName Then 是否选中了一个图象文件是否选中了一个图象文件 Text1.Text = CommonDialog1.FileN
35、ame 把中选中的文件名放到把中选中的文件名放到Text1中中 End IfEnd Sub 33“另存为另存为”对话框对话框 n调用调用ShowSave方法，或把方法，或把Action属性赋值为属性赋值为2 n目的是获得一个文件全名，供后面的程序用这个文件名存储文件目的是获得一个文件全名，供后面的程序用这个文件名存储文件 n在弹出在弹出“另存为另存为”对话框之前，也应设置对话框之前，也应设置DialogTitle、FileName、InitDir、Filter、FilterIndex等属性。它们的设置方法与作用与等属性。它们的设置方法与作用与“打开打开”对话框相同对话框相同 n如果在如果在“另
36、存为另存为”对话框中选定了路径，输入了文件名并按下了对话框中选定了路径，输入了文件名并按下了“保保存存”按钮，则文件全名就在按钮，则文件全名就在FileName属性中了属性中了n例如（设通用对话框控件的名称为例如（设通用对话框控件的名称为CD1）nCD1.InitDir = D:VBDatanCD1.Filter = 文本文件文本文件|*.txt|Word文档文档|*.doc|所有文件所有文件|*.*nCD1.FilterIndex = 3nCD1.ShowSave 或或CD1.Action = 2nIf CD1.FileName Thenn 以以CD1.FileName为文件名存储文件的程序
37、代码为文件名存储文件的程序代码nEnd If 34“颜色颜色”对话框对话框 n调用调用ShowColor方法，或把方法，或把Action属性赋值为属性赋值为3 n用于选择颜色用于选择颜色n选中的颜色值保存在选中的颜色值保存在Color属性中属性中n例例8-7 建立如图所示界面。单击建立如图所示界面。单击“文字颜色文字颜色”按钮可以改按钮可以改变文本框中文字的颜色变文本框中文字的颜色 35“颜色颜色”对话框应用对话框应用n分析分析n文本框中文字的颜色是文本框的前景色，由文本框的文本框中文字的颜色是文本框的前景色，由文本框的ForeColor属性决定属性决定n可以通过可以通过“颜色颜色”对话框获得
38、颜色并赋值给文本框的对话框获得颜色并赋值给文本框的ForeColor属性来改变文本框中文字的颜色属性来改变文本框中文字的颜色n设通用对话框控件的名称是设通用对话框控件的名称是CD1n程序代码程序代码Private Sub Command1_Click() CD1.ShowColor If CD1.Color = 0 Then 判断是否选择了颜色判断是否选择了颜色 Text1.ForeColor = CD1.Color End IfEnd Sub36“字体字体”对话框对话框 n调用调用ShowFont方法，或把方法，或把Action属性赋值为属性赋值为4 n供用户选择文字的各种属性供用户选择文字
39、的各种属性n获得的属性值存放在通用对话框的相应属性中获得的属性值存放在通用对话框的相应属性中n可以用这些属性值设置其他控件的文字属性可以用这些属性值设置其他控件的文字属性 37“字体字体”对话框用到的属性对话框用到的属性nFlags属性属性 n决定字体的种类决定字体的种类n必须在打开必须在打开“字体字体”对话框之前设置属性，否则将会出现对话框之前设置属性，否则将会出现“没有安装字体没有安装字体”的错误提示的错误提示 取值取值符号常量符号常量含义含义1cdlCFScreenFonts对话框中只列出系统支持的屏幕字体对话框中只列出系统支持的屏幕字体2cdlCFPrinterFonts 对话框中只列
40、出打印机支持的字体对话框中只列出打印机支持的字体3cdlCFBoth对话框中只列出打印机字体和屏幕字体对话框中只列出打印机字体和屏幕字体256cdlCFEffects在对话框中出现前图中的在对话框中出现前图中的“效果效果”框架及其中的复选框和组合框架及其中的复选框和组合框框nColor、FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性属性n分别表示文字的颜色、字体、字号、是否为粗体、是否为分别表示文字的颜色、字体、字号、是否为粗体、是否为斜体、是否有删除线、是否有下划线斜体、是否有删除线、是否有下划线 38
41、“字体字体”对话框的应用对话框的应用n例例8-8 在例在例8-7的基础上增加的基础上增加“字体字体”按钮按钮（Command2），用于设置文本框中文字的属性），用于设置文本框中文字的属性Private Sub Command2_Click() CD1.Flags = 1 Or 256 列出屏幕字体并显示列出屏幕字体并显示“效果效果”框架框架 CD1.ShowFont 或或CD1.Action = 4 Text1.ForeColor = CD1.Color 设置文本框的相应属性设置文本框的相应属性 Text1.FontName = CD1.FontName Text1.FontSize = CD1.FontSize Text1.FontBold = CD1.FontBold Text1.FontItalic = CD1.FontItalic Text1.FontStrikethru = CD1.FontStrikethru Text1.FontUnderline = CD1.FontUnderlineEnd Sub