VB常用控件的事件详解

2024年2月5日发(作者：)

.

VB常用控件的事件详解

第一章、标准控件的事件

1.01 窗体(Form)的事件

1.03 标签控件(Label)的事件

1.05 命令按钮控件(CommandButton)的事件

1.07 单选钮控件(Option)的事件

1.09 列表框控件(List)的事件

1.11 定时器控件(Timer)的事件

1.13 目录列表框控件(Dir)的事件

1.15 图片框控件(Picture)的事件

1.17 数据控件(Data)的事件

1.19 菜单控件的事件

1.02 文本框控件(Text)的事件

1.04 框架控件(Frame)的事件

1.06 复选钮控件(Check)的事件

1.08 组合框控件(Combo)的事件

1.10 滚动条控件(HScrollBar和VScrollBar)的事件

1.12 文件列表框控件(File)的事件

1.14 驱动器列表框控件(Drive)的事件

1.16 图象控件(Image)的事件

1.18 OLE容器控件(OLE)的事件

第二章、ActiveX控件的属性

2.01 ActiveMoviel控件的事件

2.03 Animation控件的事件

2.05 数据组合框(DataCombo)控件的事件

2.07 数据列表(DataList)控件的事件

2.09 平面滚动条(FlatScrollBar)控件的事件

2.11 Inet控件的事件

2.13 MaskEdBox控件的事件

2.15 月视图(MonthView)控件的事件

2.17 MSComm控件的事件

2.19 层次型电子表格(MSHFlexGrid)控件的事件

2.21 进度栏(ProgressBar)控件的事件

2.23 滑动块(Slider)控件的事件

2.25 状态栏(StatuaBar)控件的事件

2.27 选项卡(TabStrip)控件的事件

2.02 Adodc控件的事件

2.04 CoolBar控件的事件

2.06 数据型电子表格(DataGrid)控件的事件

2.08 DTPicker控件的事件

2.10 图像组合框(ImageCombo)控件的事件

2.12 列表视图(ListView)控件的事件

2.14 多媒体(MMControl)控件的事件

2.16 图表(MSChard)控件的事件

2.18 电子表格(MSFlexGrid)控件的事件

2.20 MSRDC控件的事件

2.22 RichTextBox控件的事件

2.24 选项卡(SSTab)控件的事件

2.26 SysInfo控件的事件

2.28 工具栏(ToolBar)控件

.

.

2.29 树状视图(TreeView)控件

2.31 Winsock控件

2.30 UpDown控件

第一章、标准控件的事件

1.01、

事件名称

窗体(Form)的事件

事件处理过程原形及说明

当窗体变为活动窗体时发生此事件，此事件比Load事件发生得晚，事件处理过程原形

Private Sub Form_Activate()

Activate

(激活)

End Sub

此事件常用于激活窗体后对窗体进行初始化，比Load事件功能强。

当用户单击窗体时发生此事件，事件处理过程原形

Click

(单击)

Private Sub Form_Click()

End Sub

当用户双击窗体时发生此事件，事件处理过程原形

DblClick

(双击)

Private Sub Form_DblClick()

End Sub

Private Sub Form_Deactivate()

Deactivate

End Sub

当完成一个完整的拖放动作或使用Drag方法时，发生此事件，事件处理过程原形

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

DragDrop End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

DragOver 当用户进行拖放操作时发生此事件，事件处理过程原形

.

.

Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当获得焦点时发生此事件，事件处理过程原形

GotFocus

(获得焦点)

Private Sub Form_GotFocus()

End Sub

当应用程序创建Form、MDIForm、User控件、PropertyPage或类的实例时发生。事件处理过程原形

Private Sub Form_Initialize()

Initialize

End Sub

当窗体上没有能获得焦点的控件(如文本框控件)时，用户按下键盘上某个键时发生此事件，事件处理过程原形

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义：

KeyDown

(按下键)

KeyCode 按键的编码

Shift 转换键，意义如下：

0 没有转换键按下

1 Shift键按下

2 Ctrl键按下

3 Alt键按下

当多个转换键同时按下时，应把几个键对应的数值相加

当窗体上没有能获得焦点的控件(如文本框控件)时，用户敲击键盘上某个键时发生此事件，事件处理过程原形

Private Sub Form_KeyPress(KeyAscii As Integer)

KeyPress

End Sub

(敲击键)

形参的意义：

KeyAscii 按键Ascii码

若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。

.

.

当窗体上没有能获得焦点的控件(如文本框控件)时，用户按下键盘上某个键后释放时发生此事件，事件处理过程原形

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

KeyUp

(释放键)

End Sub

形参的意义请参阅KeyDown事件

此事件在一个DDE对话结束时发生此事件，事件处理过程原形

Private Sub Form_LinkClose()

LinkClose

End Sub

当一个DDE对话过程中出现错误时，发生此事件。事件处理过程原形

Private Sub Form_LinkError(LinkErr As Integer)

End Sub

形参的意义：

LinkErr 是一个与DDE有关错误的错误号，返回值如下所述

返回值 描述

LinkError

1

种错误可能连续出现几次

6

7

当发送端窗体上的LinkMode属性设置为0（无）之后，接收端应用程序试图继续DDE对话

所有源链接都在使用中（每个源最多有128个链接）

对目标控件来说：一个自动链接或LinkRequest方法更新控件中的数据失败

8

对源窗体来说：目标试图将数据放置到一个控件中去，并且失败

11

另一个应用程序按错误的格式已经请求过数据。在VisualBasic试图找出另一种应用程序识别的格式时，这无足够的内存给DDE使用

当一个DDE对话中的命令字符串由一个接收端应用程序发出时发生此事件。事件处理过程原形

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)

End Sub

LinkExecute

形参的意义：

cmdstr 由目标应用程序所发出的命令字符串表达式

cancel 是一个整数，告诉目标该命令字符串是否被接受。将cancel设置为0是通知目标该命令字符串被接受。将cancel设置为任何一个非零的值通知目标该命令字符串被拒绝（缺省值被设置为-1，指示的是cancel）

LinkOpen 当一个DDE对话正在启动时发生此事件。事件处理过程原形

.

.

Private Sub Form_LinkOpen(Cancel As Integer)

End Sub

形参的意义：

Cancel 是一个整数，它用来确定该DDE对话是否建立。让cancel设置为0（缺省值）可建立该对话。将cancel设置为任何非零值则拒绝对话

窗体装入时发生此事件，事件处理过程原形

Private Sub Form_Load()

Load (装载)

End Sub

此事件常用于窗体装入后对窗体进行初始化，但有局限性，有些程序须在Activate事件中才能完成

当丢失焦点时发生此事件，事件处理过程原形

LostFocus

(丢失焦点)

Private Sub Form_LostFocus()

End Sub

当鼠标在窗体上，用户按下鼠标键时发生此事件，事件处理过程原形

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

MouseDown

Button 标识按下哪个鼠标键：

(按下鼠标)

1、 按下鼠标左键

2、 按下鼠标右键

3、 按下鼠标左右两键

Shift键的意义请参阅KeyDown事件

X、Y 按下鼠标键时的坐标

当鼠标在窗体上移动时发生此事件，事件处理过程原形

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseMove

End Sub

(鼠标移动)

形参的意义：

X、Y 鼠标移动过程中的瞬时坐标

其它各参数的意义请参阅MouseDown事件

.

.

当鼠标在窗体上，用户释放鼠标键时发生此事件，事件处理过程原形

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseUp

End Sub

(释放鼠标)

形参的意义：

X、Y 鼠标移动释放时的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当源部件被放到目标部件时发生此事件，并通知源部件拖放操作被执行或取消。事件处理过程原形

Private Sub Form_OLECompleteDrag(Effect As Long)

End Sub

形参的意义：

OLECompleteDEffect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于rag

下表中

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据，或者放操作被取消

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在OLEDropMode被设置为1(Manual)时，当源部件被放到目标部件时，发生此事件。事件处理过程原形

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

Data DataObject对象，包含源提供的格式，另外也可能包含这些格式的数据。若DataObject不包含数据，则当控件OLEDragDrop

调用GetData方法时提供数据。SetData和Clear方法不能用在这里

Effect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表中

常数

vbDropEffectNo0

ne

vbDropEffectCo1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

放目标不接受数据，或者放操作被取消

值 描述

.

.

py

vbDropEffectMo2

ve

-21474836vbDropEffectSc48

roll

