یک کار جالبتر شما میتونید با نوشتن کد زیر در MSFlexGrid1_MouseMove پیغامی به کاربر نشان دهید و عدم امکان حرکت موس را در آن منطقه نمایش دهید :
Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If botton = 0 Then
MsgBox "You can't move mouse."
End If
End Sub
حالا اگر میخواهید که برای مثال با حرکت کردن موس روی کنترل محل قرارگیری نشانگر در محل خاصی باشد, از کد زیر استفاده کنید:
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Point As POINTAPI
Me.ScaleMode = vbPixels
Point.x = 0
Point.y = 0
ClientToScreen MSFlexGrid1.hwnd, Point
If botton = 0 Then
SetCursorPos Point.x, Point.y
End If
End Sub
* این کد دارای دو api دیگر هست که در حال حاضر وقت توضیح دادن تک تک آنها را ندارم. اگر این کد به دردتان خورد و در صورت تمایل بگید تا توصیح بدم. :wink:
پاسخ با نقل قول