منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
السؤال واضح من العنوان أرجو شاكراً إفادتي بالكود المطلوب
ولكم جزيل الشكر

Style

vy good

---

ممتاز مع الشكر عمل رائع

السلام عليكم

اخي الكريم كما افاد اخي ابو عمر Lion_Ksa غير command style من الخصائص الى Graphical وبعد ذلك قم باضافة الكود التالي

يعطيك العافية

شكراً على هذه المعلومة

الله يعطيك ألف عافية .. شكرا .. على هذه الإفادة..

جرب هـذا الكود وبإدن الله سيعجب

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static CtrMov As Boolean
With Command1 'Change this 'Command1' to your control name
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
ReleaseCapture
CtrMov = False
'Put here your code to LostMouseFocus
'For example:
Me.Print "LostMouseFocus"
Else
SetCapture .hwnd
If CtrMov = False Then
CtrMov = True
'Put here your code to GetMouseFocus
'For example:
Me.Print "GetMouseFocus"
End If
End If
End With
End Sub

شكار لكم ومزيدا من التقدم اخوتي