在目标部件中，滚动正在或将要发生。此值与其它值共同使用。注意仅当在部件中执行放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

(&H800000自己的滚动时才能应用

00)

Button 整数，当按下鼠标键时，与鼠标状态相对应。左键为位0，右键为位1，中键为位2。这些位相应的值分别为1，2和4，它代表了鼠标键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下

Shift 整数，当按下SHIFT、CTRL和ALT键时，与这些键状态相对应。SHIFT键为位0，CTRL键为位1，ALT键为位2。这些位相应的值分别为1，2和4，shift参数代表了这些键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下。例如，同时按下CTRL和ALT键，shift值为6

X、Y 确定鼠标指针当前位置的数值。

当一个部件在另一个部件上拖动时发生此事件。事件处理过程原形

Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

End Sub

形参的意义：

OLEDragOver

State 整数，相应于控件的转换状态，此控件将被拖放到与其相关的目标窗体或控件中。可能的取值列于下表中

常数

vbEnter

vbLeave

vbOver

值 描述

0 在目标范围内源部件正被拖动

1 在目标范围之外源部件正被拖动

2 在目标内源部件已经从一个位置移到另一个位置

其它形参的意义同OLEDragDrop

在每个OLEDragOver事件后发生此事件。事件处理过程原形

Private Sub Form_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)

OLEGiveFeedb

ack End Sub

形参的意义：

DefaultCursors 布尔值，决定VisualBasic使用部件缺省鼠标光标，还是自定义鼠标光标

.

.

True（缺省）=使用缺省鼠标光标

False=不用缺省光标。必须用Screen对象的MousePointer属性设置鼠标光标

Effect的意义同OLEDragDrop

当目标部件在源的DataObject对象上执行GetData方法，但是还没有加载规定格式的数据时，在源部件上发生此事件。事件处理过程原形

Private Sub Form_OLESetData(Data As DataObject, DataFormat As Integer)

OLESetData

End Sub

形参的意义：

Data 放置所需数据的DataObject对象。部件调用SetData方法加载所需的格式

DataFormat 整数，确定目标部件所需要的数据格式。源部件用此值来确定向DataObject对象加载的内容

当部件的OLEDrag方法被执行时，或者在OLEDragMode属性被设为Automatic，部件初始化OLE拖放操作时发生此事件。事件处理过程原形

Private Sub Form_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

End Sub

形参的意义：

OLEStartDrag

Data DataObject对象，含源所提供的格式以及（可选）适合那些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时会提供。程序员应提供此事件中该参数的值。SetData和Clear方法不能用于此处

AllowedEffects 长整型数，包含源部件支持的效果。其可能的取值列于下表中。程序员应提供此事件中该参数的值

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于要从拖源移到放源的数据中。移动后，拖源要删除数据

在一个窗体被移动或放大之后，或在一个覆盖该窗体的窗体被移开之后，该窗体部分或全部暴露时，发生此事件。事件处理过程原形

Paint Private Sub Form_Paint()

End Sub

.

.

在一个窗体或应用程序关闭之前发生此事件。如果一个MDIForm对象关闭时，QueryUnload事件先在MDI窗体发生，然后在所有MDI子窗体中发生。当一个子窗体或一个Form对象关闭时，在那个窗体中的QueryUnload事件先于该窗体的Unload事件发生。事件处理过程原形

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

End Sub

形参的意义：

Cancel 一个整数。将此参数设定为除0以外的任何值，可在所有已装载的窗体中停止QueryUnload事件，并阻止该窗体和应用程序的关闭

UnloadMode 一个值或一个常数，如返回值中所描述的，它指示引起QueryUnload事件的原因

QueryUnload

常数 值 描述

vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令

vbFormCode

vbAppWindows

1 Unload语句被代码调用

2 当前MicrosoftWindows操作环境会话结束

vbAppTaskManager 3 MicrosoftWindows任务管理器正在关闭应用程序正在关闭

vbFormMDIForm

vbFormOwner

4 MDI子窗体，因为MDI窗体正在关闭

5 因为窗体的所有者正在关闭，所以窗体也在关闭

当窗体尺寸改变时发生此事件，事件处理过程原形

Resize

(尺寸改变)

Private Sub Form_Resize()

End Sub

通过设置所涉及对象的所有变量为Nothing，Form、MDIForm、User控件、PropertyPageWebclass、DHTMLPageDesigner或类的实例的所有引用都被从内存删除，或当对象的最后一个引用失去范围时发生此事件。事件处理过程原形

Terminate Private Sub Form_Terminate()

End Sub

.

.

当关闭窗体时发生此事件，事件处理过程原形

Unload

(卸载窗体)

Private Sub Form_Unload(Cancel As Integer)

End Sub

1.02、文本框控件(Text)的事件

事件名称 事件处理过程原形及说明

当在文本框输入新信息，编辑文本或者在程序中将Text属性设置为新值时触发此事件，对于该事件，用户每输入一个字符就引发一次，通常用于文本内容改变后提示用户存盘。应该注意Change事件并不对键盘的非字符件(如光标健)产Change 生响应，若要捕捉非字符键，应使用KeyDown事件或KeyUp事件。事件处理过程原形

(文本改变) Private Sub Text_Change()

End Sub

当用户单击文本框控件时发生此事件，事件处理过程原形

Click

(单击)

Private Sub Text_Click()

End Sub

当用户双击文本框控件时发生此事件，事件处理过程原形

DblClick

(双击)

Private Sub Text_DblClick()

End Sub

当完成一个完整的拖放动作或使用Drag方法时，发生此事件，事件处理过程原形

Private Sub Text_DragDrop(Source As Control, X As Single, Y As Single)

DragDrop End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当用户进行拖放操作时发生此事件，事件处理过程原形

Private Sub Text_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

DragOver

End Sub

.

.

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当获得焦点时发生此事件，事件处理过程原形

GotFocus Private Sub Text_GotFocus()

(获得焦点)

End Sub

当焦点在本控件上，用户按下键盘上某个键时发生此事件，此事件不仅响应字符键，而且也响应非字符件。通过形参KeyCode和形参Shift能够判断用户按下的是哪个键。事件处理过程原形

Private Sub Text_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义：

KeyDown

KeyCode 按键的编码

(按下键)

Shift 转换键，意义如下：

0 没有转换键按下

1 Shift键按下

2 Ctrl键按下

3 Alt键按下

当多个转换键同时按下时，应把几个键对应的数值相加

当焦点在本控件上，用户敲击键盘上某个键时发生此事件，通过形参KeyCode和形参Shift KeyAscii能够判断用户按下的是哪个键。KeyPress事件并不对键盘的非字符件(如光标健)产生响应，若要捕捉非字符键，应使用KeyDown事件或KeyUp事件。事件处理过程原形

Private Sub Text_KeyPress(KeyAscii As Integer)

KeyPress

(敲击键)

End Sub

形参的意义：

KeyAscii 按键Ascii码

若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。

当焦点在本控件上，用户按下键盘上某个键后释放时发生此事件，KeyUp事件的其他特性与KeyDown事件相同。事件处KeyUp

(释放键)

理过程原形

Private Sub Text_KeyUp(KeyCode As Integer, Shift As Integer)

.

.

End Sub

形参的意义请参阅KeyDown事件

此事件在一个DDE对话结束时发生此事件，事件处理过程原形

Private Sub Text_LinkClose()

LinkClose

End Sub

当一个DDE对话过程中出现错误时，发生此事件。事件处理过程原形

Private Sub Text_LinkError(LinkErr As Integer)

End Sub

形参的意义：

LinkErr 是一个与DDE有关错误的错误号，返回值如下所述

返回值

LinkError

1

这种错误可能连续出现几次

6

7

当发送端窗体上的LinkMode属性设置为0（无）之后，接收端应用程序试图继续DDE对话

所有源链接都在使用中（每个源最多有128个链接）

对目标控件来说：一个自动链接或LinkRequest方法更新控件中的数据失败

8

对源窗体来说：目标试图将数据放置到一个控件中去，并且失败

11

描述

另一个应用程序按错误的格式已经请求过数据。在VisualBasic试图找出另一种应用程序识别的格式时，无足够的内存给DDE使用

如果接收端控件的LinkMode属性被设置为3（通知），当发送端已经改变了由DDE链接定义的数据时，发生此事件。事件处理过程原形

LinkNotify Private Sub Text_LinkNotify()

End Sub

