1、VB应用教程窗体第四章 窗体14.1窗体的结构14.2窗体属性14.2.1窗体基本属性11. 名称（Name）12. AutoRedraw（自动重画）23. BackColor（背景色）与 ForeColor（前景色）34. BorderStyle 属性55. Height（高度）、Width（宽度）、Top（顶部）与 Left（左边距）属性56. Caption 标题属性67.字型Font属性组78. Enabled（允许）（逻辑值）89. Visible（可见）属性（逻辑值）84.2.2窗体其他常用属性24.3 窗体的主要事件34.3.1 Activate (活动事件)与Deactivat
2、e（非活动事件）34.3.2 Load（装入）与UnLoad（卸载）事件34.3.3 Click（单击）与 DblClick（双击）事件34.3.4 Resize 事件54.4窗体控制54.4.1装入或卸载窗体54.4.2显示和隐藏窗体54.4.3 Cls方法74.4.4 Move方法74.4.5 TextHeight和TextWidth84.4.6位置属性CurrentX和CurrentY84.4.7窗体之间的数据存取94.5基本的窗体操作104.5.1添加窗体：104.5.2移除（清除）窗体104.5.3 END语句114.5.4多窗体的启动（显示）顺序114.6多文档程序144.6.1多
3、文档程序的建立154.6.2主窗体与子窗体的标题164.6.3主窗体与子窗体的菜单174.7窗体设计举例17练习创建一个窗体1831第四章 窗体学习目标1. 学会在应用程序中通过编程来调用和卸载工程中的窗体。2. 掌握有关窗体操作的语句和方法。3. 理解区别Unload和Hide方法。4. 了解启动窗体的概念。学习重点 有关窗体操作的语句和方法。在VB中建立一个程序主要包括两部分工作，即：设计窗体和编写代码。前面已对窗体做了一个简单介绍，编写VB程序首先要根据需要创建一个良好的可视化界面，因此VB程序界面是由窗体（Form）和一些必要的控件元素（Control）构成的。由于VB属于面向对象编程
4、，也可以将窗体、控件都称为对象。窗体是窗体设计器窗口的简称，是应用程序面向用户的最终窗口。窗体也是一种对象，由其属性定义外观，用方法定义其行为，通过事件设定与用户实现交互。因此，设计窗体也就是设计一个应用程序的操作界面。当启动一个新的工程文件时，VB自动创建一个带图标的新窗体，命名为“Form1”。窗体内带有网点（称为网格）的窗口，这就是用户的窗体，一般也是程序运行时的主窗口。重新对该窗体大小的调整及属性值设置等操作，称为定制窗体。对窗体、控件的定制，在设计期间称为设计时，程序运行期间称为运行时。4.1窗体的结构当启动一个标准 EXE程序后，窗体设计器中会出现一个默认的窗体。可以发现它的外观大
5、致与Windows中记事本窗口一样，其窗体右上角也有最小化、最大化、关闭三个按钮。如图4-1所示：图4-1系统控件菜单：Form1.ControlBox，点击“图标”它可以弹出控制菜单命令。标题栏：Form1.Caption，显示的窗口标题，如本例中的“Form1”。最小化按钮：Form1.MinButton 。最大化按钮：Form1.MaxButton 。4.2窗体属性窗体属性决定了窗体的外观，如大小、颜色和标题等。对窗体属性设置还可以改变窗体的结构。4.2.1窗体基本属性1. 名称（Name） “名称”是任何对象（窗体、控件）都具有的标识名，在属性窗口定义对象（窗体、控件）名称，以便在程序
6、中引用。对于任何一个可以在属性窗口设置其属性的对象，必须设置该属性的值。VB自动为每一个对象给定一个缺省值。窗体名称“Name”，是窗体的标识名，其属性的缺省值为 FormX（X为编号，从1，2，依次顺延）。对于给VB中所有对象（窗体、控件）“名称”命名，都应按如下规则：1) 必须以字母或汉字开头；2) 可包括字母、数字和下划线，不能有空格或标点符号；3) 最大长度为40个字符；4) 不能使用与公共对象相同的名字，例如 Clipboard、Screen 或 App。虽然窗体名称命名可以是一个关键字、属性名字、或别的对象的名字，但这会在代码中产生冲突，因此不要使用。5) “名称”只具有只读属性，
7、它只能在程序设计阶段设置，不能在运行期间改变。名称不会显示在窗体上。 在简单的程序里，给创建的对象命名不是很必要，可以直接使用VB为每一个对象给定的缺省值（默认名称）。但在有几十个对象(控件)的复杂窗体里，使用对象的缺省值,会让你用更多的时间去区分它们是那类控件。为了能见名知意，提高程序可读性，VB推荐由三个小写字母的前缀和一个以第一个字母为大写的描述性单词组成的名字。推荐的前缀见下表：对象前缀例子窗体（Form）frmFrmFirst确认框（CheckBox）chkChk1组合框（ComboBox）cboCbo1命令钮（CommandButton）cmdCmdExit数据库控件（DataCo
8、ntrol）datDat1目录列表框（DirectoryList Box）dirDirTree驱动器列表框（DriveList Box）drvDrvDisk文件列表框（FileList Box）filFilDocuments框架（Frame）fraFraButtons水平滚动条（HorizontalScroll Bar）hsbHsbScroll图形（Image）imgImg1标签（Label）lblLbl1线（Line）linLin1列表框（ListBox）lstLst1菜单（Menu）mnuMnu1选项钮（OptionButton）optOptButton1图片框（PictureBox）pi
9、cPic1几何图形（Shape）shpShp1文本框（TextBox）txtTxt1垂直滚动条（VerticalScroll Bar）vsbVsbScroll2. AutoRedraw（自动重画）该属性决定窗体被隐藏或被另一窗口覆盖之后，是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。该属性可以通过属性窗口设置如图4-2所示，其属性值为True时，可以重新还原该窗体以前的画面;若为False时，则不重新还原。默认属性为 False。常用于多窗体程序设计中。该属性的设置也可以在运行时通过代码进行设置，语句格式为：窗体名称.AutoR
10、edraw=Boolean 图4-2例如：有两个窗体Form1和Form2，先加载窗体Form1会在窗体中央画许多同心圆，单击窗体Form1会显示窗体Form2，当单击窗体Form2时卸载窗体Form2，观察窗体Form1上画的许多同心圆有无改变。程序如下：Private Sub Form_Click() 窗体1程序 Form2.ShowEnd SubPrivate Sub Form_ load() 窗体中央画许多同心圆Form1.ShowDim X, Y, R, LScaleMode = 3 以像素为单位X = Form1.ScaleWidth / 2 X 位置Y = Form1.Scale
11、Height / 2 Y 位置If X Y Then L = Y Else L = X For R = 0 To L 半径 Circle (X, Y), R, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next REnd SubPrivate Sub Form_Load() 窗体中央画许多同心圆Form1.ShowDim R For R = 0 To 10 半径 Print sssssssssssssssssssssssssssssssssss Next REnd Sub窗体2程序Private Sub Form_click() Unload Form2 卸载窗
12、体End Sub注：ScaleWidth和ScaleHeight属性返回或设置“对象”（此例题“对象”是窗体）内部的水平或垂直度量单位。ScaleMode属性，返回或设置使用图形方法或调整控件位置时一个值，该值指示对象坐标的度量单位。3. BackColor（背景色）与 ForeColor（前景色）BackColor属性用于设置窗体的背景颜色，如图4-3所示； ForeColor属性用于设置在窗体里显示的图片或文本的颜色，即用来指定图形或文本的前景色，如图4-4所示。图4-3 图4-4它们用十六进制数指定颜色，在语句中颜色的表现形式为：&HBBGGRR&说明：它们用十六进制数指定颜色，在语句中
13、颜色的表现形式为：&HBBGGRR&。BB 指定蓝颜色的值，GG 指定绿颜色的值，RR 指定红颜色的值。每个数段都是两位十六进制数，即从 00 到 FF。在程序代码中可以用Windows 运行环境的红-绿-蓝 (RGB) 颜色方案，使用调色板或在代码中使用 RGB 或 QBColor 函数指定标准RGB颜色。RGB 函数是用来指定颜色，多数情况下用十六进制数指定颜色，分别定义了红、绿、蓝三种颜色的值。红、绿、蓝三种成分都是用 0 到 255 (&HFF) 之间的数表示。因此，可以用十六进制数按照下述语法来指定颜色,即&HBBGGRR&。例如：将窗体Form1的背景色设置为红色，则可使用下面四种
14、方法： Form1.BackColor = RGB(255, 0, 0) RGB 函数 Form1.BackColor = &HFF& 用十六进制数指定颜色Form1.BackColor = QBColor（12） QBColor（）函数Form1.BackColor = vbRed VB提供的颜色常数QBColor 函数返回一个 Long数据类型，用来表示所对应颜色值的 RGB 颜色码。语句格式为：QBColor(color)说明：color 参数代表使用于早期版本的 Basic（如 Microsoft Visual Basic for MS-DOS 以及 Basic Compiler）的颜
15、色值。QBColor 函数返回值指定了红、绿、蓝三原色的值，用于设置成 VBA中RGB 系统的对应颜色。color 参数是一个界于 0 到 15 的整型。color 参数设置值见下表：值颜色值颜色0黑色8灰色1兰色9亮兰色2绿色10亮绿色3青色11亮青色4红色12亮红色5洋红色13亮洋红色6黄色14亮黄色7白色15亮白色例如：在窗体上添加一个文本框和一个命令按钮，每单击一次命令按钮，则文本框内字体颜色就变化一次（利用QBColor 函数实现）。Private Sub Command1_Click()Static i As IntegerIf i 16 Then Endi = i + 1End
16、Sub除了利用RGB和Qcolor函数来设置控件的颜色，还可以使用VB自身提供的Color 常数来设置控件的颜色，这些常数可以在代码中的任何地方用下列常数代替实际值见下表：常数值描述vbBlack0x0黑色vbRed0xFF红色vbGreen0xFF00绿色vbYellow0xFFFF黄色vbBlue0xFF0000蓝色vbMagenta0xFF00FF紫红色vbCyan0xFFFF00青色vbWhite0xFFFFFF白色例如：将窗体Form1的背景色设置为红色，则可使用下面语句： Form1.BackColor = vbRed 4. BorderStyle 属性BorderStyle 属性
17、用于设置窗体的边框样式，通过改变 BorderStyle 属性设置，可以控制窗体如何调整大小。Form 对象的 BorderStyle 属性设置值如下表所示：常数设置值描述vbBSNone0-None无边框；vbFixedSingle1-FixedSingle单线边框，不可以改变窗口大小；vbSizable2-Sizable（缺省值）双线边框，可以改变窗口大小；vbFixedDouble3-FixedDouble双线框架，不可以改变窗口大小；vbFixedToolWindow4-FixedToolWindow窗体外观与工具条相似。只有关闭按钮，不可以改变窗口大小；vbSizableToolWi
18、ndow5-SizableToolWindow窗体外观与工具条相似。只有关闭按钮可以改变窗口大小。常与BorderStyle 属性配合使用是ControlBox属性。5. Height（高度）、Width（宽度）、Top（顶部）与 Left（左边距）属性这四个属性决定窗体（或控件）的大小，在容器中的位置，如图4-5所示：图4-51) Height（高度）、Width（宽度）这两个属性用来指定窗体的高度与宽度（包括边框宽度和标题栏高度）。其度量单位是twip。（1 twip=1/20点=1/1440英寸=1/567cm或大约等于1厘米的1/28）例如：要让窗体的宽度变为 3000 Twip ，高
19、度变为 6000 Twip ，具体程序如下：Private Sub Form1_ load()Form1.Width = 3000Form1.Height = 6000End Sub2) Top（顶部）、Left（左边距）通过这两个属性可以控制窗体的坐标（左上角）位置。其度量单位是twip。（1 twip=1/20点=1/1440英寸=1/567cm）。注意：随着对象的不同，这个Top与Left的意义不同。当对象是窗体时，Top指的是窗体顶部与屏幕顶部的相对距离，Left 指的是窗体左边界与屏幕左边界的间距；当对象是其他控件时，它们分别表示控件顶部、左边与窗体顶部左边之间的距离。例如：把 Fo
20、rm1 窗体移动到距屏幕顶部 200 Twip ，距屏幕左边距 300 Twip 的地方，程序如下：Private Sub Form_ load()Form1.Top = 200Form1.Left = 300End Sub例如：让窗体加载时，窗体的大小为屏幕的50%且居中显示, 程序如下： Private Sub Form_load() Form1.Width = Screen.Width * 0.5 Form1.Height = Screen.Height * 0.5 Form1.Left = (Screen.Width - Form1.Width) / 2 居中显示 Form1.Top
21、= (Screen.Height - Form1.Height) / 2End Sub3) Screen.Height 属性是指屏幕的高度，即整个 Windows 桌面高度。4) Screen.Width属性是指屏幕的宽度，即整个 Windows 桌面宽度。6. Caption 标题属性 该属性用来设置对象上或标题栏上的显示内容，在外观上起到提示和标志的作用。当创建一个新窗体时，窗体的Caption 标题属性值，为缺省的Name属性设置值，即Form1。标题可以通过属性窗口重新设置。例如：让窗体标题变为“test”，如图4-6所示： 图4-6Caption属性可以在运行时中通过代码改变。语句格
22、式为： 窗体.Caption = 字符串例如：让窗体的标题改变为test，如图4-6所示。Private Sub Form_Load()Form1.Caption = testEnd Sub注意：Name属性与Caption属性的区别，两者虽然缺省值相同，都是Form1，但实际意义却不一样。Caption指的窗体标题栏上的文字，Name指这个窗体的对象名；也可以理解Name属性用于在代码中标识窗体、控件对象的名称（所有对象都具有的属性），供程序引用。Name属性在程序运行时不能改变；Caption属性是标题栏上的文字，在程序运行时可以通过程序代码改变。另外，对于窗体和所有有标题的控件，标题最长
23、为255 个字符；标签（Label）控件的标题长度没有字符数限制。7.字型Font属性组 字体属性用来设置输出字符的各种特性，包括字体、大小等，这些属性适用大部分控件。字体属性可以通过属性窗口设置，也可以在程序运行中通过代码改变。字体属性的设置操作及字型等概念与使用Word的设置字体格式基本一样。1) 字体类型FontName属性是字符型，决定对象上正文的字体（缺省为宋体）。语句格式为： 窗体.FontName=字体类型例如：要在屏幕上显示的字体为“隶书”，具体程序如下：图4-72) 字体大小FontSize属性是整型，决定对象上正文的字体大小，语句格式为:窗体. FontSize=字号例如：
24、Text1. FontSize t=20 设置文本框中的字体大小3) 粗体字FontBold属性是逻辑型，决定对象上正文是否是粗体，语句格式为:窗体. FontBold=Boolean Boolean为逻辑值 True(真) / False(假)Private Sub Form_click()FontSize = 16Form1.FontBold = True 让打印字体加粗Print ffffffffffEnd Sub4) 斜体字FontItalic属性是逻辑型，决定对象上正文是否是斜体，语句格式为:窗体. FontItalic =Boolean5) 加删除线字FontStrikeThru属
25、性是逻辑型，决定对象上正文是否加一删除线。语句格式为:窗体. FontStrikeThru =Boolean6) 加下划线字FontUnderLine属性是逻辑型，决定对象上正文是否带下划线。语句格式为: 窗体.FontUnderLine =Boolean注意：如果省略对象名称，则指的是当前窗体；设置一种属性后，该属性立即生效，并且不会自动撤消，可在利用上述方法重新设置，才能改变该属性值。另外，某些对象中的属性是逻辑型的，改变其逻辑型的值，也可以利用下面的语句格式： 对象属性=Not 对象属性例如：要求每单击一次窗体就会让窗体上的字体由细变成加粗、加斜显示。如图4-8所示：Private Su
26、b Form_click()FontSize = 16Print 字体FontBold = Not FontBold 逻辑开关语句FontItalic = Not FontItalicEnd Sub或利用条件语句进行判断，见下面程序：Private Sub Form_click()FontSize = 16Print 字体If FontBold = False And FontItalic = False Then FontBold = True FontItalic = TrueElse FontBold = False FontItalic = FalseEnd IfEnd Sub8. E
27、nabled（允许）（逻辑值）每个对象都有一个Enabled属性。该属性用来激活对象或禁止使用对象，即决定对象是否可操作。当一个对象的Enabled属性设置为True（真）时 ，允许用户进行操作，并对操作出响应（缺省值为True）；当一个对象的Enabled属性设置为False（假）时,控件呈暗淡色，禁止用户进行操作。窗体Enabled属性决定运行时窗体是否响应用户事件。在程序运行时可以看到改变 Enabled属性的效果。若Enabled已设为False，则点击按钮窗体不会有反应。该属性可以通过属性窗口设置,也可以在运行时通过代码进行设置，语句格式为:窗体.Enabled=Boolean9.
28、Visible（可见）属性（逻辑值）当一个对象的Visible 属性设置为 False 时，程序运行时不能看见；只有当 Visible 属性值变为 True 时，才能被看见。窗体Visible属性决定程序运行时窗体是否可见。当Visible为False时，窗体是不可见的，若值改为True，运行时窗体则可见。该属性可以通过属性窗口设置,也可以在运行时通过代码进行设置，语句格式为：窗体.Visible=Boolean例如：单击窗体，则隐藏窗体，单击窗体显示命令按钮。具体程序如下：Private Sub Form_Click()Form1.Visible = False 隐藏窗体MsgBox 单击按
29、钮，使窗体重现屏幕 显示信息Form1.Visible = True 隐藏窗体End Sub例如：要求单击窗体1（隐藏窗体1），则显示窗体2，反之亦然。具体程序如下： Form1 的代码如下：Private Sub Form_click() Form1.Visible = False Form2.ShowEnd Sub Form2 的代码如下：Private Sub Form_click() Form2.Visible = False Form1.ShowEnd Sub例如：单击窗体上命令按钮，则命令按钮隐藏，单击窗体显示命令按钮。具体程序如下：Private Sub Command1_Cli
30、ck()Command1.Visible = FalseEnd SubPrivate Sub Form_Click()Command1.Visible = TrueEnd Sub4.2.2窗体其他常用属性1MaxButton最大化按钮和MinButton最小化按钮 设置值为 Ture，有最大或最小化按钮，设置值为False则无。2ControlBox控制菜单框属性若设置值为Ture，有控件菜单栏（图标）；如设置为False，则无控件菜单（图标），同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为Ture。另外，要使ControlBox属性有效，则Bor
31、derStyle 属性值必须为1、2或3。3Icon 控制图标属性使用该属性返回或设置窗体左上角显示或最小化时显示的图标。该属性设置可以在设计时通过属性窗口加载指定图标，所加载的文件是图标 (.ico) 文件。如果不指定图标，窗体会使用 VB 缺省图标。该属性也可以在运行时通过代码进行设置，语句格式为：窗体.Icon例如:通过运行下面程序改变窗体上VB 缺省图标。Private Sub Form_Click() PLANE2.ICO 图标必须在c: 目录中，这个例子才能正常运行Form1.Icon = LoadPicture(c:PLANE2.ICO)End Sub4KeyPreview 属性
32、返回或设置一个值，以决定是否在控件的键盘事件之前激活窗体的键盘事件。设置值为False （缺省值），活动控件接收键盘事件，而窗体不接收；设置值为True ，窗体先接收键盘事件，然后是活动控件接收事件。键盘事件为：KeyDown、KeyUp 和 KeyPress。当用程序代码设置时，语句格式为： 窗体.KeyPreview = Boolean5Picture图片属性 设置窗体中要显示的图片。加载图片操作同Icon 控制图标属性。 6. WindowState属性设置一个窗体窗口运行时，窗体最小化、最大化和原形这三种可见状态。该属性设置可以在设计时由属性窗口设置，WindowState属性设置如下
33、表：常数设置值含义vbNormal0-Normal（缺省值）正常窗口状态，有窗口边界； VbMinimized1-Minimized最小化状态，以图标方式运行； VbMaximized2-Maximized 最大化状态，无边框，充满整个屏幕。WindowState属性设置也可以在运行时通过代码进行设置，语句格式为：窗体.WindowState = 常数或设置值4.3 窗体的主要事件4.3.1 Activate (活动事件)与Deactivate（非活动事件）1Activate事件：当对象窗体成为活动窗口时发生。2Deactivate事件：当对象窗体成为非活动窗口时发生。当一个窗体启动（被加载）
34、时，就发生Activate 事件。当对多个窗体操作时，即从一个窗体切换到另一个窗体，每次切换一个窗体时，就发生Activate 事件，而前一个窗体发生Deactivate事件。例如：通过运行下面程序体会Activate 事件和Deactivate事件。 Form1程序Private Sub Form_Deactivate() Print 欢迎学习、使用Visual Basic!End SubPrivate Sub Form_click()Form2.ShowEnd Sub Form2 程序Private Sub Form_Activate() Print 欢迎学习、使用Visual Basic
35、!End Sub4.3.2 Load（装入）与UnLoad（卸载）事件1Load（装入）事件Load事件常用在启动程序时，对控件属性和程序中所用变量进行初始化。Load事件的语句格式为：Load 注意：用Load语句只是把窗体装载到内存，该窗体不会自动成为可视窗体。此时若在对装载到内存中窗体上已存在的控件设置焦点，则会提示有错误，因此必须使用窗体的Show方法配合，让窗体为可视窗体。例如：执行下面程序观察窗体上的显示结果。Private Sub Form_Load() 窗体装载Dim x As Integer, y As Integerx = 10: y = 15ShowCommand1.Se
36、tFocus 对Command1设置焦点提示：实时错误 5 无效的过程调用或参数Print x+y=; x + yEnd Sub2UnLoad（卸载）事件用Unload语句，其功能与Load语句相反,清除内存中指定的窗体。Unload事件的语句格式为：UnLoad 注意：窗体卸载后，如果要重新装入窗体，则新装入窗体上的所有控件都被重新初始化。4.3.3 Click（单击）与 DblClick（双击）事件这两个事件在单击或双击窗体（控件）时发生。1 Click事件Click事件是在一个对象上按下然后释放一个鼠标按钮时发生。它也会发生在一个控件的值改变时。对一个 Form 对象来说，该事件是在单击
37、一个空白区或一个无效控件时发生。注意：用鼠标的左键或右键单击一个控件。对 CheckBox, CommandButton, Listbox 或 OptionButton 控件来说，Click 事件仅当单击鼠标左键时发生。Click事件语句格式为：Private Sub Form_Click( )Private Sub object_Click(index As Integer)Click 事件的语句包括下列部分：部分描述object一个对象表达式，其值是“应用于”列表中的一个对象。index一个整数，用来唯一地标识一个在控件数组中的控件。说明：通常，将一个 Click 事件过程附加到一个 Co
38、mmandButton 控件，Menu 对象或 PictureBox 控件上用来执行命令或类似命令的操作。对其它可应用的控件来说，使用这个事件来触发一个动作以响应控件中的变化。可用一个控件的 Value 属性从代码中测试该控件的状态。单击一个控件除了产生 Click 事件以外还可产生 MouseDown 和 MouseUp 事件。这三种事件发生的顺序根据控件的不同而不同。例如，对 ListBox 和 CommandButton 控件来说，这些事件按下列顺序发生：MouseDown、Click、MouseUp。但对 FileListBox,Label 或 PictureBox 控件来说，这些事件
39、按下列顺序发生：MouseDown、MouseUp 和 Click。因此，当给这些相关的事件附加事件过程时，要确保它们的操作不互相冲突。如果在应用程序中事件发生的顺序是重要的，则应对控件事件发生的顺序进行测试，以确定控件事件的顺序。注意：不要在同一个控件上使用Click 事件又使用DlbClick 事件，这样会使程序的执行发生混乱，因为 Click 事件是两个事件中首先被触发的事件，其结果是鼠标单击被 Click 事件截断，从而使 DblClick 事件不会发生。例如：观察执行下面程序窗体Form1的DlbClick 事件永远不会发生。Private Sub Form_Click() Hide
40、 Form2.ShowEnd SubPrivate Sub Form_DblClick() Print 欢迎学习、使用Visual Basic!End SubPrivate Sub Form_Activate() Print 预祝大家取得优异成绩！End SubPrivate Sub Form_Click() Hide Form1.ShowEnd Sub2DblClick事件对于窗体而言，当双击被禁用的控件或窗体的空白区域时，DblClick 事件发生。对于控件而言，DblClick 事件在以下情形下发生： 用鼠标左键双击控件。双击Style 属性设置为1(Simple) 的 ComboBox
41、 控件中的项目，或者在 FileListBox 、 ListBox 、DataCombo 或 DataList控件中的项目。 Click事件语句格式为：Private Sub Form_DblClick ( )Private Sub object_DblClick (index As Integer)部分描述object对象表达式，其值是“应用于”列表中的一个对象。index如果控件在控件数组内，则这个 index 值就用来标识该控件。说明：如果控件在一个控件数组内，则这个 Index 参数唯一地标识这个控件。可以使用 DblClick 事件过程执行一个隐式操作，如双击图标来打开一个窗口或文档
42、。也可用这类过程执行单一操作的多个步骤，例如用双击在列表框中选定一项并关闭对话框。要在 VB中产生这类快捷效果，可以使用带有缺省按钮的列表框的或叠层排列文件列表框的 DblClick 事件过程；所谓缺省按钮就是 Default 属性设置为 True 的 CommandButton 控件。作为列表框 DblClick 事件过程的一部分，只需简单调用缺省按钮的 Click 事件。4.3.4 Resize 事件Resize 事件:当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生。例如，一个窗体被最大化、最小化或被还原。此事件发生必须在ControlBox属性设置为Ture才有效。例如:通过
43、运行下面程序改变窗体上VB 缺省图标，具体程序如下：Private Sub Form_Resize() If Form1.WindowState = vbMinimized Then 窗体最小化 Form1.Icon = LoadPicture(C:Program FilesMicrosoft Visual StudioCOMMONGRAPHICSICONSINDUSTRYROCKET.ICO) Form1.Icon = LoadPicture(c:PLANE2.ICO) PLANE2.ICO 图标必须在c: 目录中，这个例子才能正常运行 End IfEnd Sub4.4窗体方法在单窗体程序（
44、又称为SDI 窗体）设计中，所有的操作都是在一个窗体完成，不需要在多个窗体间切换。而在多窗体程序中，则需要装入、打开、关闭、隐藏或显示指定窗体等操作。窗体对象包含下列方法：Cls、Hide、PrintForm、Show、Move、Refresh、Print、SetFocus。其中两个最重要的窗体方法是Show和Hide方法。4.4.1 Show方法和Hide方法1. 显示窗体Show方法Show方法用于在屏幕上显示一个窗体，调用 Show 方法与设置窗体 Visible 属性为 True 具有相同的效果。如果要显示的窗体事先未装入，该方法会自动将窗体先装入内存再显示。语句格式为： 窗体名称. show 模式
