(2) Change事件 当 Label的 Caption属性的值发生改变时此事件发生。 法: Private Sub object Change([index As Integer) Change事件可协调在各控件间显示的数据或使它们同 步 16
16 （2）Change事件 当Label的Caption属性的值发生改变时此事件发生。语 法： Private Sub object_Change([index As Integer]) Change事件可协调在各控件间显示的数据或使它们同 步
(3) Mousemove事件(详见第9章) 移动鼠标时发生该事件。语法: Private Sub object Mouse Move([ index As Integer, button As Integer, shift As Integer, x As Single, y As Single) button为一个整数,它对应鼠标各个按钮的状态: · button=1,左按钮按下; button=2,右按钮按下; · button=4,中间按钮按下 · button=0,无键按下 Mouse move事件参数: shit为一个整数,它对应于SHFT、CTRL、ALT键的状态: shift=1, SHIFT键按下 hift=2,CTRL键按下; shift=4,ALT键按下。 · shift=0, SHIFT、CTRL、ALT都没按 shift==2+4=6,CTRL、ALT键同时按下 ⅹ和y指定鼠标当前位置,其值由窗体的坐标系统确定。 17
17 （3）MouseMove事件（详见第9章） 移动鼠标时发生该事件。语法： Private Sub object_MouseMove([ index As Integer, ] button As Integer, shift As Integer, x As Single, y As Single) – button为一个整数，它对应鼠标各个按钮的状态： • button=1，左按钮按下； • button=2，右按钮按下； • button=4，中间按钮按下； • button=0，无键按下。 MouseMove事件参数： – shift为一个整数，它对应于SHIFT、CTRL、ALT键的状态： • shift=1，SHIFT键按下； • shift=2，CTRL键按下； • shift=4，ALT键按下。 • shift=0，SHIFT、CTRL、ALT都没按 shift=2+4=6，CTRL、ALT键同时按下 – x和y指定鼠标当前位置，其值由窗体的坐标系统确定
(4) MouseDown、 MouseUp事件 (详见第9章) 当按下鼠标按钮时, Mousedow事件发生,释 放鼠标按钮时 MouseUp事件发生。语法: Private Sub object MouseUp(lindex As integer, button As Integer, shift As Integer, x As Single, y As Single Private Sub object MouseDown(lindex As Integer button As integer, shift As Integer, x As Single, y As Single) 18
18 （4）MouseDown、MouseUp事件 （详见第9章） 当按下鼠标按钮时，MouseDown事件发生，释 放鼠标按钮时MouseUp事件发生。语法： – Private Sub object_MouseUp([index As Integer,] button As Integer, shift As Integer, x As Single, y As Single) – Private Sub object_MouseDown([index As Integer,] button As Integer, shift As Integer, x As Single, y As Single)
2.方法 ORder将指定控件放置在其图层的Z方向(垂 直于平面的方向)的前端或后端: abell. Border1将对象 Label置于后端 Label1! BOrder0将对象 Label1置于前端
19 2. 方法 ZOrder将指定控件放置在其图层的Z方向（垂 直于平面的方向）的前端或后端： Label1.ZOrder 1 '将对象Label1置于后端 Label1.ZOrder 0 '将对象Label1置于前端
例5-1窗体上有红、绿、黄3种颜色的文字,鼠标 每双击一次文字区,文字的颜色就改变一次。 Private Sub Labell_DblClick .s 女字次变化 Labell order 1 End Sub Private Sub Label2 DblClick Visual Basic Label2. order 1 程序设计教程 End Sub Private Sub label dblClick Label. Order 1 图5-3 Label控件 End sub 20
20 例5-1 窗体上有红、绿、黄3种颜色的文字，鼠标 每双击一次文字区，文字的颜色就改变一次。 Private Sub Label1_DblClick() Label1.ZOrder 1 End Sub Private Sub Label2_DblClick() Label2.ZOrder 1 End Sub Private Sub Label3_DblClick() Label3.ZOrder 1 End Sub 图5-3 Label控件