VB事件大全.docx
《VB事件大全.docx》由会员分享，可在线阅读，更多相关《VB事件大全.docx（87页珍藏版）》请在冰豆网上搜索。
VB事件大全
Change事件
示例 应用于
指示一个控件的内容已经改变的。
此事件如何和何时发生则随控件的不同而不同：
∙ComboBox－改变控件的文本框部分的正文。
该事件仅在Style属性设置为0（下拉Combo）或1（简单Combo）和正文被改变或者通过代码改变了Text属性的设置时才会发生。
∙DirListBox－改变所选择的目录。
该事件在双击一个新的目录或通过代码改变Path属性的设置时发生。
∙DriveListBox－改变所选择的驱动器。
该事件当选择一个新的驱动器或通过代码改变Drive属性的设置时发生。
∙HScrollBar和VScrollBar（水平和垂直滚动条）－移动滚动条的滚动框部分。
该事件在进行滚动或通过代码改变Value属性的设置时发生。
∙Label－改变Label的内容。
该事件在一个DDE链接更新数据或通过代码改变Caption属性的设置时发生。
∙PictureBox－改变PictureBox的内容。
该事件当一个DDE链接更新数据或通过代码改变Picture属性的设置时发生。
∙TextBox－改变文本框的内容。
该事件当一个DDE链接更新数据、用户改变正文或通过代码改变Text属性的设置时发生。
语法
PrivateSubobject_Change（[indexAsInteger]）
Change事件语法包括下列部分：
部分
描述
object
一个对象表达式，其值是“应用于”列表中的一个对象。
index
一个整数，用来唯一地标识一个在控件数组中控件。
说明
Change事件过程可协调在各控件间显示的数据或使它们同步。
例如，可用一个滚动条的Change事件过程更新一个TextBox控件中滚动条的Value属性的设置。
或者可以利用Change事件过程在一个工作区里显示数据和公式，在另一个区域里显示结果。
Change事件过程在更新系统控件（DirListBox，DriveListBox和FileListBox）中的各属性时也是有用的。
例如，可更新一个DirListBox控件的Path属性设置来反映一个DriveListBox控件的Drive属性设置的改变。
注意一个Change事件过程有时会导致一个层叠事件。
这种情况在控件的Change事件过程改变该控件的内容时会发生，例如，通过用代码设置一个决定该控件的值的属性，如对一个TextBox控件的Text属性之类的设置。
为了避免层叠事件：
∙如果可能，应避免为控件编写能改变该控件内容的Change事件过程。
如果编写了那样的过程，应确保设置一个标志用来防止在当前变化进行中更进一步的变化。
∙避免创建两个或两个以上其Change事件过程互相影响的控件。
例如，两个TextBox控件在它们的Change事件期间互相更新。
∙避免对HScrollBar和VScrollBar控件在Change事件中使用MsgBox函数或语句。
Change事件示例
本例在TextBox控件中显示水平滚动条的Value属性的数值。
要尝试这个例子，需创建一个带有TextBox控件及HScrollBar控件的窗体，然后将码粘贴到一个带有水平滚动条（HScrollBar控件）和TextBox控件的窗体的声明部分。
按F5键并单击水平滚动条。
PrivateSubForm_Load（）
HScroll1.Min=0'设置最小值。
HScroll1.Max=1000'设置最大值。
HScroll1.LargeChange=100'设置LargeChange.
HScroll1.SmallChange=1'设置SmallChange.
EndSubPrivateSubHScroll1_Change（）
Text1.Text=HScroll1.Value
EndSub
应用于：
ComboBox控件
DirListBox控件
DriveListBox控件
HScrollBar、VScrollBar控件
Label控件
PictureBox控件
TextBox控件
相关基础知识：
对象表达式
说明具体对象的表达式，可以包含对象的容器。
例如，应用程序可以拥有Application对象，其中包含Document对象，而Document对象又包含Text对象。
控件数组
有一公共名称、型态、事件过程的一组控件。
数组中的每个控件都有唯一索引数，可用来决定是哪个控件识别事件。
层叠事件
由事件过程直接或间接调用它自身所引起的一系列事件，也称为事件的层叠或递归。
层叠事件过程经常引起运行时错误的结果，例如堆栈溢出。
Click事件
示例 应用于
此事件是在一个对象上按下然后释放一个鼠标按钮时发生。
它也会发生在一个控件的值改变时。
对一个Form对象来说，该事件是在单击一个空白区或一个无效控件时发生。
对一个控件来说，这类事件的发生是当：
∙用鼠标的左键或右键单击一个控件。
对CheckBox,CommandButton,Listbox或OptionButton控件来说，Click事件仅当单击鼠标左键时发生。
∙通过按下箭头键或者单击鼠标按钮，对ComboBox或ListBox控件中的项目进行选择。
∙当CommandButton,OptionButton或CheckBox控件具有焦点时，按下SPACEBAR键。
∙当窗体带有其Default属性设置为True的CommandButton控件时，按下ENTER键。
∙当窗体带有一个Cancel按钮—其Cancel属性设置为True的CommandButton控件时，按下ESC键。
∙对控件按下一个访问键。
例如，如果一个CommandButton控件的标题是"&Go"，则按下ALT+G键可触发该事件。
也可在代码中触发Click事件，通过：
∙将一个CommandButton控件的Value属性设置为True。
∙将一个OptionButton控件的Value属性设置为True。
∙改变一个CheckBox控件的Value属性的设置。
语法
PrivateSubForm_Click（）
PrivateSubobject_Click（[indexAsInteger]）
Click事件的语法包括下列部分：
部分
描述
object
一个对象表达式，其值是“应用于”列表中的一个对象。
index
一个整数，用来唯一地标识一个在控件数组中的控件。
说明
通常，将一个Click事件过程附加到一个CommandButton控件，Menu对象或PictureBox控件上用来执行命令或类似命令的操作。
对其它可应用的控件来说，使用这个事件来触发一个动作以响应控件中的变化。
可用一个控件的Value属性从代码中测试该控件的状态。
单击一个控件除了产生Click事件以外还可产生MouseDown和MouseUp事件。
这三种事件发生的顺序根据控件的不同而不同。
例如，对ListBox和CommandButton控件来说，这些事件按下列顺序发生：
MouseDown、Click、MouseUp。
但对FileListBox,Label或PictureBox控件来说，这些事件按下列顺序发生：
MouseDown、MouseUp和Click。
当给这些相关的事件附加事件过程时，要确保它们的操作不互相冲突。
如果在应用程序中事件发生的顺序是重要的，则应对控件进行测试以确定事件的顺序。
注意为区别鼠标的左、中、右按钮，应使用MouseDown和MouseUp事件。
如果在Click事件中有代码，则DlbClick事件将永远不会被触发，因为Click事件是两个事件中首先被触发的事件。
其结果是鼠标单击被Click事件截断，从而使DblClick事件不会发生。
Click事件示例
在本例中，每单击一次PictureBox控件时，它都沿对角线方向在窗体中移动。
要尝试这个例子，先将代码粘贴到窗体的声明部分，该窗体的左下角处有一个PictureBox控件，然后按F5键并单击PictureBox。
PrivateSubPicture1_Click（）
Picture1.MovePicture1.Left+750,Picture1.Top-550
EndSub
应用于：
CheckBox控件
ComboBox控件
CommandButton控件
DirListBox控件
FileListBox控件
Form对象、Forms集合
Frame控件
Image控件
Label控件
ListBox控件
MDIForm对象
OLE容器控件
OptionButton控件
PictureBox控件
PropertyPage对象
TextBox控件
UserControl对象
相关基础知识：
焦点
在任何时间接收鼠标单击或键盘输入的能力。
在MicrosoftWindows环境中，在同一时间只有一个窗口、窗体或控件具有这种能力。
“具有焦点”的对象通常会以突出显示标题或标题栏来表示。
用户或应用程序可设置焦点。
访问键
与ALT键同时按下的键，用来打开菜单、执行命令、选择对象，或移向对象。
例如，ALT+F键可以打开“文件”菜单。
对象表达式
说明具体对象的表达式，可以包含对象的容器。
例如，应用程序可以拥有Application对象，其中包含Document对象，而Document对象又包含Text对象。
控件数组
有一公共名称、型态、事件过程的一组控件。
数组中的每个控件都有唯一索引数，可用来决定是哪个控件识别事件。
DblClick事件
示例 应用于
当在一个对象上按下和释放鼠标按钮并再次按下和释放鼠标按钮时，该事件发生。
对于窗体而言，当双击被禁用的控件或窗体的空白区域时，DblClick事件发生。
对于控件而言，DblClick事件在以下情形下发生：
∙用鼠标左键双击控件。
∙双击Style属性设置为1（Simple）的ComboBox控件中的项目，或者在FileListBox、ListBox、DataCombo或DataList控件中的项目。
语法
PrivateSubForm_DblClick（）
PrivateSubobject_DblClick（indexAsInteger）
部分
描述
object
对象表达式，其值是“应用于”列表中的一个对象。
index
如果控件在控件数组内，则这个index值就用来标识该控件。
说明
如果控件在一个控件数组内，则这个Index参数唯一地标识这个控件。
可以使用DblClick事件过程执行一个隐式操作，如双击图标来打开一个窗口或文档。
也可用这类过程执行单一操作的多个步骤，例如用双击在列表框中选定一项并关闭对话框。
要在VisualBasic中产生这类快捷效果，可以使用带有缺省按钮的列表框的或叠层排列文件列表框的DblClick事件过程；所谓缺省按钮就是Default属性设置为True的CommandButton控件。
作为列表框DblClick事件过程的一部分，只需简单调用缺省按钮的Click事件。
对于那些接收Mouse事件的对象，事件按这样的次序发生：
MouseDown,MouseUp,Click,DblClick和MouseUp。
如果DblClick在系统双击时间限制内没有出现，则对象识别另一个Click事件。
双击时间限制可以变化，因为用户可在控制面板设置双击速度。
当与这些相关事件过程打交道时，必须确保它们的活动不发生冲突。
不接受DblClick事件的控件可能接受两次单击而不是DblClick事件。
调试事件时，不要使用MsgBox语句显示事件何时发生，因为这样做将会干扰许多事件的正常功能。
（例如，Click事件中的MsgBox将会阻止DblClick事件的发生。
）而应该用Debug.Print来显示事件发生的顺序。
注意要想区别鼠标的左、右、中按钮，使用MouseDown和MouseUp事件。
DblClick事件示例
无论是通过单击CommandButton控件还是双击列表项，本范例将显示TextBox控件中选定的列表项。
要试用此例，将代码粘贴包含ListBox控件、TextBox控件和CommandButton控件的Form对象的声明部分。
然后运行此例并单击CommandButton控件或双击在ListBox控件中的一项。
PrivateSubForm_Load（）
List1.AddItem"John"'添加列表框项。
List1.AddItem"Paul"
List1.AddItem"George"
List1.AddItem"Ringo"
EndSubPrivateSubList1_DblClick（）
Command1.Value=True'触发Click事件。
EndSubPrivateSubCommand1_Click（）
Text1.Text=List1.Text'显示选定。
EndSub
应用于：
ComboBox控件
FileListBox控件
Form对象、Forms集合
Frame控件
Image控件
Label控件
ListBox控件
MDIForm对象
OLE容器控件
OptionButton控件
PictureBox控件
PropertyPage对象
TextBox控件
UserControl对象
相关基础知识：
对象表达式
说明具体对象的表达式，可以包含对象的容器。
例如，应用程序可以拥有Application对象，其中包含Document对象，而Document对象又包含Text对象。
控件数组
有一公共名称、型态、事件过程的一组控件。
数组中的每个控件都有唯一索引数，可用来决定是哪个控件识别事件。
图标
一个对象或概念的图形表示；一般在MicrosoftWindows中用来表示最小化的应用程序。
图标是位图，最大大小为32x32像素，以.ico为文件扩展名。
DragDrop事件
示例 应用于
在一个完整的拖放动作（即将一个控件拖动到一个对象上，并释放鼠标按钮）完成，或使用Drag方法，并将其action参数被设置为2（Drop）时，该事件发生。
语法
PrivateSubForm_DragDrop（sourceAsControl,xAsSingle,yAsSingle）
PrivateSubMDIForm_DragDrop（sourceAsControl,xAsSingle,yAsSingle）
PrivateSubobject_DragDrop（[indexAsInteger,]sourceAsControl,xAsSingle,yAsSingle）
DragDrop事件语法包含下列部分：
部分
描述
object
一个对象表达式，其值是“应用于”列表中的一个对象。
index
一个整数，用来唯一地标识一个在控件数组中的控件。
source
正在被拖动的控件。
可用此参数将属性和方法包括在事件过程中—例如，Source.Visible=0。
x,y
是一个指定当前鼠标指针在目标窗体或控件中水平（x）和垂直（y）位置的数字。
这些坐标值通常用目标坐标系统来表示，该坐标系是通过ScaleHeight、ScaleWidth、ScaleLeft和ScaleTop属性而设置的。
说明
DragDrop事件过程用来控制在一个拖动操作完成时将会发生的情况。
例如，可将源控件移到一个新的位置或将一个文件从一个位置复制到另一个位置。
当source参数中可能使用多个控件时：
∙应使用TypeOf关键字和If语句一起确定与source表示的控件的类型。
∙应使用该控件的Tag属性来标识一个控件，然后使用DragDrop事件过程。
注意应使用DragMode属性和Drag方法来指定开始拖动的方法。
一旦开始拖动，可使用DragOver事件过程来处理位于DragDrop事件前面的事件。
DragDrop事件示例
本例演示将一个PictureBox控件放到另一个PictureBox控件上的视觉效果。
要尝试这个例子，可将代码粘贴到一个含有3个PictureBox控件的窗体声明部分。
将Picture1和Picture2的DragMode属性设置为1（自动）。
使用Picture属性将位图赋值给Picture1和Picture2，然后按F5键并将Picture1或Picture2拖到Picture3上。
PrivateSubPicture3_DragDrop（SourceAsControl,XasSingle,YAsSingle）
IfTypeOfSourceIsPictureBoxThen
'将Picture3位图设置为与源控件相同。
Picture3.Picture=Source.Picture
EndIf
EndSub
应用于：
CheckBox控件
ComboBox控件
CommandButton控件
Data控件
DirListBox控件
FileListBox控件
DriveListBox控件
Form对象、Forms集合
Frame控件
HScrollBar、VScrollBar控件
Image控件
Label控件
ListBox控件
MDIForm对象
OLE容器控件
OptionButton控件
PictureBox控件
TextBox控件
UserControl对象
相关基础知识：
对象表达式
说明具体对象的表达式，可以包含对象的容器。
例如，应用程序可以拥有Application对象，其中包含Document对象，而Document对象又包含Text对象。
控件数组
有一公共名称、型态、事件过程的一组控件。
数组中的每个控件都有唯一索引数，可用来决定是哪个控件识别事件。
DragOver事件
示例 应用于
它在拖放操作正在进行时发生。
可使用此事件对鼠标指针在一个有效目标上的进入、离开或停顿等进行监控。
鼠标指针的位置决定接收此事件的目标对象。
语法
PrivateSubForm_DragOver（sourceAsControl,xAsSingle,yAsSingle,stateAsInteger）
PrivateSubMDIForm_DragOver（sourceAsControl,xAsSingle,yAsSingle,stateAsInteger）
PrivateSubobject_DragOver（[indexAsInteger,]sourceAsControl,xAsSingle,yAsSingle,stateAsInteger）
DragOver事件语法包括下列部分：
部分
描述
object
一个对象表达式，其值是“应用于”列表中的一个对象。
index
一个整数，用来唯一地标识一个在控件数组中的控件。
source
正在被拖动的控件。
可用此参数在事件过程中引用各属性和方法—例如，Source.Visible=False。
x,y
是一个指定当前鼠标指针在目标窗体或控件中水平（x）和垂直（y）位置的数字。
这些坐标值通常用目标坐标系统来表示，该坐标系是通过ScaleHeight、ScaleWidth、ScaleLeft和ScaleTop属性而设置的。
state
是一个整数，它相应于一个控件的转变状态，该控件在相关目标窗体或控件中正在被拖动：
?
/td>
0=进入（源控件正被向一个目标范围内拖动）。
?
/td>
1=离去（源控件正被向一个目标范围外拖动）。
?
/td>
2=跨越（源控件在目标范围内从一个位置移到了另一位置）。
说明
为了确定在拖动开始后和控件放在目标上之前发生些什么，应使用DragOver事件过程。
例如，通过加亮目标（由代码设置BackColor或ForeColor属性）或者显示一个特定的拖动指针（由代码设置DragIcon或MousePointer属性）可验证有效的目标范围。
为了确定一些关键转变点处的操作，应使用state参数。
例如，当state的设置为0（进入）时可使一个可能的目标加亮，而当state的设置为1（离去）时可恢复该对象先前的外观。
在state的设置为0（进入）对象接收DragOver事件的情况：
∙如果源控件被放在该对象上，则该对象就接收一个DragDrop事件。
∙如果源控件没有被放在该对象上，则当state的设置为1（离去）时该对象就接收另一个DragOver事件。
注意应使用DragMode属性和Drag方法指定开始拖动的方式。
关于source参数的使用技巧，请参阅DragDrop事件说明主题部分。
DragOver事件示例
本例演示一种指示有效的拖放目标的方法。
当一个TextBox控件被拖过一个PictureBox控件时，指针从缺省的箭头变为特定的图标。
当源被拖到其它地方时，指针恢复到缺省的状态。
要尝试这个例子，可将代码粘贴到一个包含1个小TextBox和一个PictureBox的窗体的声明部分。
将TextBox控件的DragMode属性设置为1，然后按F5键并把TextBox拖过PictureBox。
PrivateSubPicture1_DragOver（SourceAsControl,XAsSingle,YAsSingle,StateAsInteger）
SelectCaseState
CasevbEnter
'装载图标。
Source.DragIcon=LoadPic
升级会员 