全国二级VB教程补充内容

1,对江苏版新编Visual Basic程序设计教程的补充,全国计算机等级考试 二级VB教程,纺织服装学院数字纺织教研室 2010.6.8,2,说明：,本教学内容是对江苏省高校新编 Visual Basic程序设计教程的补充。 文中表述时采用的白色文字，表示为已学过的知识，目的是使新讲述的知识与原有知识进行有机衔接。 文中表述时采用的黄色（含其它颜色）文字，表示为新知识。 程序代码通常使用白色。,3,一、制作工具栏,工具栏为Windows98 / 2000 / XP 应用程序常用的标准功能。它提供菜单命令的快速访问。,(一) 使用控件创建工具栏,1、首先在工具箱中添加“Toolbar控件”（工具栏控件）与“ImageList控件”（图象列表控件）,方法：将鼠标移到工具箱上，单击鼠标右键，选择“部件”。在控件标签下选择“MicrosoftWindows Common Controls 6.0”, 单击确定按钮。,注意：在专业版和企业版才有此功能。,下转 创建工具栏 完成的工具栏,4,a,b,c,下转 创建工具栏 需制作的工具栏,5,2、将“Toolbar控件”与“ImageList控件”放到窗体中,Toolbar控件,ImageList控件,Toolbar对象,ImageList 对象,6,3、将按钮图形文件加到“ImageList控件”中。此控件主要是管理图像文件。,方法：选中ImageList控件，单击鼠标右键，选择 “属性”，出现以下窗口。选择 “图像” 标签”。,7,单击 “插入图片” 按钮，在某个文件夹下找到要使用的图片，并为每个图片指定一 个关键字。单击 “确定” 按钮。,下转 创建工具栏 需制作的工具栏,8,4、使用“Toolbar控件”建立按钮。方法：选中“Toolbar控件”，单击鼠标右键，选择“属性”。出现如下窗口。,9,在“通用”标签下，在“图像列表”下拉列表中选择 ImageList 1 对象。,10,在 “按钮” 标签下，单击 “插入按钮”，在关键字处输入 “new”, 在工具提示文本中输入 “新建”，在图像中输入 “1”，单击 “确定” 按钮。这时在工具栏按钮上出现图像。 重复以上步骤，将能创建多个工具栏按钮。,在程序代码中出现的按钮名称。(必须要),注：必要时 可加标题,下转 创建工具栏 需制作的工具栏,11,完成的工具栏,添加了标题的工具栏,添加了工具提示文本的效果,12,5、输入各个按钮的程序代码,在设计状态，双击“Toolbar”对象，出现代码窗口。,Private Sub Toolbar1_ButtonClick (ByVal Button As MSComctlLib.Button) Select Case Button.Key Case new Label1.Caption = “ 新建一个文挡！ Case open Label1.Caption = “ 打开一个文挡！” Case ”save” Label1.Caption = ” 保存一个文挡！ Case print Label1.Caption = “ 打印一个文挡！ End Select End Sub,13,（二）补充知识： 创建多窗体界面的二 种情况： 1、在一个工程中创建 多个并列窗体。 下转VB开发环境作演示 2、在一个工程中创建 具有父子结构的MDI 多窗体界面。 下转VB开发环境作演示,并 列 窗 体,父窗体,子窗体,14,举例：创建一个MDI窗体。一个父窗体，二个 子窗体。在父窗体上制作一个菜单栏，菜单名 分别为窗体1、窗体2，并编程。 要求：当点击某菜单项时，相应的子窗体在父 窗体中显示。,15,Option Explicit Private Sub mnu1_Click() Form1.Show Form2.Hide End Sub Private Sub mnu2_Click() Form2.Show Form1.Hide End Sub,菜单项编程：,下转 MDI窗体演示,16,二、VB控制结构及其语句,（一）分支结构语句 1、单分支结构语句 If e Then 或： If e Then End If 2、双分支（标准）结构语句 If e Then Else End If,3、多分支结构语句 If e1 Then Elseif e2 Then Elseif e3 Then Else End If,17,4、并列分支结构语句（亦称情况语句） Select Case e Case c1 Case c2 Case Else End Select,5、IIf 函数 (1) IIf函数是“If-Then-Else”结构的简写版本，可用来执行简单的条件判断操作。 IIf是 “ Immediate If ”的缩略词。 (2)函数格式： result=Iif (条件，True部分，False部分) 说明：1）result指函数的返回值 2）“条件”是一个逻辑表达式，,18,当条件为真时，Iif函数返回“True部分”，而当条件为假时，返回“False部分”。 3）“True”或“False部分”可以是表达式、变量或其他函数。 4）Iif函数中的3个参数都不能省略。 举例1 ： 相当于： r=Iif(a5,1,2) If a5 Then Print r r=1 Else r=2 End if Print r,下转：二VB控制结构及其语句-1,19,举例2：使用IIF函数判断D的值，试直接采用Print语句输出结果。,下转：二VB控制结构及其语句-2,Private Sub Form_Click() Dim d As Integer d = InputBox(请输入D值, 直接采用Print, 0) Print IIf(d 12, D大于12, D小于12) End Sub,举例3：试求分段函数 y=,4 + 3x x=0,下转：二VB控制结构及其语句-3,Private Sub Command1_Click() Dim x As Integer, y As Integer x = InputBox(, , 0) y = IIf(x 0, 4 + 3 * x, 10 - x) Text1.Text = y End Sub,20,（二）无条件转向语句GoTo 1、概念：Goto语句用于无条件改变程序执行的顺序。例如跳过程序的某一部分去执行另一部分，或返回已经执行过的某语句使之重复执行。 2、语句格式： GoTo 标号 | 行号 说明：1）标号 | 行号用于指明程序将转移至的目标 语句的逻辑位置。 2）标号是一个以字母开头的标识符，其后必 带冒号。例如 again: ,start: 。行号是以数字表示的。 例如：10，20，258等。在程序中标号、行号必须是 惟一的。 3）GoTo语句总是在一个过程中使用。,21,举例4：从键盘输入a,b,c三个值，判断a+b是否小于c,若 满足则结束程序。试采用GoTo语句，且仅使用行号。,下转：二VB控制结构及其语句-4,Private Sub Form_Click() Dim a As Single, b As Single, c As Single 10 a = Val(InputBox(请输入A值) b = Val(InputBox(请输入B值) c = Val(InputBox(请输入C值) If a + b =c,继续输入！ GoTo 10 50 Print a; b; c; a+bc,结束！ End Sub,行号,22,举例5：仍为上题，试采用GoTo语句，且将行号与标 号复合使用。,下转：二VB控制结构及其语句-5,Private Sub Form_Click() Dim a As Single, b As Single, c As Single Start: a = Val(InputBox(请输入A值) b = Val(InputBox(请输入B值) c = Val(InputBox(请输入C值) If a + b =c,继续输入！ GoTo Start 50 Print a; b; c; a+bc,结束！ End Sub,行号,标号,23,举例6：试采用GoTo语句设计一个计算 n! 阶乘。 Private Sub Command1_Click() Dim k As Integer, i As Integer, n As Integer n = Val(InputBox(请输入 n 的值, 求N的阶乘, 2) k = 1: i = 1 Again: k = k * i i = i + 1 If i = n Then GoTo Again Else GoTo 500 End If 500 Print n; ! = ; k End Sub,下转：二VB控制结构及其语句-6,求n阶乘的值 求次数 判断I值,24,（三）具有并列分支结构功能的 On - GoTo语句 1）功能：实现并列分支功能，依据条件判断从多种处 理方案中选择一种。 2）格式： On 数值表达式 GoTo 行号表列 | 标号表列 3）On - GoTo 语句执行过程： 首先计算“数值表达式”的值，若为小数则自动四舍 五入求整，之后依据该值决定转移到第几行号或标号。 On k GoTo 行/标1, 行/标2, 行/标3, 行号/标号4 k=1 k=2 k=3 k=4,25,举例7：设某时期的银行存款年利率如下： 1-活期 2.5% 2-定期一年 5% 3-定期二年 7.5% 4-定期三年 9% 5-定期五年 11% 6-定期八年 13% 以上1、2 6代表存款类别，从键盘输入存款类别， 计算出一年后所得的本利之和。试应用 on-GoTo语句 编写程序。 令：存款额为 A 存款类别为 k 利率为 P 解：,26,A、用户界面：,27,Private Sub Command1_Click() Dim a As Single, k As Integer, p As Single Text1.SetFocus a = Val(Text1.Text) Text2.SetFocus k = Val(Text2.Text) If k 6 Then k = 6 On k GoTo 10, start, 30, 40, 50, 60 10 p = 0.025 GoTo 100 start: p = 0.05 ：GoTo 100 30 p = 0.075 : GoTo 100 40 p = 0.09 : GoTo 100 50 p = 0.11 : GoTo 100 60 p = 0.13 : GoTo 100 100 Text3 = Str(Format(a * p, 00#,#.#) Text4 = Str(Format(a * (1 + p), 00#,#,#.#) End Sub,B、用户程序：,A - 存款额 K - 存款类别 P - 利率,28,Private Sub Command2_Click() Text1 = Text2 = Text3 = Text4 = Text1.SetFocus End Sub Private Sub Command3_Click() Unload Me End Sub,下转：二VB控制结构及其语句-7,注意：在实际编程时，无特别的必要，请不要使用 GoTo 语句与 On - GoTo 语句，因为在程序较长时易使程序走向紊乱，造成编程错误！仅在考试时试题要求时才应用！,29,三、键盘 KeyAscii Print End Sub,32,举例：设计一个能对输入值进行限止、分流的应用程序。其中阿拉伯数字0（ASCII码 48）- 9（ASCII码 57）在Text1中回显。除此不充许，仅在Text2中显示。,下转：第三部分 键盘与鼠标事件 - 3,Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then MsgBox “不充许！在Text2中显示, 16 Text2.Text = Text2 KeyAscii End Sub Private Sub Command1_Click() Text1 = 学习VB” End Sub Private Sub Command2_Click() End End Sub,无法显示,34,7、KeyPress事件可作用的对象有： 窗体、文本框、滚动条、列表框、图片框、复选框 组合框、命令按钮以及与文件有关的控件。 不能响应该事件（即无键盘焦点）的有：标签框、框架、图像框、时钟等。,35,（二）键盘的KeyDown(按下)和KeyUp(抬起）事件,1、 KeyDown、KeyUp事件的一般格式： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) End Sub,2、事件参数：二种形式 1）KeyCode As Integer, Shift As Integer 用于单个控件(常 用) 2）Index As Integer 用于控件数组(不常用),3、参数含义： 复习：我们已经学过 KeyPress (KeyAscii) 返回“字符”的Ascii码的值 例键 A:若键入的是大写的 A，则值为 65 若键入的是小写的 a，则值为 97,36,KeyDown (KeyCode) 返回“键”的值 KeyUp,“键”的值以大写的字母的Ascii码为准。例键“A”，无论是“A”还是“a”，值只有65。也就是说：KeyCode只认“键”（不分大小写）。 注意：大键盘上的数字键与小键盘（数字键盘）上相同的数字键的 KeyCode 是不一样的。对于有上档字符和下档字符的键，其 KeyCode 均为下档字符的Ascii码值。以下是 KeyCode 与 KeyAscii 比较：,键（字符） KeyCode KeyAscii 键（字符） KeyCode KeyAscii A -; Hex(KeyCode); ; Print ElseIf KeyCode = 13 Then i = 0 Print: Print Else Print Chr(KeyCode); -; Hex(KeyCode); ; End If End Sub,1) 程序,38,下转：第三部分 键盘与鼠标事件 - 5,2)用户界面 键盘 KeyCode 码表（十六进制）,A：41H = ( 4 * 16 1 +1 * 16 0 ) D= (64 + 1)D = 65D,AZ,1 0,F1F10,39,KeyDown (Shift) 返回3个转换键（Shift、 KeyUp Ctrl、Alt)的二进制值。,按下Shift键 001B 1D 按下Ctrl 键 010B 2D 按下 Alt 键 100B 4D 若以组合的形式同时按下以上二个或三个键，则Shift 参数返回的是二者或三者之和值。,十进制数 二进制数 作用 十进制数 二进制数 作用 0 000 末按转换键 4 100 按下Alt键 1 001 按下Shift键 5 101 按下Alt+Shift键 2 010 按下Ctrl键 6 110 按下Alt+Ctrl键 3 011 按下Ctrl+Shift键 7 111 按下Alt+Ctrl+Shift键,Shift参数表（三个转换键编码表）,40,举例6：在窗体上建立一个标签，将按键产生的KeyCode参数的值赋予标签的 Caption。以演示KeyCode的值，并验证 KeyDown（压下）与 KeyUp（抬起）事件,下转：第三部分 键盘与鼠标事件 - 6,Option Explicit Private Sub Form_KeyDown(KeyCode As_ Integer, Shift As Integer) Label1.Caption = Str(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As_ Integer, Shift As Integer) Label1.Caption = End Sub,按下A,抬起A,41,举例7：在窗体上建立一个标签，将按键产生的 Shift参数的值赋予标签的 Caption。以演示 Shift 的值。并验证 KeyDown（压下）事件，KeyUp（抬起）事件,下转：第三部分 键盘与鼠标事件 - 7,Option Explicit Private Sub Form_KeyDown(KeyCode As_ Integer, Shift As Integer) Label1.Caption = Str(Shift) End Sub Private Sub Form_KeyUp(KeyCode As_ Integer, Shift As Integer) Label1.Caption = “” End Sub,压下Alt,42,举例8：设计组合键（ Shift +Ctrl）用于文本框Text1显示“我爱中华”的功能 设计组合键（Shift+F2）用于工程“退出”功能 预备知识： VB规定：可用以下语句判断是否操作了Shift、Ctrl、Alt 若按下了Shift键 则 Shift And Shift 0 若按下了Ctrl 键 则 Shift And Ctrl 0 若按下了 Alt 键 则 Shift And Alt 0,1）用户界面：,1）用户程序：,按下Shift+Ctrl,43,下转：第三部分 键盘与鼠标事件 - 8,Option Explicit Private Const Shift = 1 Const用于定义符号常量Shift,以下同 Private Const ctrl = 2 Private Const key_F2 = x Form1.MousePointer = x x = x + 1 If x = 16 Then x = 0 End Sub,57,2、在属性窗口中设置属性,下转：第三部分 键盘与鼠标事件 - 18,1）在设计态时，选中某对象（窗体、控件）。 2）在属性窗口中找到 MousePointer 属性条，之后 在下拉菜单中选择某属性。,58,（五）鼠标对对象的拖放,一、与拖放有关的属性、事件和方法 1、DragMode 属性 设置为人工拖放：属性值 = 0（默认） 设置为自动拖放：属性值 = 1 设置方法： （1）设计态时在属性窗口中设置 （2）程序代码中设置 例：pictuer1.DragMode = 1 注意：当一个对象的 DragMode 属性设置为1时，该 对象不再响应 Click 和 MouseDown 事件。 2、DragIcon 属性 在拖放对象时用于代表对象的图标,59,二、事件 1、DragDrop事件 当把对象拖放到目标后，若抬起鼠标键，则产生该事 件。 2、DragOver事件 当拖动对象越过一个控件时，产生DragOver事件。 3、事件过程格式：,Private Sub Picture1_DragDrop(Source As Control, X As_ Single, Y As Single) End Sub,Private Sub Picture1_DragOver(Source As Control, X As_ Single, Y As Single,State As Intrger) End Sub,4、事件过程参数： Source: 对象变量，类型为控件。该参数含有被拖,60,动对象的属性，例：if Source.Name=“Folder” Then 用来判断被拖动对象的 Name 属性是否为“Folder”. X , y 参数是抬起鼠标键放下对象时鼠标光标的位置。 State:有三个值。 0 鼠标光标正进入目标对象的区域 1 鼠标光标正退出目标对象的区域 2 鼠标光标正位于目标对象的区域之内 三、方法： 方法有 Move 和 Drag, Drag 用于手动拖放操作。 Drag 格式： 控件 . Drag 整数 0 取消指定控件的拖放 1 当Drag方法出现在控件的事件过程中时， 启动控件的拖放,61,2 结束控件的拖放，并发出一个DragDrop事件,四、鼠标对对象的拖放 1、自动拖放 举例17：设计一个简单的自动拖放实例 (不使用 Drag ) 1）在窗体上建立一个图片框，框中装入图标文件（在 设计态时于属性窗口的 Picture 属性中选取图标） 2）将属性窗口的 DragMode 属性设置为1-Automatic （即自动拖放模式） 3）设计DragDrop事件过程,（一）用户界面：,（二）用户程序：,下转：第三部分 键盘与鼠标事件 - 19,Private Sub Form_DragDrop(Source_ As Control, X As Single, Y As Single) Picture1.Move X, Y End Sub,图标可见,62,举例18：设计一个简单的自动拖放实例。要求：平时 图标不可见，运行时图标才显现。 1）在窗体上建立一个图片框，框中装入图标文件（在 设计态时于属性窗口的 DragIcon 属性中选取图标,或 在程序代码中指明装入的图标的路径） 2）将属性窗口的DragMode属性设计为1-Automatic （即自动拖放模式） 3）设计DragDrop事件过程,（一）用户界面：,图标不可见,Private Sub Form_DragDrop(Source As Control, X As_ Single, Y As Single) Picture1.DragIcon = LoadPicture(d:tangClient.ico) Picture1.Move X, Y End Sub,（二）用户程序：,下转：第三部分 键盘与鼠标事件 - 20,63,2、手动拖放,举例19：一个手动拖放实例,（一）用户界面：,（二）用户程序：,为实现手动拖放，1）属性窗口的 DragMode 属性保持 为默认值 “0 - Manual”（即人工方式）,方法 Drag 为默认值,64,Private Sub Form_Load() Picture1.DragIcon = Picture1.Picture End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift_ As Integer, X As Single, Y As Single) Picture1.Drag 1 End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As_ Integer, X As Single, Y As Single) Picture1.Drag 2 End Sub Private Sub Form_DragDrop(Source As Control, X As_ Single, Y As Single) Source.Move X, Y Source.Move (X - Source.Width / 2), (Y - Source.Height / 2) End Sub,下转：第三部分 键盘与鼠标事件 - 21,65,四、VB通用对话框,一、对话框的定义与分类： 1、 对话框的定义： 具有显示信息并接收用户信息的功能框（实际上是一种特殊的窗体）称对话框。 我们已学习过 InputBox 键盘输入信息对话框与MsgBox 简单信息消息框，这二种对话框仅具极简单的功能。若对话功能较为复杂，怎么办？这就需要用到通用对话框。 2、对话框的分类： 1）预定义对话框：,66,即VB提供的 InputBox 与MsgBox 。 2）自定义对话框（或称定制对话框）： 用户通过创建用户界面与编写程序来获得。例如教材第二章介绍的用于改变文字风格的单选按钮、复选框、框架等控件的使用，实际上就是一种自定义对话框。这种对话框由于要求用户自己定制，比较繁。,3）通用对话框： 用户自己定制对话框比较繁，为此VB考虑到这种需求，已为用户设置了专用控件：通用对话框控件。使用该控件能够方便地设计出功,能较为复杂的对话框。,67,二、通用对话框： 1、通用对话框控件： 工具箱 部件 控件 Microsoft Common Dialog Control 6.0 确定 2、通用对话框的类型： 为方便用户的使用，VB提供了几种不同类型的通用对话框。,控件图标,对话框类型 方法 Action属性 打开文件 对象名. ShowOpen 对象名.Action= 1 保存文件 对象名. ShowSave 对象名.Action= 2 选择颜色 对象名. ShowColor 对象名.Action= 3 选择字体 对象名. ShowFont 对象名.Action= 4 打印 对象名. ShowPrinter 对象名.Action= 5 调用Help文件 对象名. ShowHelp 对象名.Action= 6,对象名：CommonDialog1,68,3、通用对话框类型的举例（基本特征）： 1）文件对话框 （1）打开文件对话框：,下转：第四部分 通用对话框 - 1,Private Sub Command1_Click() CommonDialog1. ShowOpen End Sub,Private Sub Command1_Click() CommonDialog1. ShowSave End Sub,（2）保存文件对话框：,下转：第四部分 通用对话框 - 1,69,Private Sub Command1_Click() CommonDialog1. Action = 3 End Sub,2）选择颜色对话框：,下转：第四部分 通用对话框 - 1,Private Sub Command1_Click() CommonDialog1. Action = 5 End Sub,3）打印对话框：,下转：第四部分 通用对话框 - 1,70,4、文件对话框的属性设置（功能扩展）：,1）DialogTitle 属性 设置对话框的标题。默认值：“打开”、“保存”、“颜色”等；,1,2,3,4,2）FileTitle - 设置当前文件的文件名； 3）FileName - 设置当前文件的文件名与路径; 4）Filter - 设置文件类型，可设置多个文件类型，以供用户在下拉列表中选择；,上面介绍了通用对话框的最基本的特征与最简功能。 在实际使用中，VB还提供了有关的属性设置，以满 足用户的需要。,71,格式： 窗体. 对话框名. Filter = 描述符1 | 过滤器1 | 描述符2 | 过滤器2 | 例如： CommonDialog1.Filter = (*.*)|*.*|(*.txt)|*.txt|(*.frm)|*.frm|(*.doc)|*.doc 5）FilterIndex 指定对话框启动后默认的过滤器，上 例中若需选择扩展名为（.txt）的文件，则： CommonDialog1.FilterIndex = 2,6）Flags 设置对话框的外观。 格式： 对象名.Flags = 值 ,72,文件对话框 Flags 取值表（部分）：,符号常量 十六进制数 十进制数 vbOFNReadOnly &H1& 1 在对话框中显示“只读检查”复选框 vbOFNOverwritePrompt &H2& 2 保存文件时，若用磁盘上已有的文件名保存，则显示一个信息框，询问用 户是否以当前文件覆盖原有文件 vbOFNHideReadOnly &H4& 4 取消“只读检查”复选框 vbOFNNoChangeDir &H8& 8 保留当前目录 vbOFNShowHelp &H10& 16 显示一个“Help”按钮 vbOFNNoReadOnlyReturn &H8000& 32768 选择的文件不是只读文件，并且不在一个写保护的目录内 共计13项,73,Flags 值在代码中的表达形式： CommonDialog1.Flags = vbOFNReadOnly （符号常量） CommonDialog1.Flags = &H1& （十六进制数） CommonDialog1.Flags = 1 （十进制数） CommonDialog1.Flags = vbOFNReadOnly Or vbOFNShowHelp CommonDialog1.Flags = &H1& Or 16 CommonDialog1.Flags = 17 （1 + 16）,举例： 编写一个标题为“打开文件对话框示例”的应用程序： （1）创建用户界面,Command1,CommonDialog1,（2）编写程序：,74,Option Explicit Private Sub Command1_Click() Dim a As String CommonDialog1.DialogTitle = 打开文件对话框示例! CommonDialog1.FileName = CommonDialog1.Filter = (*.*)|*.*|(*.txt)|*.txt|(*.frm)|*.frm|(*.doc)|*.doc CommonDialog1.FilterIndex = 2 CommonDialog1.Action = 1 If CommonDialog1.FileName = Then MsgBox 无文件名, 37, 检查 Else Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) 文件路径：d:tst1.txt 或 d:tst2.txt Input #1, a Print a Loop End If End Sub,下转：第四部分 通用对话框 - 2,75,5、颜色（Color）对话框： 本对话框的属性较简单（除有少量的与文件对话框相同的属性外），主要属性是Color 设置初始颜色。 颜色对话框的Flags取值表：,符号常量 十六进制数 十进制数 vbCCRGBInit &H1& 1 使Color属性定义的颜色在首次显示对话框时随着显示出来，必须使用 vbCCFullOpen &H2& 2 打开完整的颜色对话框（包括“规定自定义颜色”窗口） vbCCPreventFullOpen &H4& 4 禁用“规定自定义颜色”按钮 vbCCShowHelp &H8& 8 显示一个“Help”按钮,76,Flags使用说明： 程序代码中必须使用: 对象名.Flags= vbCCRGBInit，其作用是打开颜色对话框，并可设置或读取 Color 的属性。 Flags在代码中的表达形式：,CommonDialog1.Flags = vbCCRGBInit （符号常量） CommonDialog1.Flags = &H1& （十六进制数） CommonDialog1.Flags = 1 （十进制数） CommonDialog1.Flags = &H1& CommonDialog1.Flags = 2 （打开完整的颜色对话框） CommonDialog1.Flags = 1 CommonDialog1.Flags = 4 （“规定自定义颜色”按钮无效） CommonDialog1.Flags = 1 CommonDialog1.Flags = 8 （颜色对话框上显示“Help”按钮）,77,举例：建立一个颜色对话框，编写应用程序，把对话框中选定的颜色赋予窗体作背景色： （1）创建用户界面 （2）编程：,图形框,Option Explicit Private Sub Command1_Click() CommonDialog1.Flags = 1 CommonDialog1.Flags = 2 CommonDialog1.Flags = 4 CommonDialog1.Flags = 8 CommonDialog1.Color = BackColor CommonDialog1.ShowColor Picture1.BackColor = CommonDialog1.Color End Sub,下转：第四部分 通用对话框 - 3,通用对话框控件,78,6、字体（Font）对话框： 本对话框除有少量属性与前面对话框相同外，主要属性是 Flags 的取值与Font属性。 字体对话框Flags 取值表：,符号常量 十六进制数 十进制数 vbCFScreenFonts &H1& 1 只显示屏幕字体 vbCFPrinterFonts &H2& 2 只列出打印机字体 vbCFBoth &H3& 3 列出打印机和屏幕字体 vbCFShowHelp &H4& 4 显示一个“Help”按钮 共计15项,79,字体对话框 Font 的主要属性：,FontName 字体名称 FontSize 字体尺寸 FontBold 粗体 FontItaLic 斜体,FontStrikeThru 删除线 FontUnderLine 下划线 其它,举例：用字体对话框设置文本框中显示的字体 （1）创建用户界面,文本框,通用对话框控件,80,（2）编程：,Option Explicit Private Sub Command1_Click() CommonDialog1.Flags = 3 CommonDialog1.ShowFont Text1.FontItalic = CommonDialog1.FontItalic 注：各Font属性也可以在控件属性窗口中预选 Text1.FontBold = CommonDialog1.FontBold Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline End Sub,（3）程序运行效果：,81,2,1,下转：第四部分 通用对话框 - 4,82,7、打印（Printer）对话框： 本对话框除有少量属性与前面对话框相同外，主要属性是 Flags、FromPage、ToPage、Max、Min、等属性。 1）打印对话框 Flags 取值表：,符号常量 十六进制数 十进制数 vbPDSelection &H1& 1 只显示屏幕字体 vbPDPageNums &H2& 2 只列出打印机字体 vbPDNoSelection &H4& 4 列出打印机和屏幕字体 vbPDNoPageNume &H8& 8 取消页码计数 vbPDShowHelp &H800& 2048 显示一个“Help”按钮 vbPDUseDevModeCopies &H4000& 262144 若打印机驱动程序不支持多份拷贝，则设置这个值将禁止拷贝 共计15项,83,2）FromPage、ToPage属性：指定要打印文挡的页码范围； 3）Max、Min属性：用来限止FromPage、ToPage的范围，其中Min指定所充许的起始页码， Max指定所充许的最后页码。,举例：建立打印对话框 （1）创建用户界面,通用对话框控件,84,（2）编程：,Option Explicit Private Sub Form_Load() CommonDialog1.Min = 1 CommonDialog1.Max = 10 CommonDialog1.Flags = &H1& Or &H4000& CommonDialog1.CancelError = True 以上代码用于单击“取消”按钮时给出出错信息 CommonDialog1.Action = 5 End Sub,（3）程序运行效果：,85,输入15,1,2,3,当输入的页码正确时，按下“打印”按钮,下转：第四部分 通用对话框 - 5,86,87,END !,2010.6.8修改,补充内容结束 谢谢大家,