VB程序界面设计说明.pptVIP

* * * * * * * * * Form1.Line (1, 1)-(2000, 2000) Form1.Line (1, 1)-(2000, 2000), , B Form1.Line (1, 1)-(2000, 2000), , BF * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 5.5 鼠标与键盘事件－鼠标事件 [例5.10] 用Move方法移动窗体上的图片： 窗体上按下左键，图片框的左上角移到当 前鼠标指针所在位置；按下右键，则图片框 的中心移到当前鼠标指针所在位置。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 按下左键 Picture1.Move X, Y End If If Button = 2 Then 按下右键 Picture1.Move (X - Picture1.Width / 2), (Y - Picture1.Height / 2) End If End Sub 返回目录 5.5 鼠标与键盘事件－鼠标事件 MouseMove Private Sub对象名称_MouseMove(Button As Integer，Shift As Integer, X As Single，Y As Single) 除Button参数(见教材表5.5)，其余参数的含义与MouseDown和MouseUp的相同 [例5.11]让图片框中的文本框跟随鼠标指针移动 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = X , Y 显示当前鼠标位置 Text1.Left = X Text1.Top = Y End Sub 返回目录 5.5 鼠标与键盘事件－鼠标事件 2. 拖放操作(DragDrop) 若干术语 Drag：按下鼠标按钮并移动对象的操作 Drop：到达目的地后释放鼠标按钮的操作 源：被拖动的对象 目标：是源控件放下或经过的对象 只有目标对象能响应DragDrop或DragOver事件 返回目录 5.5 鼠标与键盘事件－鼠标事件 DragMode属性：设置拖动模式 DragMode=1 (vbAutomatic)，自动模式，鼠标拖动 DragMode=0 (vbManual)，手工模式，程序中启动 DragDrop事件 拖动一个控件到目的位置并释放鼠标按钮时，在目标对象上(不是被拖的对象)触发DragDrop事件 Private Sub 对象名称_DragDrop(Source As Control, X As Single, Y As Single) 其中，Source代表被拖动的控件，X和Y表示鼠标指针的当前坐标位置。 返回目录 5.5 鼠标与键盘事件－鼠标事件 DragOver事件 拖动控件时，在目标对象上触发DragOver事件 Private Sub Form_DragOver(Source As Control, X As Single, Y As Single,State As Single) 其中，Source、X和Y参数的含义同DragDrop事件，State参数表示被拖控件与目标对象之间的相对位置关系 Drag方法 用于启动或停止手工拖动： [对象.] Drag 动作参数 返回目录 vbCancel 0 取消拖动操作 vbBeginDrag 1 开始拖动 object vbEndDrag 2 结束拖放 object 5.5 鼠标与键盘事件－鼠标事件 [例5.12] 实现在窗体上随意拖动图片框或文本框 Private Sub Form_Load() Picture1.DragMode = 1 设置图片框控件为自动拖动模式 Text1.DragMode = 1 设置文本框控件为自动拖动模式 End Sub Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)