VB教程——窗体.doc

第四章 窗体 1
4、1窗体得结构 1
4、2窗体属性 1
4、2、1窗体基本属性 1
1、 名称(Name) 1
2、 AutoRedraw(自动重画) 2
3、 BackColor(背景色)与 ForeColor(前景色) 3
4、 BorderStyle 属性 5
5、 Height(高度)、Width(宽度)、Top(顶部)与 Left(左边距)属性 5
6、 Caption 标题属性 6
7、字型Font属性组 7
8、 Enabled(允许)(逻辑值) 8
9、 Visible(可见)属性(逻辑值) 8
4、2、2窗体其她常用属性 2
4、3 窗体得主要事件 3
4、3、1 Activate (活动事件)与Deactivate(非活动事件) 3
4、3、2 Load(装入)与UnLoad(卸载)事件 3
4、3、3 Click(单击)与 DblClick(双击)事件 3
4、3、4 Resize 事件 5
4、4窗体控制 5
4、4、1装入或卸载窗体 5
4、4、2显示与隐藏窗体 5
4、4、3 Cls方法 7
4、4、4 Move方法 7
4、4、5 TextHeight与TextWidth 8
4、4、6位置属性CurrentX与CurrentY 8
4、4、7窗体之间得数据存取 9
4、5基本得窗体操作 10
4、5、1添加窗体: 10
4、5、2移除(清除)窗体 10
4、5、3 END语句 11
4、5、4多窗体得启动(显示)顺序 11
4、6多文档程序 14
4、6、1多文档程序得建立 15
4、6、2主窗体与子窗体得标题 16
4、6、3主窗体与子窗体得菜单 17
4、7窗体设计举例 17
练习创建一个窗体 18
第四章 窗体
[学习目标]
1. 学会在应用程序中通过编程来调用与卸载工程中得窗体。
2. 掌握有关窗体操作得语句与方法。
3. 理解区别Unload与Hide方法。
4. 了解启动窗体得概念。
[学习重点]
有关窗体操作得语句与方法。
在VB中建立一个程序主要包括两部分工作,即:设计窗体与编写代码。
前面已对窗体做了一个简单介绍,编写VB程序首先要根据需要创建一个良好得可视化界面,因此VB程序界面就是由窗体(Form)与一些必要得控件元素(Control)构成得。由于VB属于面向对象编程,也可以将窗体、控件都称为对象。
窗体就是窗体设计器窗口得简称,就是应用程序面向用户得最终窗口。窗体也就是一种对象,由其属性定义外观,用方法定义其行为,通过事件设定与用户实现交互。因此,设计窗体也就就是设计一个应用程序得操作界面。
当启动一个新得工程文件时,VB自动创建一个带图标得新窗体,命名为“Form1”。窗体内带有网点(称为网格)得窗口,这就就是用户得窗体,一般也就是程序运行时得主窗口。重新对该窗体大小得调整及属性值设置等操作,称为定制窗体。对窗体、控件得定制,在设计期间称为设计时,程序运行期间称为运行时。
4、1窗体得结构
当启动一个标准 EXE程序后,窗体设计器中会出现一个默认得窗体。可以发现它得外观大致与Windows中记事本窗口一样,其窗体右上角也有最小化、最大化、关闭三个按钮。如图41所示:
图41
系统控件菜单:Form1、ControlBox,点击“图标”它可以弹出控制菜单命令。
标题栏:Form1、Caption,显示得窗口标题,如本例中得“Form1”。
最小化按钮:Form1、MinButton 。
最大化按钮:Form1、MaxButton 。
4、2窗体属性
窗体属性决定了窗体得外观,如大小、颜色与标题等。对窗体属性设置还可以改变窗体得结构。
4、2、1窗体基本属性
1、 名称(Name)
“名称”就是任何对象(窗体、控件)都具有得标识名,在属性窗口定义对象(窗体、控件)名称,以便在程序中引用。对于任何一个可以在属性窗口设置其属性得对象,必须设置该属性得值。VB自动为每一个对象给定一个缺省值。
窗体名称“Name”,就是窗体得标识名,其属性得缺省值为 FormX(X为编号,从1,2,…依次顺延)。
对于给VB中所有对象(窗体、控件)“名称”命名,都应按如下规则:
1) 必须以字母或汉字开头;
2) 可包括字母、数字与下划线,不能有空格或标点符号;
3) 最大长度为40个字符;
4) 不能使用与公共对象相同得名字,例如 Clipboard、Screen 或 App。虽然窗体名称命名可以就是一个关键字、属性名字、或别得对象得名字,但这会在代码中产生冲突,因此不要使用。
5) “名称”只具有只读属性,它只能在程序设计阶段设置,不能在运行期间改变。名称不会显示在窗体上。
在简单得程序里,给创建得对象命名不就是很必要,可以直接使用VB为每一个对象给定得缺省值(默认名称)。但在有几十个对象(控件)得复杂窗体里,使用对象得缺省值,会让您用更多得时间去区分它们就是那类控件。为了能见名知意,提高程序可读性,VB推荐由三个小写字母得前缀与一个以第一个字母为大写得描述性单词组成得名字。推荐得前缀见下表:
对象
前缀
例子
窗体(Form)
frm
FrmFirst
确认框(CheckBox)
chk
Chk1
组合框(boBox)
cbo
Cbo1
命令钮(mandButton)
cmd
CmdExit
数据库控件(DataControl)
dat
Dat1
目录列表框(DirectoryList Box)
dir
DirTree
驱动器列表框(DriveList Box)
drv
DrvDisk
文件列表框( Box)
fil
FilDocuments
框架(Frame)
fra
FraButtons
水平滚动条(HorizontalScroll Bar)
hsb
HsbScroll
图形(Image)
img
Img1
标签(Label)
lbl
Lbl1
线(Line)
lin
Lin1
列表框(ListBox)
lst
Lst1
菜单(Menu)
mnu
Mnu1
选项钮(OptionButton)
opt
OptButton1
图片框(PictureBox)
pic
Pic1
几何图形(Shape)
shp
Shp1
文本框(TextBox)
txt
Txt1
垂直滚动条(VerticalScroll Bar)
vsb
VsbScroll
2、 AutoRedraw(自动重画)
该属性决定窗体被隐藏或被另一窗口覆盖之后,就是否重新还原该窗体被隐藏或覆盖以前得画面。即就是否重画如Circle、Line、Pset与Print等方法得输出。
该属性可以通过属性窗口设置如图42所示,其属性值为True时,可以重新还原该窗体以前得画面;若为False时,则不重新还原。默认属性为 False。常用于多窗体程序设计中。该属性得设置也可以在运行时通过代码进行设置,语句格式为:
窗体名称、AutoRedraw[=Boolean]
图42
例如:有两个窗体Form1与Form2,先加载窗体Form1会在窗体中央画许多同心圆,单击窗体Form1会显示窗体Form2,当单击窗体Form2时卸载窗体Form2,观察窗体Form1上画得许多同心圆有无改变。程序如下:
Private Sub Form_Click '窗体1程序
Form2、Show
End Sub
Private Sub Form_ load '窗体中央画许多同心圆
Form1、Show
Dim X, Y, R, L
ScaleMode = 3 '以像素为单位
X = Form1、ScaleWidth / 2 'X 位置
Y = Form1、ScaleHeight / 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 R
End Sub
Private Sub Form_Load '窗体中央画许多同心圆
Form1、Show
Dim R
For R = 0 To 10 '半径
Print "sssssssssssssssssssssssssssssssssss"
Next R
End Sub
'窗体2程序
Private Sub Form_click
Unload Form2 ' 卸载窗体
End Sub
注:ScaleWidth与ScaleHeight属性返回或设置“对象”(此例题“对象”就是窗体)内部得水平或垂直度量单位。ScaleMode属性,返回或设置使用图形方法或调整控件位置时一个值,该值指示对象坐标得度量单位。
3、 BackColor(背景色)与 ForeColor(前景色)
BackColor属性用于设置窗体得背景颜色,如图43所示; ForeColor属性用于设置在窗体里显示得图片或文本得颜色,即用来指定图形或文本得前景色,如图44所示。
图43 图44
它们用十六进制数指定颜色,在语句中颜色得表现形式为:&HBBGGRR&
说明:
它们用十六进制数指定颜色,在语句中颜色得表现形式为:&HBBGGRR&。
BB 指定蓝颜色得值,GG 指定绿颜色得值,RR 指定红颜色得值。每个数段都就是两位十六进制数,即从 00 到 FF。
在程序代码中可以用Windows 运行环境得红绿蓝 (RGB) 颜色方案,使用调色板或在代码中使用 RGB 或 QBColor 函数指定标准RGB颜色。RGB 函数就是用来指定颜色,多数情况下用十六进制数指定颜色,分别定义了红、绿、蓝三种颜色得值。红、绿、蓝三种成分都就是用 0 到 255 (&HFF) 之间得数表示。因此,可以用十六进制数按照下述语法来指定颜色,即&HBBGGRR&。
例如:将窗体Form1得背景色设置为红色,则可使用下面四种方法:
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 MSDOS 以及 Basic piler)得颜色值。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 mand1_Click
Static i As Integer
If i <= 15 Then
Text1、ForeColor = QBColor(i)
Text1、FontSize = 18
Text1、FontBold = True
Text1、Text = "color"
End If
If i > 16 Then End
i = i + 1
End Sub
除了利用RGB与Qcolor函数来设置控件得颜色,还可以使用VB自身提供得Color 常数来设置控件得颜色,这些常数可以在代码中得任何地方用下列常数代替实际值见下表:
常数
值
描述
vbBlack
0x0
黑色
vbRed
0xFF
红色
vbGreen
0xFF00
绿色
vbYellow
0xFFFF
黄色
vbBlue
0xFF0000
蓝色
vbMagenta
0xFF00FF
紫红色
vbCyan
0xFFFF00
青色
vbWhite
0xFFFFFF
白色
例如:将窗体Form1得背景色设置为红色,则可使用下面语句:
Form1、BackColor = vbRed
4、 BorderStyle 属性
BorderStyle 属性用于设置窗体得边框样式,通过改变 BorderStyle 属性设置,可以控制窗体如何调整大小。Form 对象得 BorderStyle 属性设置值如下表所示:
常数
设置值
描述
vbBSNone
0None
无边框;
vbFixedSingle
1FixedSingle
单线边框,不可以改变窗口大小;
vbSizable
2Sizable
(缺省值)双线边框,可以改变窗口大小;
vbFixedDouble
3FixedDouble
双线框架,不可以改变窗口大小;
vbFixedToolWindow
4FixedToolWindow
窗体外观与工具条相似。只有关闭按钮,不可以改变窗口大小;
vbSizableToolWindow
5SizableToolWindow
窗体外观与工具条相似。只有关闭按钮可以改变窗口大小。
常与BorderStyle 属性配合使用就是ControlBox属性。
5、 Height(高度)、Width(宽度)、Top(顶部)与 Left(左边距)属性
这四个属性决定窗体(或控件)得大小,在容器中得位置,如图45所示:
图45
1) Height(高度)、Width(宽度)
这两个属性用来指定窗体得高度与宽度(包括边框宽度与标题栏高度)。其度量单位就是twip。(1 twip=1/20点=1/1440英寸=1/567cm或大约等于1厘米得1/28)
例如:要让窗体得宽度变为 3000 Twip ,高度变为 6000 Twip ,具体程序如下:
Private Sub Form1_ load
　Form1、Width = 3000
Form1、Height = 6000
End Sub
2) Top(顶部)、Left(左边距)
通过这两个属性可以控制窗体得坐标(左上角)位置。其度量单位就是twip。
(1 twip=1/20点=1/1440英寸=1/567cm)。
注意:随着对象得不同,这个Top与Left得意义不同。当对象就是窗体时,Top指得就是窗体顶部与屏幕顶部得相对距离,Left 指得就是窗体左边界与屏幕左边界得间距;当对象就是其她控件时,它们分别表示控件顶部、左边与窗体顶部左边之间得距离。
例如:把 Form1 窗体移动到距屏幕顶部 200 Twip ,距屏幕左边距 300 Twip 得地方,程序如下:
Private Sub Form_ load
　Form1、Top = 200
　Form1、Left = 300
End 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 = (Screen、Height Form1、Height) / 2
End Sub
3) Screen、Height 属性就是指屏幕得高度,即整个 Windows 桌面高度。
4) Screen、Width属性就是指屏幕得宽度,即整个 Windows 桌面宽度。
6、 Caption 标题属性
该属性用来设置对象上或标题栏上得显示内容,在外观上起到提示与标志得作用。当创建一个新窗体时,窗体得Caption 标题属性值,为缺省得Name属性设置值,即Form1。标题可以通过属性窗口重新设置。例如:让窗体标题变为“test”,如图46所示:
图46
Caption属性可以在运行时中通过代码改变。语句格式为:
[窗体、]Caption [= 字符串]
例如:让窗体得标题改变为"test",如图46所示。
Private Sub Form_Load
Form1、Caption = "test"
End Sub
注意:Name属性与Caption属性得区别,两者虽然缺省值相同,都就是Form1,但实际意义却不一样。Caption指得窗体标题栏上得文字,Name指这个窗体得对象名;也可以理解Name属性用于在代码中标识窗体、控件对象得名称(所有对象都具有得属性),供程序引用。Name属性在程序运行时不能改变;Caption属性就是标题栏上得文字,在程序运行时可以通过程序代码改变。
另外,对于窗体与所有有标题得控件,标题最长为255 个字符;标签(Label)控件得标题长度没有字符数限制。
7、字型Font属性组
字体属性用来设置输出字符得各种特性,包括字体、大小等,这些属性适用大部分控件。字体属性可以通过属性窗口设置,也可以在程序运行中通过代码改变。字体属性得设置操作及字型等概念与使用Word得设置字体格式基本一样。
1) 字体类型
FontName属性就是字符型,决定对象上正文得字体(缺省为宋体)。语句格式为:
[窗体、]FontName[=字体类型]
例如:要在屏幕上显示得字体为“隶书”,具体程序如下:
图47
2) 字体大小
FontSize属性就是整型,决定对象上正文得字体大小,语句格式为:
[窗体、] FontSize[=字号]
例如:Text1、 FontSize t=20 ‘设置文本框中得字体大小
3) 粗体字
FontBold属性就是逻辑型,决定对象上正文就是否就是粗体,语句格式为:
[窗体、] FontBold[=Boolean] 'Boolean为逻辑值 True(真) / False(假)
Private Sub Form_click
FontSize = 16
Form1、FontBold = True '让打印字体加粗
Print "ffffffffff"
End Sub
4) 斜体字
FontItalic属性就是逻辑型,决定对象上正文就是否就是斜体,语句格式为:
[窗体、] FontItalic [=Boolean]
5) 加删除线字
FontStrikeThru属性就是逻辑型,决定对象上正文就是否加一删除线。语句格式为:
[窗体、] FontStrikeThru [=Boolean]
6) 加下划线字
FontUnderLine属性就是逻辑型,决定对象上正文就是否带下划线。语句格式为:
[窗体、]FontUnderLine [=Boolean]
注意:如果省略对象名称,则指得就是当前窗体;设置一种属性后,该属性立即生效,并且不会自动撤消,可在利用上述方法重新设置,才能改变该属性值。
另外,某些对象中得属性就是逻辑型得,改变其逻辑型得值,也可以利用下面得语句格式:
[对象属性]= Not [对象属性]
例如:要求每单击一次窗体就会让窗体上得字体由细变成加粗、加斜显示。如图48所示:
Private Sub Form_click
FontSize = 16
Print "字体"
FontBold = Not FontBold '逻辑开关语句
FontItalic = Not FontItalic
End Sub

