Option Explicit
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim OldPOS as POINTAPI '保存鼠標之前的位置。
以上部分放在窗體的聲明中。
窗體的load事件中加入以下代碼:
GetCursorPos OldPOS
然後在圖片框的Mousemove事件中加入以下代碼(假設圖片框叫Picturebox1,窗體名為Form1)
Dim A As POINTAPI
GetCursorPos A
if (A.X - OldPOS.X) > 0 Then
Picturebox1.Image=LoadPicture (圖片b的路徑)
Else
Picturebox1.Image=LoadPicture (圖片a的路徑)
End If
Picturebox1.Left=A.X-Form1.Left -.5 * Picturebox1.Width
Picturebox1.Top=A.X-Form1.Top -.5 * Picturebox1.Height
OldPOS =A
這樣就應該可以了。圖片框加載圖片的方法有好幾種,具體請自己百度。(用掌上百度回答問題相當蛋疼啊。)