当一个DDE对话正在启动时发生此事件。事件处理过程原形

Private Sub Text_LinkOpen(Cancel As Integer)

LinkOpen End Sub

形参的意义：

Cancel 是一个整数，它用来确定该DDE对话是否建立。让cancel设置为0（缺省值）可建立该对话。将cancel设置为任何非零值则拒绝对话

.

.

当丢失焦点(当用“Tab” 键或用快捷键或用鼠标选取窗体上其他对象而离开该文本框)时发生此事件，通常可用这个事件检查文本框的内容。事件处理过程原形

LostFocus

Private Sub Text_LostFocus()

(丢失焦点)

End Sub

当鼠标在本控件上，用户按下鼠标键时发生此事件，事件处理过程原形

Private Sub Text_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

MouseDown

Button 标识按下哪个鼠标键：

(按下鼠标)

1、 按下鼠标左键

2、 按下鼠标右键

3、 按下鼠标左右两键

Shift键的意义请参阅KeyDown事件

X、Y 按下鼠标键时的坐标

当鼠标在本控件上移动时发生此事件，事件处理过程原形

Private Sub Text_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseMove

End Sub

(鼠标移动)

形参的意义：

X、Y 鼠标移动过程中的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当鼠标在本控件上，用户释放鼠标键时发生此事件，事件处理过程原形

Private Sub Text_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseUp

End Sub

(释放鼠标)

形参的意义：

X、Y 鼠标移动释放时的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当源部件被放到目标部件时发生此事件，并通知源部件拖放操作被执行或取消。事件处理过程原形

OLECompleteDPrivate Sub Text_OLECompleteDrag(Effect As Long)

rag

.

.

End Sub

形参的意义：

Effect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表中

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据，或者放操作被取消

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在OLEDropMode被设置为1(Manual)时，当源部件被放到目标部件时，发生此事件。事件处理过程原形

Private Sub Text_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer,

X As Single, Y As Single)

End Sub

形参的意义：

Data DataObject对象，包含源提供的格式，另外也可能包含这些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时提供数据。SetData和Clear方法不能用在这里

Effect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表中

常数 值 描述

放目标不接受数据，或者放操作被取消

放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

vbDropEffectNone 0

OLEDragDrop

vbDropEffectCopy 1

vbDropEffectMove 2

-21474836vbDropEffectScro48

ll

在目标部件中，滚动正在或将要发生。此值与其它值共同使用。注意仅当在部件中执(&H800000行自己的滚动时才能应用

00)

Button 整数，当按下鼠标键时，与鼠标状态相对应。左键为位0，右键为位1，中键为位2。这些位相应的值分别为1，2和4，它代表了鼠标键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下

Shift 整数，当按下SHIFT、CTRL和ALT键时，与这些键状态相对应。SHIFT键为位0，CTRL键为位1，ALT键为位2。这些位相应的值分别为1，2和4，shift参数代表了这些键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下。例如，同时按下CTRL和ALT键，shift值为6

.

.

X、Y 确定鼠标指针当前位置的数值。

当一个部件在另一个部件上拖动时发生此事件。事件处理过程原形

Private Sub Text_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer,

X As Single, Y As Single, State As Integer)

End Sub

形参的意义：

OLEDragOver

State 整数，相应于控件的转换状态，此控件将被拖放到与其相关的目标窗体或控件中。可能的取值列于下表中

常数

vbEnter

vbLeave

vbOver

值 描述

0 在目标范围内源部件正被拖动

1 在目标范围之外源部件正被拖动

2 在目标内源部件已经从一个位置移到另一个位置

其它形参的意义同OLEDragDrop

在每个OLEDragOver事件后发生此事件。事件处理过程原形

Private Sub Text_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)

End Sub

OLEGiveFeedb形参的意义：

ack

DefaultCursors 布尔值，决定VisualBasic使用部件缺省鼠标光标，还是自定义鼠标光标

True（缺省）=使用缺省鼠标光标

False=不用缺省光标。必须用Screen对象的MousePointer属性设置鼠标光标

Effect的意义同OLEDragDrop

当目标部件在源的DataObject对象上执行GetData方法，但是还没有加载规定格式的数据时，在源部件上发生此事件。事件处理过程原形

Private Sub Text_OLESetData(Data As DataObject, DataFormat As Integer)

OLESetData

End Sub

形参的意义：

Data 放置所需数据的DataObject对象。部件调用SetData方法加载所需的格式

DataFormat 整数，确定目标部件所需要的数据格式。源部件用此值来确定向DataObject对象加载的内容

.

.

当部件的OLEDrag方法被执行时，或者在OLEDragMode属性被设为Automatic，部件初始化OLE拖放操作时发生此事件。事件处理过程原形

Private Sub Text_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

End Sub

形参的意义：

Data DataObject对象，含源所提供的格式以及（可选）适合那些格式的数据。若DataObject不包含数据，则当控件OLEStartDrag

调用GetData方法时会提供。程序员应提供此事件中该参数的值。SetData和Clear方法不能用于此处

AllowedEffects 长整型数，包含源部件支持的效果。其可能的取值列于下表中。程序员应提供此事件中该参数的值

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于要从拖源移到放源的数据中。移动后，拖源要删除数据

当焦点转换倒下一个控件之前发生，只有在即将获得焦点的控件的Causes Validation属性值设置为True时，Validate事件才能发生。事件处理过程原形

Private Sub Text_Validate(Cancel As Boolean)

Validate End Sub

形参的意义：

Cancel 当Cancel设置为True时，控件保持焦点

通常可用这个事件检查文本框的内容。LostFocus事件也能检查文本框的正确性，但Validate事件比LostFocus事件更早发生，而且能与Causes Validation属性配合使用

1.03、标签控件(Label)的事件

事件名称 事件处理过程原形及说明

改变Label的内容。既当通过代码等改变Caption属性时发生此事件。事件处理过程原形

Change

Private Sub Label_Change()

(文本改

变)

End Sub

当用户单击标签控件时发生此事件，事件处理过程原形

Click

Private Sub Label_Click()

(单击)

.

.

End Sub

当用户双击标签控件时发生此事件，事件处理过程原形

DblClickPrivate Sub Label_DblClick()

(双击)

End Sub

当完成一个完整的拖放动作或使用Drag方法时，发生此事件，事件处理过程原形

Private Sub Label_DragDrop(Source As Control, X As Single, Y As Single)

DragDrop End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当用户进行拖放操作时发生此事件，事件处理过程原形

Private Sub Label_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

DragOver End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

GotFocus当获得焦点时发生此事件，事件处理过程原形

(获得焦点)

Private Sub Label_LinkClose()

End Sub

当一个DDE对话过程中出现错误时，发生此事件。事件处理过程原形

Private Sub Label_LinkError(LinkErr As Integer)

End Sub

LinkError

形参的意义：

LinkErr 是一个与DDE有关错误的错误号，返回值如下所述

返回值 描述

另一个应用程序按错误的格式已经请求过数据。在VisualBasic试图找出另一种应用程序识别的格式时，这1

种错误可能连续出现几次

.

.

6

7

当发送端窗体上的LinkMode属性设置为0（无）之后，接收端应用程序试图继续DDE对话

所有源链接都在使用中（每个源最多有128个链接）

对目标控件来说：一个自动链接或LinkRequest方法更新控件中的数据失败

8

对源窗体来说：目标试图将数据放置到一个控件中去，并且失败

11 无足够的内存给DDE使用

如果接收端控件的LinkMode属性被设置为3（通知），当发送端已经改变了由DDE链接定义的数据时，发生此事件。事件处理过程原形

LinkNotiPrivate Sub Label_LinkNotify()

fy

End Sub

当一个DDE对话正在启动时发生此事件。事件处理过程原形

Private Sub Label_LinkOpen(Cancel As Integer)

LinkOpen End Sub

形参的意义：

Cancel 是一个整数，它用来确定该DDE对话是否建立。让cancel设置为0（缺省值）可建立该对话。将cancel设置为任何非零值则拒绝对话

当鼠标在本控件上，用户按下鼠标键时发生此事件，事件处理过程原形

Private Sub Label_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

MouseDow形参的意义：

n

Button 标识按下哪个鼠标键：

(按下鼠 1、 按下鼠标左键

标)

2、 按下鼠标右键

3、 按下鼠标左右两键

Shift键的意义请参阅KeyDown事件

X、Y 按下鼠标键时的坐标

