② MouseUp
鼠标的任一键被释放时触发该事件。
语法格式:
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
③ MouseMove:
鼠标被移动时触发该事件
语法格式:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
说明:
Button:指示用户按下或释放了哪个鼠标按钮
Shift:
指示“Shift”、“Ctrl”、“Alt”键的状态
信息
X、Y:指当前鼠标的位置
例:编写程序:单击左键、右键、Shift+左键、 Ctrl+左键分别显示不同的图片。 程序代码如下:
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 1 Then Image1.Picture = LoadPicture(App.Path + "\12.jpg") ElseIf Shift = 2 Then Image1.Picture = LoadPicture(App.Path + "\13.jpg") ElseIf Button = 1 Then Image1.Picture = LoadPicture(App.Path + "\14.jpg") ElseIf Button = 2 Then Image1.Picture = LoadPicture(App.Path + "\15.jpg") End If End Sub