Private Sub imgBig_MouseUp _
(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And vbLeftButton) <> 0 Then
Call MoveBig(imgBig(Index), 0, 28)
Else
Call MoveBig(imgBig(Index), 1, 28)
End If
nTimes = nTimes + 1
End Sub
(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And vbLeftButton) <> 0 Then
Call MoveBig(imgBig(Index), 0, 28)
Else
Call MoveBig(imgBig(Index), 1, 28)
End If
nTimes = nTimes + 1
End Sub
这个函数应该就是移动图片, 按鼠标左键移动0,28, 鼠标右键移动1,28