MouseMov当鼠标在本控件上移动时发生此事件，事件处理过程原形

e

(鼠标移动)

Private Sub Label_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

.

.

形参的意义：

X、Y 鼠标移动过程中的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当鼠标在本控件上，用户释放鼠标键时发生此事件，事件处理过程原形

Private Sub Label_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseUp

(释放鼠标)

End Sub

形参的意义：

X、Y 鼠标移动释放时的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当源部件被放到目标部件时发生此事件，并通知源部件拖放操作被执行或取消。事件处理过程原形

Private Sub Label_OLECompleteDrag(Effect As Long)

End Sub

形参的意义：

OLEComplEffect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表eteDrag

中

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据，或者放操作被取消

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在OLEDropMode被设置为1(Manual)时，当源部件被放到目标部件时，发生此事件。事件处理过程原形

Private Sub Label_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

OLEDragDrop

形参的意义：

Data DataObject对象，包含源提供的格式，另外也可能包含这些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时提供数据。SetData和Clear方法不能用在这里

Effect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表中

常数 值 描述

.

.

vbDropEffectNone 0

vbDropEffectCopy 1

vbDropEffectMove 2

-21474836vbDropEffectScrol48

l

放目标不接受数据，或者放操作被取消

放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在目标部件中，滚动正在或将要发生。此值与其它值共同使用。注意仅当在部件中执行(&H800000自己的滚动时才能应用

00)

Button 整数，当按下鼠标键时，与鼠标状态相对应。左键为位0，右键为位1，中键为位2。这些位相应的值分别为1，2和4，它代表了鼠标键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下

Shift 整数，当按下SHIFT、CTRL和ALT键时，与这些键状态相对应。SHIFT键为位0，CTRL键为位1，ALT键为位2。这些位相应的值分别为1，2和4，shift参数代表了这些键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下。例如，同时按下CTRL和ALT键，shift值为6

X、Y 确定鼠标指针当前位置的数值。

当一个部件在另一个部件上拖动时发生此事件。事件处理过程原形

Private Sub Label_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

End Sub

OLEDragOver

形参的意义：

State 整数，相应于控件的转换状态，此控件将被拖放到与其相关的目标窗体或控件中。可能的取值列于下表中

常数

vbEnter

vbLeave

vbOver

值 描述

0 在目标范围内源部件正被拖动

1 在目标范围之外源部件正被拖动

2 在目标内源部件已经从一个位置移到另一个位置

其它形参的意义同OLEDragDrop

在每个OLEDragOver事件后发生此事件。事件处理过程原形

Private Sub Label_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)

OLEGiveF

eedback End Sub

形参的意义：

DefaultCursors 布尔值，决定VisualBasic使用部件缺省鼠标光标，还是自定义鼠标光标

.

.

True（缺省）=使用缺省鼠标光标

False=不用缺省光标。必须用Screen对象的MousePointer属性设置鼠标光标

Effect的意义同OLEDragDrop

当目标部件在源的DataObject对象上执行GetData方法，但是还没有加载规定格式的数据时，在源部件上发生此事件。事件处理过程原形

Private Sub Label_OLESetData(Data As DataObject, DataFormat As Integer)

OLESetDa

ta End Sub

形参的意义：

Data 放置所需数据的DataObject对象。部件调用SetData方法加载所需的格式

DataFormat 整数，确定目标部件所需要的数据格式。源部件用此值来确定向DataObject对象加载的内容

当部件的OLEDrag方法被执行时，或者在OLEDragMode属性被设为Automatic，部件初始化OLE拖放操作时发生此事件。事件处理过程原形

Private Sub Label_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

End Sub

形参的意义：

OLEStartData DataObject对象，含源所提供的格式以及（可选）适合那些格式的数据。若DataObject不包含数据，则当控件调用Drag

GetData方法时会提供。程序员应提供此事件中该参数的值。SetData和Clear方法不能用于此处

AllowedEffects 长整型数，包含源部件支持的效果。其可能的取值列于下表中。程序员应提供此事件中该参数的值

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于要从拖源移到放源的数据中。移动后，拖源要删除数据

1.04、框架控件(Frame)的事件

事件名称 事件处理过程原形及说明

当用户单击本控件时发生此事件，事件处理过程原形

Click

(单击)

Private Sub Frame_Click()

End Sub

DblClick 当用户双击本控件时发生此事件，事件处理过程原形

.

.

(双击) Private Sub Frame_DblClick()

End Sub

当完成一个完整的拖放动作或使用Drag方法时，发生此事件，事件处理过程原形

Private Sub Frame_DragDrop(Source As Control, X As Single, Y As Single)

DragDrop End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当用户进行拖放操作时发生此事件，事件处理过程原形

Private Sub Frame_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

DragOver End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当鼠标在本控件上，用户按下鼠标键时发生此事件，事件处理过程原形

Private Sub Frame_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

MouseDown

Button 标识按下哪个鼠标键：

(按下鼠标)

1、 按下鼠标左键

2、 按下鼠标右键

3、 按下鼠标左右两键

Shift键的意义请参阅KeyDown事件

X、Y 按下鼠标键时的坐标

当鼠标在本控件上移动时发生此事件，事件处理过程原形

Private Sub Frame_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseMove

(鼠标移动)

End Sub

形参的意义：

.

.

X、Y 鼠标移动过程中的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当鼠标在本控件上，用户释放鼠标键时发生此事件，事件处理过程原形

Private Sub Frame_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseUp

End Sub

(释放鼠标)

形参的意义：

X、Y 鼠标移动释放时的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当源部件被放到目标部件时发生此事件，并通知源部件拖放操作被执行或取消。事件处理过程原形

Private Sub Frame_OLECompleteDrag(Effect As Long)

End Sub

形参的意义：

OLECompleteEffect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于Drag

下表中

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据，或者放操作被取消

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在OLEDropMode被设置为1(Manual)时，当源部件被放到目标部件时，发生此事件。事件处理过程原形

Private Sub Frame_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

OLEDragDrop

Data DataObject对象，包含源提供的格式，另外也可能包含这些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时提供数据。SetData和Clear方法不能用在这里

Effect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表中

常数 值 描述

放目标不接受数据，或者放操作被取消 vbDropEffectNone 0

.

.

vbDropEffectCopy 1

vbDropEffectMove 2

-21474836vbDropEffectScro48

ll

放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在目标部件中，滚动正在或将要发生。此值与其它值共同使用。注意仅当在部件中执(&H800000行自己的滚动时才能应用

00)

Button 整数，当按下鼠标键时，与鼠标状态相对应。左键为位0，右键为位1，中键为位2。这些位相应的值分别为1，2和4，它代表了鼠标键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下

Shift 整数，当按下SHIFT、CTRL和ALT键时，与这些键状态相对应。SHIFT键为位0，CTRL键为位1，ALT键为位2。这些位相应的值分别为1，2和4，shift参数代表了这些键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下。例如，同时按下CTRL和ALT键，shift值为6

X、Y 确定鼠标指针当前位置的数值。

当一个部件在另一个部件上拖动时发生此事件。事件处理过程原形

Private Sub Frame_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

End Sub

形参的意义：

OLEDragOver

State 整数，相应于控件的转换状态，此控件将被拖放到与其相关的目标窗体或控件中。可能的取值列于下表中

常数

vbEnter

vbLeave

vbOver

值 描述

0 在目标范围内源部件正被拖动

1 在目标范围之外源部件正被拖动

2 在目标内源部件已经从一个位置移到另一个位置

其它形参的意义同OLEDragDrop

在每个OLEDragOver事件后发生此事件。事件处理过程原形

Private Sub Frame_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)

OLEGiveFeedbEnd Sub

ack

形参的意义：

DefaultCursors 布尔值，决定VisualBasic使用部件缺省鼠标光标，还是自定义鼠标光标

True（缺省）=使用缺省鼠标光标

.

.

False=不用缺省光标。必须用Screen对象的MousePointer属性设置鼠标光标

Effect的意义同OLEDragDrop

当目标部件在源的DataObject对象上执行GetData方法，但是还没有加载规定格式的数据时，在源部件上发生此事件。事件处理过程原形

Private Sub Frame_OLESetData(Data As DataObject, DataFormat As Integer)

OLESetData

End Sub

形参的意义：

Data 放置所需数据的DataObject对象。部件调用SetData方法加载所需的格式

DataFormat 整数，确定目标部件所需要的数据格式。源部件用此值来确定向DataObject对象加载的内容