或利用条件语句进行判断,见下面程序:
Private Sub Form_click
FontSize = 16
Print "字体"
If FontBold = False And FontItalic = False Then
FontBold = True
FontItalic = True
Else
FontBold = False
FontItalic = False
End If
End Sub
8、 Enabled(允许)(逻辑值)
每个对象都有一个Enabled属性。该属性用来激活对象或禁止使用对象,即决定对象就是否可操作。当一个对象得Enabled属性设置为True(真)时 ,允许用户进行操作,并对操作出响应(缺省值为True);当一个对象得Enabled属性设置为False(假)时,控件呈暗淡色,禁止用户进行操作。
窗体Enabled属性决定运行时窗体就是否响应用户事件。在程序运行时可以瞧到改变 Enabled属性得效果。若Enabled已设为False,则点击按钮窗体不会有反应。
该属性可以通过属性窗口设置,也可以在运行时通过代码进行设置,语句格式为:
[窗体、]Enabled[=Boolean]
9、 Visible(可见)属性(逻辑值)
当一个对象得Visible 属性设置为 False 时,程序运行时不能瞧见;只有当 Visible 属性值变为 True 时,才能被瞧见。
窗体Visible属性决定程序运行时窗体就是否可见。当Visible为False时,窗体就是不可见得,若值改为True,运行时窗体则可见。
该属性可以通过属性窗口设置,也可以在运行时通过代码进行设置,语句格式为:
[窗体、]Visible[=Boolean]
例如:单击窗体,则隐藏窗体,单击窗体显示命令按钮。具体程序如下:
Private Sub Form_Click
Form1、Visible = False ' 隐藏窗体
MsgBox "单击按钮,使窗体重现屏幕" ' 显示信息
Form1、Visible = True ' 隐藏窗体
End Sub
例如:要求单击窗体1(隐藏窗体1),则显示窗体2,反之亦然。具体程序如下:
' Form1 得代码如下:
Private Sub Form_click
Form1、Visible = False
Form2、Show
End Sub
' Form2 得代码如下:
Private Sub Form_click
Form2、Visible = False
Form1、Show
End Sub
例如:单击窗体上命令按钮,则命令按钮隐藏,单击窗体显示命令按钮。具体程序如下:
Private Sub mand1_Click
mand1、Visible = False
End Sub
Private Sub Form_Click
mand1、Visible = True
End Sub
4、2、2窗体其她常用属性
1.MaxButton最大化按钮与MinButton最小化按钮
设置值为 Ture,有最大或最小化按钮,设置值为False则无。
2.ControlBox控制菜单框属性
若设置值为Ture,有控件菜单栏(图标);如设置为False,则无控件菜单(图标),同时窗体也无最大化按钮与最小化按钮,即使MaxButton属性与MinButton属性设置为Ture。另外,要使ControlBox属性有效,则BorderStyle 属性值必须为1、2或3。
3.Icon 控制图标属性
使用该属性返回或设置窗体左上角显示或最小化时显示得图标。该属性设置可以在设计时通过属性窗口加载指定图标,所加载得文件就是图标 (、ico) 文件。如果不指定图标,窗体会使用 VB 缺省图标。该属性也可以在运行时通过代码进行设置,语句格式为:
[窗体、]Icon
例如:通过运行下面程序改变窗体上VB 缺省图标。
Private Sub Form_Click
'"PLANE2、ICO" 图标必须在c:\ 目录中,这个例子才能正常运行
Form1、Icon = LoadPicture("c:\PLANE2、ICO")
End Sub
4.KeyPreview 属性
返回或设置一个值,以决定就是否在控件得键盘事件之前激活窗体得键盘事件。设置值为False (缺省值),活动控件接收键盘事件,而窗体不接收;设置值为True ,窗体先接收键盘事件,然后就是活动控件接收事件。键盘事件为:KeyDown、KeyUp 与 KeyPress。当用程序代码设置时,语句格式为:
[窗体、]KeyPreview [= Boolean]
5.Picture图片属性
设置窗体中要显示得图片。加载图片操作同Icon 控制图标属性。
6. WindowState属性
设置一个窗体窗口运行时,窗体最小化、最大化与原形这三种可见状态。该属性设置可以在设计时由属性窗口设置,WindowState属性设置如下表:
常数
设置值
含义
vbNormal
0Normal
(缺省值)正常窗口状态,有窗口边界;
VbMinimized
1Minimized
最小化状态,以图标方式运行;
VbMaximized
2Maximized
最大化状态,无边框,充满整个屏幕。
WindowState属性设置也可以在运行时通过代码进行设置,语句格式为:
[窗体、]WindowState = [常数或设置值]
4、3 窗体得主要事件
4、3、1 Activate (活动事件)与Deactivate(非活动事件)
1.Activate事件:当对象窗体成为活动窗口时发生。
2.Deactivate事件:当对象窗体成为非活动窗口时发生。
当一个窗体启动(被加载)时,就发生Activate 事件。当对多个窗体操作时,即从一个窗体切换到另一个窗体,每次切换一个窗体时,就发生Activate 事件,而前一个窗体发生Deactivate事件。
例如:通过运行下面程序体会Activate 事件与Deactivate事件。
' Form1程序
Private Sub Form_Deactivate
Print "欢迎学习、使用Visual Basic!"
End Sub
Private Sub Form_click
Form2、Show
End Sub
' Form2 程序
Private Sub Form_Activate
Print "欢迎学习、使用Visual Basic!"
End Sub
4、3、2 Load(装入)与UnLoad(卸载)事件
1.Load(装入)事件
Load事件常用在启动程序时,对控件属性与程序中所用变量进行初始化。Load事件得语句格式为:
Load <窗体名称>
注意:用Load语句只就是把窗体装载到内存,该窗体不会自动成为可视窗体。此时若在对装载到内存中窗体上已存在得控件设置焦点,则会提示有错误,因此必须使用窗体得Show方法配合,让窗体为可视窗体。
例如:执行下面程序观察窗体上得显示结果。
Private Sub Form_Load '窗体装载
Dim x As Integer, y As Integer
x = 10: y = 15
'Show
'mand1、SetFocus '对mand1设置焦点
'提示:实时错误 5
'无效得过程调用或参数
Print "x+y="; x + y
End Sub
2.UnLoad(卸载)事件
用Unload语句,其功能与Load语句相反,清除内存中指定得窗体。Unload事件得语句格式为:
UnLoad <窗体名称>
注意:窗体卸载后,如果要重新装入窗体,则新装入窗体上得所有控件都被重新初始化。
4、3、3 Click(单击)与 DblClick(双击)事件
这两个事件在单击或双击窗体(控件)时发生。
1． Click事件
Click事件就是在一个对象上按下然后释放一个鼠标按钮时发生。它也会发生在一个控件得值改变时。
对一个 Form 对象来说,该事件就是在单击一个空白区或一个无效控件时发生。
注意:用鼠标得左键或右键单击一个控件。对 CheckBox, mandButton, Listbox 或 OptionButton 控件来说,Click 事件仅当单击鼠标左键时发生。
Click事件语句格式为:
Private Sub Form_Click( )
Private Sub object_Click([index As Integer])
Click 事件得语句包括下列部分:
部分
描述
object
一个对象表达式,其值就是“应用于”列表中得一个对象。
index
一个整数,用来唯一地标识一个在控件数组中得控件。
说明:
通常,将一个 Click 事件过程附加到一个 mandButton 控件,Menu 对象或 PictureBox 控件上用来执行命令或类似命令得操作。对其它可应用得控件来说,使用这个事件来触发一个动作以响应控件中得变化。
可用一个控件得 Value 属性从代码中测试该控件得状态。单击一个控件除了产生 Click 事件以外还可产生 MouseDown 与 MouseUp 事件。这三种事件发生得顺序根据控件得不同而不同。
例如,对 ListBox 与 mandButton 控件来说,这些事件按下列顺序发生:MouseDown、Click、MouseUp。但对 或 PictureBox 控件来说,这些事件按下列顺序发生:MouseDown、MouseUp 与 Click。
因此,当给这些相关得事件附加事件过程时,要确保它们得操作不互相冲突。如果在应用程序中事件发生得顺序就是重要得,则应对控件事件发生得顺序进行测试,以确定控件事件得顺序。
注意:不要在同一个控件上使用Click 事件又使用DlbClick 事件,这样会使程序得执行发生混乱,因为 Click 事件就是两个事件中首先被触发得事件,其结果就是鼠标单击被 Click 事件截断,从而使 DblClick 事件不会发生。
例如:观察执行下面程序窗体Form1得DlbClick 事件永远不会发生。
Private Sub Form_Click
Hide
Form2、Show
End Sub
Private Sub Form_DblClick
Print "欢迎学习、使用Visual Basic!"
End Sub
Private Sub Form_Activate
Print "预祝大家取得优异成绩！"
End Sub
Private Sub Form_Click
Hide
Form1、Show
End Sub
2.DblClick事件
对于窗体而言,当双击被禁用得控件或窗体得空白区域时,DblClick 事件发生。
对于控件而言,DblClick 事件在以下情形下发生:
用鼠标左键双击控件。
双击Style 属性设置为1(Simple) 得 boBox 控件中得项目,或者在 、 ListBox 、Databo 或 DataList控件中得项目。
Click事件语句格式为:
Private Sub Form_DblClick ( )
Private Sub object_DblClick (index As Integer)
部分
描述
object
对象表达式,其值就是“应用于”列表中得一个对象。
index
如果控件在控件数组内,则这个 index 值就用来标识该控件。
说明:
如果控件在一个控件数组内,则这个 Index 参数唯一地标识这个控件。可以使用 DblClick 事件过程执行一个隐式操作,如双击图标来打开一个窗口或文档。也可用这类过程执行单一操作得多个步骤,例如用双击在列表框中选定一项并关闭对话框。
要在 VB中产生这类快捷效果,可以使用带有缺省按钮得列表框得或叠层排列文件列表框得 DblClick 事件过程;所谓缺省按钮就就是 Default 属性设置为 True 得 mandButton 控件。作为列表框 DblClick 事件过程得一部分,只需简单调用缺省按钮得 Click 事件。
4、3、4 Resize 事件
Resize 事件:当一个对象第一次显示或当一个对象得窗口状态改变时该事件发生。例如,一个窗体被最大化、最小化或被还原。此事件发生必须在ControlBox属性设置为Ture才有效。
例如:通过运行下面程序改变窗体上VB 缺省图标,具体程序如下:
Private Sub Form_Resize
If Form1、WindowState = vbMinimized Then '窗体最小化
Form1、Icon = LoadPicture("C:\Program Files\Microsoft Visual Studio\MON\GRAPHICS\ICONS\INDUSTRY\ROCKET、ICO")
'Form1、Icon = LoadPicture("c:\PLANE2、ICO")
'"PLANE2、ICO" 图标必须在c:\ 目录中,这个例子才能正常运行
End If
End Sub
4、4窗体方法
在单窗体程序(又称为SDI 窗体)设计中,所有得操作都就是在一个窗体完成,不需要在多个窗体间切换。而在多窗体程序中,则需要装入、打开、关闭、隐藏或显示指定窗体等操作。
窗体对象包含下列方法:Cls、Hide、PrintForm、Show、Move、Refresh、Print、SetFocus。其中两个最重要得窗体方法就是Show与Hide方法。
4、4、1 Show方法与Hide方法
1. 显示窗体Show方法
Show方法用于在屏幕上显示一个窗体,调用 Show 方法与设置窗体 Visible 属性为 True 具有相同得效果。如果要显示得窗体事先未装入,该方法会自动将窗体先装入内存再显示。语句格式为:
[窗体名称、] show [模式]
如果省略[窗体名称、]参数,则表示显示当前窗体;
“模式”用来确定窗体得状态,其值有0与1:
1) “0”表示“非模式型”(系统默认值),在此模式下,不但可以对本窗体进行操作,而且允许同时对其它窗体进行操作。
2) “1”表示“模式型”,在此模式下,只有关闭本窗口后,才允许对其它窗体进