vb Form的基本事件

Private SubForm_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 AsControl, X As Single, Y As Single)
当完成拖放操作时触发
End Sub

Private Sub Form_DragOver(Source AsControl, 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 AsInteger, Shift As Integer)
键盘按下立即触发该事件
End Sub

Private Sub Form_KeyPress(KeyAsciiAs Integer)
keydown和keyup中间一段时间触发的事件。
End Sub

Private Sub Form_KeyUp(KeyCode AsInteger, Shift As Integer)
键盘放开立即触发该事件。
End Sub

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

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

Private Sub Form_LinkExecute(CmdStrAs String, Cancel As Integer)
该事件通常是作为服务器的程序在收到客户程序发送的命令时产生。服务器程序通过响应该事件来执行客户程序发送的命令。
End Sub

Private Sub Form_LinkOpen(Cancel AsInteger)
该事件在启动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 AsInteger, 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 AsInteger, Shift As Integer, X As Single, Y As Single)
当鼠标经过此处时触发事件
End Sub

Private Sub Form_MouseUp(Button AsInteger, Shift As Integer, X As Single, Y As Single)
任意键弹起时触发？
这里不懂额
End Sub

Private Sub Form_OLECompleteDrag(EffectAs Long)
原控件拖放到目标控件时发生的事件
End Sub

Private Sub Form_OLEDragDrop(Data AsDataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, YAs Single)
原控件决定放操作发生事件
End Sub

Private Sub Form_OLEDragOver(Data AsDataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, YAs Single, State As Integer)
一个控件在另一个控件上拖动的事件
End Sub

Private Sub Form_OLEGiveFeedback(EffectAs Long, DefaultCursors As Boolean)
在OLEDragOver事件后发生的事件
End Sub

Private Sub Form_OLESetData(Data AsDataObject, DataFormat As Integer)
目标控件在对象上执行GetData方法事件
End Sub

Private Sub Form_OLEStartDrag(DataAs DataObject, AllowedEffects As Long)
在对象上执行了GetData方法事件
End Sub

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

Private Sub Form_QueryUnload(CancelAs Integer, UnloadMode As Integer)
关闭当前窗体时触发
End Sub

Private Sub Form_Resize()
当窗体的大小的发生变化时触发
End Sub

Private Sub Form_Terminate()
关闭窗体后发生
End Sub

Private Sub Form_Unload(Cancel AsInteger)
关闭程序后发生
End Sub