当部件的OLEDrag方法被执行时，或者在OLEDragMode属性被设为Automatic，部件初始化OLE拖放操作时发生此事件。事件处理过程原形

Private Sub Frame_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

End Sub

形参的意义：

Data DataObject对象，含源所提供的格式以及（可选）适合那些格式的数据。若DataObject不包含数据，则当控件OLEStartDrag

调用GetData方法时会提供。程序员应提供此事件中该参数的值。SetData和Clear方法不能用于此处

AllowedEffects 长整型数，包含源部件支持的效果。其可能的取值列于下表中。程序员应提供此事件中该参数的值

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于要从拖源移到放源的数据中。移动后，拖源要删除数据

1.05、命令控件(Command)的事件

事件名称 事件处理过程原形及说明

当用户单击命令控件时发生此事件，事件处理过程原形

Click

(单击)

Private Sub Command_Click()

End Sub

DragDrop 当完成一个完整的拖放动作或使用Drag方法时，发生此事件，事件处理过程原形

.

.

Private Sub Command_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当用户进行拖放操作时发生此事件，事件处理过程原形

Private Sub Command_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

DragOver End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当获得焦点时发生此事件，事件处理过程原形

GotFocus Private Sub Command_GotFocus()

(获得焦点)

End Sub

当焦点在本控件上，用户按下键盘上某个键时发生此事件，此事件不仅响应字符键，而且也响应非字符件。通过形参KeyCode和形参Shift能够判断用户按下的是哪个键。事件处理过程原形

Private Sub Command_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义：

KeyDown

KeyCode 按键的编码

(按下键)

Shift 转换键，意义如下：

0 没有转换键按下

1 Shift键按下

2 Ctrl键按下

3 Alt键按下

当多个转换键同时按下时，应把几个键对应的数值相加

当焦点在本控件上，用户敲击键盘上某个键时发生此事件，通过形参KeyCode和形参Shift KeyAscii能够判断用户按KeyPress

下的是哪个键。KeyPress事件并不对键盘的非字符件(如光标健)产生响应，若要捕捉非字符键，应使用KeyDown事件(敲击键)

或KeyUp事件。事件处理过程原形

.

.

Private Sub Command_KeyPress(KeyAscii As Integer)

End Sub

形参的意义：

KeyAscii 按键Ascii码

若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。

当焦点在本控件上，用户按下键盘上某个键后释放时发生此事件，KeyUp事件的其他特性与KeyDown事件相同。事件处理过程原形

KeyUp

(释放键)

Private Sub Command_KeyUp(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义请参阅KeyDown事件

当丢失焦点(当用“Tab” 键或用快捷键或用鼠标选取窗体上其他对象而离开该文本框)时发生此事件，通常可用这个事件检查文本框的内容。事件处理过程原形

LostFocus

Private Sub Command_LostFocus()

(丢失焦点)

End Sub

当鼠标在本控件上，用户按下鼠标键时发生此事件，事件处理过程原形

Private Sub Command_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

MouseDown

Button 标识按下哪个鼠标键：

(按下鼠标)

1、 按下鼠标左键

2、 按下鼠标右键

3、 按下鼠标左右两键

Shift键的意义请参阅KeyDown事件

X、Y 按下鼠标键时的坐标

当鼠标在本控件上移动时发生此事件，事件处理过程原形

Private Sub Command_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseMove

(鼠标移动)

End Sub

形参的意义：

.

.

X、Y 鼠标移动过程中的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当鼠标在本控件上，用户释放鼠标键时发生此事件，事件处理过程原形

Private Sub Command_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseUp

End Sub

(释放鼠标)

形参的意义：

X、Y 鼠标移动释放时的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当源部件被放到目标部件时发生此事件，并通知源部件拖放操作被执行或取消。事件处理过程原形

Private Sub Command_OLECompleteDrag(Effect As Long)

End Sub

形参的意义：

OLECompleteEffect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于Drag

下表中

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据，或者放操作被取消

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在OLEDropMode被设置为1(Manual)时，当源部件被放到目标部件时，发生此事件。事件处理过程原形

Private Sub Command_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

OLEDragDrop

Data DataObject对象，包含源提供的格式，另外也可能包含这些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时提供数据。SetData和Clear方法不能用在这里

Effect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表中

常数 值 描述

放目标不接受数据，或者放操作被取消 vbDropEffectNone 0

.

.

vbDropEffectCopy 1

vbDropEffectMove 2

-21474836vbDropEffectScro48

ll

放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在目标部件中，滚动正在或将要发生。此值与其它值共同使用。注意仅当在部件中执(&H800000行自己的滚动时才能应用

00)

Button 整数，当按下鼠标键时，与鼠标状态相对应。左键为位0，右键为位1，中键为位2。这些位相应的值分别为1，2和4，它代表了鼠标键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下

Shift 整数，当按下SHIFT、CTRL和ALT键时，与这些键状态相对应。SHIFT键为位0，CTRL键为位1，ALT键为位2。这些位相应的值分别为1，2和4，shift参数代表了这些键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下。例如，同时按下CTRL和ALT键，shift值为6

X、Y 确定鼠标指针当前位置的数值。

当一个部件在另一个部件上拖动时发生此事件。事件处理过程原形

Private Sub Command_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

End Sub

形参的意义：

OLEDragOver

State 整数，相应于控件的转换状态，此控件将被拖放到与其相关的目标窗体或控件中。可能的取值列于下表中

常数

vbEnter

vbLeave

vbOver

值 描述

0 在目标范围内源部件正被拖动

1 在目标范围之外源部件正被拖动

2 在目标内源部件已经从一个位置移到另一个位置

其它形参的意义同OLEDragDrop

在每个OLEDragOver事件后发生此事件。事件处理过程原形

Private Sub Command_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)

OLEGiveFeedEnd Sub

back

形参的意义：

DefaultCursors 布尔值，决定VisualBasic使用部件缺省鼠标光标，还是自定义鼠标光标

True（缺省）=使用缺省鼠标光标

.

.

False=不用缺省光标。必须用Screen对象的MousePointer属性设置鼠标光标

Effect的意义同OLEDragDrop

当目标部件在源的DataObject对象上执行GetData方法，但是还没有加载规定格式的数据时，在源部件上发生此事件。事件处理过程原形

Private Sub Command_OLESetData(Data As DataObject, DataFormat As Integer)

OLESetData

End Sub

形参的意义：

Data 放置所需数据的DataObject对象。部件调用SetData方法加载所需的格式

DataFormat 整数，确定目标部件所需要的数据格式。源部件用此值来确定向DataObject对象加载的内容

当部件的OLEDrag方法被执行时，或者在OLEDragMode属性被设为Automatic，部件初始化OLE拖放操作时发生此事件。事件处理过程原形

Private Sub Command_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

End Sub

形参的意义：

OLEStartDraData DataObject对象，含源所提供的格式以及（可选）适合那些格式的数据。若DataObject不包含数据，则当控件调g

用GetData方法时会提供。程序员应提供此事件中该参数的值。SetData和Clear方法不能用于此处

AllowedEffects 长整型数，包含源部件支持的效果。其可能的取值列于下表中。程序员应提供此事件中该参数的值

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于要从拖源移到放源的数据中。移动后，拖源要删除数据

1.06、复选钮控件(Check)的事件

事件名称 事件处理过程原形及说明

当用户单击本控件时发生此事件，事件处理过程原形

Click

(单击)

Private Sub Check_Click()

End Sub

DragDrop 当完成一个完整的拖放动作或使用Drag方法时，发生此事件，事件处理过程原形

.

.

Private Sub Check_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当用户进行拖放操作时发生此事件，事件处理过程原形

Private Sub Check_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

DragOver End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当获得焦点时发生此事件，事件处理过程原形

GotFocus Private Sub Check_GotFocus()

(获得焦点)

End Sub

当焦点在本控件上，用户按下键盘上某个键时发生此事件，此事件不仅响应字符键，而且也响应非字符件。通过形参KeyCode和形参Shift能够判断用户按下的是哪个键。事件处理过程原形

Private Sub Check_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义：

KeyDown

KeyCode 按键的编码

(按下键)

Shift 转换键，意义如下：

0 没有转换键按下

1 Shift键按下

2 Ctrl键按下

3 Alt键按下

当多个转换键同时按下时，应把几个键对应的数值相加

