vb Form的基本事件

Private Sub
Form_Activate()

当此窗体变为活动窗口时触发

End Sub

Private Sub Form_Click()

单击时触发

End Sub

Private Sub Form_DblClick()

双击时触发

End Sub

Private Sub Form_Deactivate()

当此窗体不再是活动窗口时触发

End Sub

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

当完成拖放操作时触发

End Sub

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

当进行拖放操作时触发

End Sub

Private Sub Form_GotFocus()

获得焦点时触发

End Sub

Private Sub Form_Initialize()

初始化此程序时

End Sub

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

键盘按下立即触发该事件

End Sub

Private Sub Form_KeyPress(KeyAscii
As Integer)

keydown和keyup中间一段时间触发的事件。

End Sub

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

键盘放开立即触发该事件。

End Sub

Private Sub Form_LinkClose()

该事件在关闭dde链接时产生。通过响应该事件可在dde关闭时作一些善后处理工作。

End Sub

Private Sub Form_LinkError(LinkErr
As Integer)

该事件在进行动态数据交换中发生错误时产生。通过由事件处理过程的参数传递的错误代码，可以在事件过程中处理不同的故障。

End Sub

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

该事件通常是作为服务器的程序在收到客户程序发送的命令时产生。服务器程序通过响应该事件来执行客户程序发送的命令。

End Sub

Private Sub Form_LinkOpen(Cancel As
Integer)

该事件在启动dde时产生，如果vb的窗体作为服务器，则该事件作用于窗体，响应该事件的过程为form—linkopen。如果是vb中的控件作为客户接收数据，则该事件作用于控件。通过响应linkopen事件可以在dde启动时作一些初始化的处理。

End Sub

Private Sub Form_Load()

此事件是在一个窗体被装载时发生。当使用 Load 语句启动应用程序，或引用未装载的窗体属性或控件时，此事件发生。

End Sub

Private Sub Form_LostFocus()

当控件失去焦点时被触发

End Sub

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

判断是左键还是右键击

If Button = 2 Then

MsgBox "单击了右键"

Else

MsgBox "单击了左键"

End If

End Sub

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

当鼠标经过此处时触发事件

End Sub

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

任意键弹起时触发？

这里不懂额

End Sub

Private Sub Form_OLECompleteDrag(Effect
As Long)

原控件拖放到目标控件时发生的事件

End Sub

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

原控件决定放操作发生事件

End Sub

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

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

在OLEDragOver事件后发生的事件

End Sub

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

目标控件在对象上执行GetData方法事件

End Sub

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

在对象上执行了GetData方法事件

End Sub

Private Sub Form_Paint()

当移动窗体、改变窗体大小，最大化，最小化，窗体被其他窗体遮住后再次显示都会执行paint事件

End Sub

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

关闭当前窗体时触发

End Sub

Private Sub Form_Resize()

当窗体的大小的发生变化时触发

End Sub

Private Sub Form_Terminate()

关闭窗体后发生

End Sub

Private Sub Form_Unload(Cancel As
Integer)

关闭程序后发生

End Sub