+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33)
+---- الموضوع : [سؤال] كود تغيير لون command عند مرور مؤشر الفأرة عليه (/showthread.php?tid=1076)
كود تغيير لون command عند مرور مؤشر الفأرة عليه - m-kaylani - 25-11-13
السلام عليكم
السؤال واضح من العنوان أرجو شاكراً إفادتي بالكود المطلوب
ولكم جزيل الشكر
RE: كود تغيير لون command عند مرور مؤشر الفأرة عليه - أبو عمر - 25-11-13
Style
RE: كود تغيير لون command عند مرور مؤشر الفأرة عليه - mmt1270 - 26-11-13
vy good
ممتاز مع الشكر عمل رائع
RE: كود تغيير لون command عند مرور مؤشر الفأرة عليه - abulayth - 26-11-13
السلام عليكم
اخي الكريم كما افاد اخي ابو عمر Lion_Ksa غير command style من الخصائص الى Graphical وبعد ذلك قم باضافة الكود التالي
كود :
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &HFF&
End Sub
Private Sub Form_Load()
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &HC0C0C0
End Subيعطيك العافية
RE: كود تغيير لون command عند مرور مؤشر الفأرة عليه - dohadream - 08-02-14
شكراً على هذه المعلومة
RE: كود تغيير لون command عند مرور مؤشر الفأرة عليه - benbrika - 11-02-14
الله يعطيك ألف عافية .. شكرا .. على هذه الإفادة..
RE: كود تغيير لون command عند مرور مؤشر الفأرة عليه - العيد1403 - 19-03-14
جرب هـذا الكود وبإدن الله سيعجب
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
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
على فكرة هذا الكود مأخود من برنامج صغير إسمه بنك الأكواد
RE: كود تغيير لون command عند مرور مؤشر الفأرة عليه - عبدالمؤمن - 26-11-22
شكار لكم ومزيدا من التقدم اخوتي