当焦点在本控件上，用户敲击键盘上某个键时发生此事件，通过形参KeyCode和形参Shift KeyAscii能够判断用户按KeyPress

下的是哪个键。KeyPress事件并不对键盘的非字符件(如光标健)产生响应，若要捕捉非字符键，应使用KeyDown事件(敲击键)

或KeyUp事件。事件处理过程原形

.

.

Private Sub Check_KeyPress(KeyAscii As Integer)

End Sub

形参的意义：

KeyAscii 按键Ascii码

若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。

当焦点在本控件上，用户按下键盘上某个键后释放时发生此事件，KeyUp事件的其他特性与KeyDown事件相同。事件处理过程原形

KeyUp

(释放键)

Private Sub Check_KeyUp(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义请参阅KeyDown事件

当丢失焦点(当用“Tab” 键或用快捷键或用鼠标选取窗体上其他对象而离开该文本框)时发生此事件，通常可用这个事件检查文本框的内容。事件处理过程原形

LostFocus

Private Sub Check_LostFocus()

(丢失焦点)

End Sub

当鼠标在本控件上，用户按下鼠标键时发生此事件，事件处理过程原形

Private Sub Check_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

MouseDown

Button 标识按下哪个鼠标键：

(按下鼠标)

1、 按下鼠标左键

2、 按下鼠标右键

3、 按下鼠标左右两键

Shift键的意义请参阅KeyDown事件

X、Y 按下鼠标键时的坐标

当鼠标在本控件上移动时发生此事件，事件处理过程原形

Private Sub Check_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseMove

(鼠标移动)

End Sub

形参的意义：

.

.

X、Y 鼠标移动过程中的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当鼠标在本控件上，用户释放鼠标键时发生此事件，事件处理过程原形

Private Sub Check_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseUp

End Sub

(释放鼠标)

形参的意义：

X、Y 鼠标移动释放时的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当源部件被放到目标部件时发生此事件，并通知源部件拖放操作被执行或取消。事件处理过程原形

Private Sub Check_OLECompleteDrag(Effect As Long)

End Sub

形参的意义：

OLECompleteEffect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于Drag

下表中

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据，或者放操作被取消

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在OLEDropMode被设置为1(Manual)时，当源部件被放到目标部件时，发生此事件。事件处理过程原形

Private Sub Check_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

OLEDragDrop

Data DataObject对象，包含源提供的格式，另外也可能包含这些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时提供数据。SetData和Clear方法不能用在这里

Effect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表中

常数 值 描述

放目标不接受数据，或者放操作被取消 vbDropEffectNone 0

.

.

vbDropEffectCopy 1

vbDropEffectMove 2

-21474836vbDropEffectScro48

ll

放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

在目标部件中，滚动正在或将要发生。此值与其它值共同使用。注意仅当在部件中执(&H800000行自己的滚动时才能应用

00)

Button 整数，当按下鼠标键时，与鼠标状态相对应。左键为位0，右键为位1，中键为位2。这些位相应的值分别为1，2和4，它代表了鼠标键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下

Shift 整数，当按下SHIFT、CTRL和ALT键时，与这些键状态相对应。SHIFT键为位0，CTRL键为位1，ALT键为位2。这些位相应的值分别为1，2和4，shift参数代表了这些键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下。例如，同时按下CTRL和ALT键，shift值为6

X、Y 确定鼠标指针当前位置的数值。

当一个部件在另一个部件上拖动时发生此事件。事件处理过程原形

Private Sub Check_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

End Sub

形参的意义：

OLEDragOver

State 整数，相应于控件的转换状态，此控件将被拖放到与其相关的目标窗体或控件中。可能的取值列于下表中

常数

vbEnter

vbLeave

vbOver

值 描述

0 在目标范围内源部件正被拖动

1 在目标范围之外源部件正被拖动

2 在目标内源部件已经从一个位置移到另一个位置

其它形参的意义同OLEDragDrop

在每个OLEDragOver事件后发生此事件。事件处理过程原形

Private Sub Check_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)

OLEGiveFeedbEnd Sub

ack

形参的意义：

DefaultCursors 布尔值，决定VisualBasic使用部件缺省鼠标光标，还是自定义鼠标光标

True（缺省）=使用缺省鼠标光标

.

.

False=不用缺省光标。必须用Screen对象的MousePointer属性设置鼠标光标

Effect的意义同OLEDragDrop

当目标部件在源的DataObject对象上执行GetData方法，但是还没有加载规定格式的数据时，在源部件上发生此事件。事件处理过程原形

Private Sub Check_OLESetData(Data As DataObject, DataFormat As Integer)

OLESetData

End Sub

形参的意义：

Data 放置所需数据的DataObject对象。部件调用SetData方法加载所需的格式

DataFormat 整数，确定目标部件所需要的数据格式。源部件用此值来确定向DataObject对象加载的内容

当部件的OLEDrag方法被执行时，或者在OLEDragMode属性被设为Automatic，部件初始化OLE拖放操作时发生此事件。事件处理过程原形

Private Sub Check_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

End Sub

形参的意义：

Data DataObject对象，含源所提供的格式以及（可选）适合那些格式的数据。若DataObject不包含数据，则当控件OLEStartDrag

调用GetData方法时会提供。程序员应提供此事件中该参数的值。SetData和Clear方法不能用于此处

AllowedEffects 长整型数，包含源部件支持的效果。其可能的取值列于下表中。程序员应提供此事件中该参数的值

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于要从拖源移到放源的数据中。移动后，拖源要删除数据

当焦点转换倒下一个控件之前发生，只有在即将获得焦点的控件的Causes Validation属性值设置为True时，Validate事件才能发生。事件处理过程原形

Private Sub Check_Validate(Cancel As Boolean)

Validate End Sub

形参的意义：

Cancel 当Cancel设置为True时，控件保持焦点

通常可用这个事件检查文本框的内容。LostFocus事件也能检查文本框的正确性，但Validate事件比LostFocus事件更早发生，而且能与Causes Validation属性配合使用

.

.

1.07、单选钮控件(Option)的事件

事件名称 事件处理过程原形及说明

当用户单击本控件时发生此事件，事件处理过程原形

Click

(单击)

Private Sub Option_Click()

End Sub

当用户双击本控件时发生此事件，事件处理过程原形

DblClick

(双击)

Private Sub Option_DblClick()

End Sub

当完成一个完整的拖放动作或使用Drag方法时，发生此事件，事件处理过程原形

Private Sub Option_DragDrop(Source As Control, X As Single, Y As Single)

DragDrop End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当用户进行拖放操作时发生此事件，事件处理过程原形

Private Sub Option_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

DragOver End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当获得焦点时发生此事件，事件处理过程原形

GotFocus Private Sub Option_GotFocus()

(获得焦点)

End Sub

当焦点在本控件上，用户按下键盘上某个键时发生此事件，此事件不仅响应字符键，而且也响应非字符件。通过形参KKeyDown

(按下键)

eyCode和形参Shift能够判断用户按下的是哪个键。事件处理过程原形

Private Sub Option_KeyDown(KeyCode As Integer, Shift As Integer)

.

.

End Sub

形参的意义：

KeyCode 按键的编码

Shift 转换键，意义如下：

0 没有转换键按下

1 Shift键按下

2 Ctrl键按下

3 Alt键按下

当多个转换键同时按下时，应把几个键对应的数值相加

当焦点在本控件上，用户敲击键盘上某个键时发生此事件，通过形参KeyCode和形参Shift KeyAscii能够判断用户按下的是哪个键。KeyPress事件并不对键盘的非字符件(如光标健)产生响应，若要捕捉非字符键，应使用KeyDown事件或KeyUp事件。事件处理过程原形

Private Sub Option_KeyPress(KeyAscii As Integer)

KeyPress

(敲击键)

End Sub

形参的意义：

KeyAscii 按键Ascii码

若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。

当焦点在本控件上，用户按下键盘上某个键后释放时发生此事件，KeyUp事件的其他特性与KeyDown事件相同。事件处理过程原形

KeyUp

(释放键)

