Question

鼠标移到图片框并按下左键时改变鼠标指针的形状，鼠标离开图片框后即恢复原来的鼠标指针形状。代码如何编

请vb高人帮忙。先行谢谢了。

Answer 1

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseEnter As Boolean
MouseEnter = (0 <= X) And (X <= Picture1.Width) And (0 <= Y) And (Y <= Picture1.Height)
If Not MouseEnter Then
Picture1.MousePointer = 0
ReleaseCapture
End If
End Sub

Private Sub Picture1_Click()
Picture1.MousePointer = 99
'自定义鼠标指针此处为99，MouseIcon需设置
SetCapture Picture1.hwnd
End Sub