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时窗体为模态。模态窗体完全占有应用程序控制权,不允许切换到别的应用程序,除非关闭!而非模态窗体则反之。

相关文档