Private Sub Option_KeyUp(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义请参阅KeyDown事件

当丢失焦点(当用“Tab” 键或用快捷键或用鼠标选取窗体上其他对象而离开该文本框)时发生此事件，通常可用这个事件检查文本框的内容。事件处理过程原形

LostFocus

Private Sub Option_LostFocus()

(丢失焦点)

End Sub

当鼠标在本控件上，用户按下鼠标键时发生此事件，事件处理过程原形

MouseDown Private Sub Option_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

(按下鼠标)

End Sub

.

.

形参的意义：

Button 标识按下哪个鼠标键：

1、 按下鼠标左键

2、 按下鼠标右键

3、 按下鼠标左右两键

Shift键的意义请参阅KeyDown事件

X、Y 按下鼠标键时的坐标

当鼠标在本控件上移动时发生此事件，事件处理过程原形

Private Sub Option_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseMove

End Sub

(鼠标移动)

形参的意义：

X、Y 鼠标移动过程中的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当鼠标在本控件上，用户释放鼠标键时发生此事件，事件处理过程原形

Private Sub Option_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseUp

End Sub

(释放鼠标)

形参的意义：

X、Y 鼠标移动释放时的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当源部件被放到目标部件时发生此事件，并通知源部件拖放操作被执行或取消。事件处理过程原形

Private Sub Option_OLECompleteDragEffect As Long)

End Sub

形参的意义：

OLECompleteEffect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于Drag

下表中

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据，或者放操作被取消

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

.

.

在OLEDropMode被设置为1(Manual)时，当源部件被放到目标部件时，发生此事件。事件处理过程原形

Private Sub Option_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

形参的意义：

Data DataObject对象，包含源提供的格式，另外也可能包含这些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时提供数据。SetData和Clear方法不能用在这里

Effect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表中

常数 值 描述

放目标不接受数据，或者放操作被取消

放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

vbDropEffectNone 0

OLEDragDrop vbDropEffectCopy 1

vbDropEffectMove 2

-21474836vbDropEffectScro48

ll

在目标部件中，滚动正在或将要发生。此值与其它值共同使用。注意仅当在部件中执(&H800000行自己的滚动时才能应用

00)

Button 整数，当按下鼠标键时，与鼠标状态相对应。左键为位0，右键为位1，中键为位2。这些位相应的值分别为1，2和4，它代表了鼠标键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下

Shift 整数，当按下SHIFT、CTRL和ALT键时，与这些键状态相对应。SHIFT键为位0，CTRL键为位1，ALT键为位2。这些位相应的值分别为1，2和4，shift参数代表了这些键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下。例如，同时按下CTRL和ALT键，shift值为6

X、Y 确定鼠标指针当前位置的数值。

当一个部件在另一个部件上拖动时发生此事件。事件处理过程原形

Private Sub Option_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)

OLEDragOver

End Sub

形参的意义：

State 整数，相应于控件的转换状态，此控件将被拖放到与其相关的目标窗体或控件中。可能的取值列于下表中

.

.

常数

vbEnter

vbLeave

vbOver

值 描述

0 在目标范围内源部件正被拖动

1 在目标范围之外源部件正被拖动

2 在目标内源部件已经从一个位置移到另一个位置

其它形参的意义同OLEDragDrop

在每个OLEDragOver事件后发生此事件。事件处理过程原形

Private Sub Option_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)

End Sub

OLEGiveFeedb形参的意义：

ack

DefaultCursors 布尔值，决定VisualBasic使用部件缺省鼠标光标，还是自定义鼠标光标

True（缺省）=使用缺省鼠标光标

False=不用缺省光标。必须用Screen对象的MousePointer属性设置鼠标光标

Effect的意义同OLEDragDrop

当目标部件在源的DataObject对象上执行GetData方法，但是还没有加载规定格式的数据时，在源部件上发生此事件。事件处理过程原形

Private Sub Option_OLESetData(Data As DataObject, DataFormat As Integer)

OLESetData

End Sub

形参的意义：

Data 放置所需数据的DataObject对象。部件调用SetData方法加载所需的格式

DataFormat 整数，确定目标部件所需要的数据格式。源部件用此值来确定向DataObject对象加载的内容

当部件的OLEDrag方法被执行时，或者在OLEDragMode属性被设为Automatic，部件初始化OLE拖放操作时发生此事件。事件处理过程原形

Private Sub Option_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

End Sub

OLEStartDrag

形参的意义：

Data DataObject对象，含源所提供的格式以及（可选）适合那些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时会提供。程序员应提供此事件中该参数的值。SetData和Clear方法不能用于此处

AllowedEffects 长整型数，包含源部件支持的效果。其可能的取值列于下表中。程序员应提供此事件中该参数的值

常数 值 描述

.

.

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

0 放目标不接受数据

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于要从拖源移到放源的数据中。移动后，拖源要删除数据

当焦点转换倒下一个控件之前发生，只有在即将获得焦点的控件的Causes Validation属性值设置为True时，Validate事件才能发生。事件处理过程原形

Private Sub Option_Validate(Cancel As Boolean)

Validate

End Sub

形参的意义：

Cancel 当Cancel设置为True时，控件保持焦点

Validate事件比LostFocus事件更早发生，而且能与Causes Validation属性配合使用

1.08、组合框控件(Combo)的事件

事件名称 事件处理过程原形及说明

改变控件的文本框部分的正文发生此事件。该事件仅在Style属性设置为0（下拉Combo）或1（简单Combo）和正文被改变或者通过代码改变了Text属性的设置时才会发生。事件处理过程原形

Change

Private Sub Combo_Change()

(正文改变)

End Sub

当用户单击本控件时发生此事件，事件处理过程原形

Click

(单击)

Private Sub Combo_Click()

End Sub

当用户双击本控件时发生此事件，事件处理过程原形

DblClick

(双击)

Private Sub Combo_DblClick()

End Sub

当完成一个完整的拖放动作或使用Drag方法时，发生此事件，事件处理过程原形

DragDrop Private Sub Combo_DragDrop(Source As Control, X As Single, Y As Single)

.

.

End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当用户进行拖放操作时发生此事件，事件处理过程原形

Private Sub Combo_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

DragOver End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

该事件是当ComboBox控件的列表部分正要被放下时发生；如果ComboBox控件的Style属性设置为1（简单的Combo）时此事件不会发生。事件处理过程原形

DropDown Private Sub Combo_DropDown()

End Sub

当获得焦点时发生此事件，事件处理过程原形

GotFocus Private Sub Combo_GotFocus()

(获得焦点)

End Sub

当焦点在本控件上，用户按下键盘上某个键时发生此事件，此事件不仅响应字符键，而且也响应非字符件。通过形参KeyCode和形参Shift能够判断用户按下的是哪个键。事件处理过程原形

Private Sub Combo_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义：

KeyDown

KeyCode 按键的编码

(按下键)

Shift 转换键，意义如下：

0 没有转换键按下

1 Shift键按下

2 Ctrl键按下

3 Alt键按下

当多个转换键同时按下时，应把几个键对应的数值相加

.

.

当焦点在本控件上，用户敲击键盘上某个键时发生此事件，通过形参KeyCode和形参Shift KeyAscii能够判断用户按下的是哪个键。KeyPress事件并不对键盘的非字符件(如光标健)产生响应，若要捕捉非字符键，应使用KeyDown事件或KeyUp事件。事件处理过程原形

Private Sub Combo_KeyPress(KeyAscii As Integer)

KeyPress

(敲击键)

End Sub

形参的意义：

KeyAscii 按键Ascii码

若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。

当焦点在本控件上，用户按下键盘上某个键后释放时发生此事件，KeyUp事件的其他特性与KeyDown事件相同。事件处理过程原形

KeyUp

(释放键)

Private Sub Combo_KeyUp(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义请参阅KeyDown事件

当丢失焦点(当用“Tab” 键或用快捷键或用鼠标选取窗体上其他对象而离开该文本框)时发生此事件，通常可用这个事件检查文本框的内容。事件处理过程原形

LostFocus

Private Sub Combo_LostFocus()

(丢失焦点)

End Sub

当源部件被放到目标部件时发生此事件，并通知源部件拖放操作被执行或取消。事件处理过程原形

Private Sub Combo_OLECompleteDrag(Effect As Long)

End Sub

形参的意义：

OLECompleteEffect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于Drag

下表中

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据，或者放操作被取消

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

OLEDragDrop 在OLEDropMode被设置为1(Manual)时，当源部件被放到目标部件时，发生此事件。事件处理过程原形

.

.

Private Sub Combo_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer,

X As Single, Y As Single)

End Sub

形参的意义：

Data DataObject对象，包含源提供的格式，另外也可能包含这些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时提供数据。SetData和Clear方法不能用在这里

Effect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于下表中

常数 值 描述

