1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\1.gif")
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path & "\2.gif")
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path & "\1.gif")
End Sub