VB常用的窗体事件

常用窗体事件

（1）Click 事件

在程序运行时单击窗体内的某个位置，Visual Basic将调用窗体的Form_Click 事件。如果单击的是窗体内的控件，则只能调用相应控件的Click事件。Click 事件：标题栏显示“鼠标单击”，窗体显示"欢迎使用VB"

Private Sub Form_Click()

Caption = "鼠标单击"

Print "欢迎使用VB"

End Sub

（2）DblClick 事件

程序运行时双击窗体内的某个位置，就触发了两个事件，第一次按动鼠标时，触发Click事件，第二次产生DblClick事件。DblClick 事件：标题栏显示“双击窗体” ，清除背景图。

Private Sub Form_DblClick()

Caption = "鼠标双击"

Picture = LoadPicture("")

Print "结束使用VB"

End Sub

(3) Initialize初始化事件与 Load事件

在程序运行时，当窗体被装入工作区时开始为Initialize之后才触发它的Load 事件。所以该事件通常用来在启动应用程序时,对控件属性和变量初始化Private Sub Form_Load()

Caption = "装入窗体"

Picture = LoadPicture ( App.Path + "\window.jpg")

FontSize = 48

FontName = "隶书"

Print "装入窗体"

End Sub

(4) Unload事件

Private Sub Form_Unload(cancel As Integer)

卸载窗体时触发该事件。

(5) Resize事件

Private Sub Form_Resize()

当窗体大小发生改变时，将触发一个Resize事件。

（6）Activate事件（活动事件）& Deactivate事件（非活动事件）

Activate 当一个对象成为活动窗口时发生。

Private Sub object_Activate()

Deactivate 当一个对象变为非活动(Deactivate)事件当在程序运行过程中,一个窗体变为非活动窗体时,则产生该事件

Private Sub object_Deactivate()

（7）MouseDown事件：按下鼠标任意键时产生

（8）MouseMove事件：按下鼠标任意键，并移动鼠标时产生。

（9）MouseUp事件：放开鼠标任意键时产生。

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

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

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

由上可见，上述3个事件的参数都是一样的，说明如下：

Button参数：表示按下的鼠标是哪一个键。1表示按下鼠标左键，2表示按下鼠标右键，4表示按下鼠标的中间键。Shift参数：是一个整数值，其取值的含义见vb窗体所有事件（2）表4-2。

X、Y参数：表示鼠标光标所在的坐标值。

（10）DragDrop事件：鼠标点住某一对象并拖动，直到放开鼠标键时才发生该事件，在拖放过程中，不发生DragDrop事件。

Private Sub Picture3_DragDrop (Source As Control, X as Single, Y As Single) 11）显示或隐藏窗体

要显示或隐藏窗体，用Show或Hide方法。若尚未装入内存则先装入再显示。显示窗体：formName.show mode

[obiect].Show[Style]，[OwnerForm]

隐藏窗体：formName.hide

Object.Hide

FormName变量是窗体名，可选变元mode为0（缺省值）时窗体为非模态，为1时窗体为模态。模态窗体完全占有应用程序控制权，不允许切换到别的应用程序，除非关闭！而非模态窗体则反之。