放目标不接受数据，或者放操作被取消

放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

vbDropEffectNone 0

vbDropEffectCopy 1

vbDropEffectMove 2

-21474836vbDropEffectScro48

ll

在目标部件中，滚动正在或将要发生。此值与其它值共同使用。注意仅当在部件中执(&H800000行自己的滚动时才能应用

00)

Button 整数，当按下鼠标键时，与鼠标状态相对应。左键为位0，右键为位1，中键为位2。这些位相应的值分别为1，2和4，它代表了鼠标键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下

Shift 整数，当按下SHIFT、CTRL和ALT键时，与这些键状态相对应。SHIFT键为位0，CTRL键为位1，ALT键为位2。这些位相应的值分别为1，2和4，shift参数代表了这些键的状态。可设置三个位中的部分、全部或根本不设置，相应地表明部分、全部按键被按下或没有按键按下。例如，同时按下CTRL和ALT键，shift值为6

X、Y 确定鼠标指针当前位置的数值。

当一个部件在另一个部件上拖动时发生此事件。事件处理过程原形

Private Sub Combo_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer,

X As Single, Y As Single, State As Integer)

OLEDragOver

End Sub

形参的意义：

State 整数，相应于控件的转换状态，此控件将被拖放到与其相关的目标窗体或控件中。可能的取值列于下表中

常数 值 描述

.

.

vbEnter

vbLeave

vbOver

0 在目标范围内源部件正被拖动

1 在目标范围之外源部件正被拖动

2 在目标内源部件已经从一个位置移到另一个位置

其它形参的意义同OLEDragDrop

在每个OLEDragOver事件后发生此事件。事件处理过程原形

Private Sub Combo_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)

End Sub

OLEGiveFeed形参的意义：

back

DefaultCursors 布尔值，决定VisualBasic使用部件缺省鼠标光标，还是自定义鼠标光标

True（缺省）=使用缺省鼠标光标

False=不用缺省光标。必须用Screen对象的MousePointer属性设置鼠标光标

Effect的意义同OLEDragDrop

当目标部件在源的DataObject对象上执行GetData方法，但是还没有加载规定格式的数据时，在源部件上发生此事件。事件处理过程原形

Private Sub Combo_OLESetData(Data As DataObject, DataFormat As Integer)

OLESetData

End Sub

形参的意义：

Data 放置所需数据的DataObject对象。部件调用SetData方法加载所需的格式

DataFormat 整数，确定目标部件所需要的数据格式。源部件用此值来确定向DataObject对象加载的内容

当部件的OLEDrag方法被执行时，或者在OLEDragMode属性被设为Automatic，部件初始化OLE拖放操作时发生此事件。事件处理过程原形

Private Sub Combo_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

End Sub

OLEStartDrag

形参的意义：

Data DataObject对象，含源所提供的格式以及（可选）适合那些格式的数据。若DataObject不包含数据，则当控件调用GetData方法时会提供。程序员应提供此事件中该参数的值。SetData和Clear方法不能用于此处

AllowedEffects 长整型数，包含源部件支持的效果。其可能的取值列于下表中。程序员应提供此事件中该参数的值

常数

vbDropEffectNone

值 描述

0 放目标不接受数据

.

.

vbDropEffectCopy

vbDropEffectMove

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于要从拖源移到放源的数据中。移动后，拖源要删除数据

当文件列表框上的一个滚动条按水平方向或垂直方向滚动时，发生此事件。事件处理过程原形

Private Sub Combo_Scroll()

Scroll

End Sub

当焦点转换倒下一个控件之前发生，只有在即将获得焦点的控件的Causes Validation属性值设置为True时，Validate事件才能发生。事件处理过程原形

Private Sub Combo_Validate(Cancel As Boolean)

Validate

End Sub

形参的意义：

Cancel 当Cancel设置为True时，控件保持焦点

Validate事件比LostFocus事件更早发生，而且能与Causes Validation属性配合使用

1.09、列表框控件(List)的事件

事件名称 事件处理过程原形及说明

当用户单击本控件时发生此事件，事件处理过程原形

Click

(单击)

Private Sub List_Click()

End Sub

DblClick 当用户双击本控件时发生此事件，事件处理过程原形

.

.

(双击) Private Sub List_DblClick()

End Sub

当完成一个完整的拖放动作或使用Drag方法时，发生此事件，事件处理过程原形

Private Sub List_DragDrop(Source As Control, X As Single, Y As Single)

DragDrop End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当用户进行拖放操作时发生此事件，事件处理过程原形

Private Sub List_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

DragOver End Sub

形参的意义：

Source 正在被拖动的控件。

X、Y 是一个指定当前鼠标指针在目标窗体或控件中水平(X)和垂直(Y)位置的数字。

当获得焦点时发生此事件，事件处理过程原形

GotFocus Private Sub List_GotFocus()

(获得焦点)

End Sub

当ListBox控件的Style属性设置为1（复选框），并且ListBox控件中一个项目的复选框被选定或者被清除时该事件发生。事件处理过程原形

Private Sub List_ItemCheck(Item As Integer)

ItemCheck

End Sub

形参的意义：

Item 一个整数，唯一地标识该列表框中被选中的项

当焦点在本控件上，用户按下键盘上某个键时发生此事件，此事件不仅响应字符键，而且也响应非字符件。通过形参KKeyDown

(按下键)

eyCode和形参Shift能够判断用户按下的是哪个键。事件处理过程原形

Private Sub List_KeyDown(KeyCode As Integer, Shift As Integer)

.

.

End Sub

形参的意义：

KeyCode 按键的编码

Shift 转换键，意义如下：

0 没有转换键按下

1 Shift键按下

2 Ctrl键按下

3 Alt键按下

当多个转换键同时按下时，应把几个键对应的数值相加

当焦点在本控件上，用户敲击键盘上某个键时发生此事件，通过形参KeyCode和形参Shift KeyAscii能够判断用户按下的是哪个键。KeyPress事件并不对键盘的非字符件(如光标健)产生响应，若要捕捉非字符键，应使用KeyDown事件或KeyUp事件。事件处理过程原形

Private Sub List_KeyPress(KeyAscii As Integer)

KeyPress

(敲击键)

End Sub

形参的意义：

KeyAscii 按键Ascii码

若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。

当焦点在本控件上，用户按下键盘上某个键后释放时发生此事件，KeyUp事件的其他特性与KeyDown事件相同。事件处理过程原形

KeyUp

(释放键)

Private Sub List_KeyUp(KeyCode As Integer, Shift As Integer)

End Sub

形参的意义请参阅KeyDown事件

当丢失焦点(当用“Tab” 键或用快捷键或用鼠标选取窗体上其他对象而离开该文本框)时发生此事件，通常可用这个事件检查文本框的内容。事件处理过程原形

LostFocus

Private Sub List_LostFocus()

(丢失焦点)

End Sub

当鼠标在本控件上，用户按下鼠标键时发生此事件，事件处理过程原形

MouseDown Private Sub List_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

(按下鼠标)

End Sub

.

.

形参的意义：

Button 标识按下哪个鼠标键：

1、 按下鼠标左键

2、 按下鼠标右键

3、 按下鼠标左右两键

Shift键的意义请参阅KeyDown事件

X、Y 按下鼠标键时的坐标

当鼠标在本控件上移动时发生此事件，事件处理过程原形

Private Sub List_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseMove

End Sub

(鼠标移动)

形参的意义：

X、Y 鼠标移动过程中的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当鼠标在本控件上，用户释放鼠标键时发生此事件，事件处理过程原形

Private Sub List_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseUp

End Sub

(释放鼠标)

形参的意义：

X、Y 鼠标移动释放时的瞬时坐标

其它各参数的意义请参阅MouseDown事件

当源部件被放到目标部件时发生此事件，并通知源部件拖放操作被执行或取消。事件处理过程原形

Private Sub List_OLECompleteDrag(Effect As Long)

End Sub

形参的意义：

OLECompleteEffect 源对象设置的长整型数，用来识别执行的动作，这样当部件被移动后允许源采取适当的动作。可能的取值列于Drag

下表中

常数

vbDropEffectNone

vbDropEffectCopy

vbDropEffectMove

值 描述

0 放目标不接受数据，或者放操作被取消

1 放结果保存于从源到目标的数据拷贝中。初始数据没有被拖放操作改变

2 放结果保存于初始数据的连接中，该数据是在拖放源和放目标之间产生的

.