分享

vb窗体所有事件(1)

 yuxinrong 2009-10-22
vb窗体所有事件(1)
2009-10-03 20:39

(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事件
卸载窗体时触发该事件。


(5) Resize事件
当窗体大小发生改变时,将触发一个Resize事件。


6)Activate Deactivate事件

Activate    当一个对象成为活动窗口时发生。   
Deactivate   当一个
对象变为非活动(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

XY参数:表示鼠标光标所在的坐标值。

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

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多