Question

vb form的事件

activate
resize
paint
等等.
就是那个下拉菜单里面的
你人很好。这些事件我也知道。只是想知道每个事件代表什么意思？

Answer 1

Activate －当一个对象成为活动窗口时发生。
(活动窗口：在前景上显示的窗口，其标题栏或边框以突出显示，用来与其它可见窗口相区别。)

Resize 当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生。（例如，一个窗体被最大化、最小化或被还原。）

Paint 在一个对象被移动或放大之后，或在一个覆盖该对象的窗体被移开之后，该对象部分或全部暴露时，此事件发生。

Answer 2

就是这些事件，我刚复制下来的。。。

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)

End Sub

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

End Sub

Private Sub Form_LinkClose()

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)

End Sub

Private Sub Form_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)

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)

End Sub

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

End Sub

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

End Sub

Private Sub Form_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

Answer 3

End好像不会触发任何事件。
Unload可以触发Form_Unload事件。

Answer 4

单击窗体
关闭程序
不会触发