VB程序界面设计.pptVIP

* * * * * Form1.Line (1, 1)-(2000, 2000) Form1.Line (1, 1)-(2000, 2000), , B Form1.Line (1, 1)-(2000, 2000), , BF * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 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) Source.Move X, Y 将源控件移到鼠标指针所指新位置 End Sub 返回目录 5.5 鼠标与键盘事件－键盘事件 1. KeyPress事件 按下键盘上与ASCII字符对应的键时触发KeyPress事件 Private Sub 对象名称_KeyPress(KeyAscii As Integer) 参数KeyAscii返回按键的ASCII代码值 KeyAscii设为0，则对象无法接收用户的输入 例如，以下的事件过程只允许在Text1中输入数字字符0～9 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 ‘