تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود تغيير لون command عند مرور مؤشر الفأرة عليه
#1
السلام عليكم
السؤال واضح من العنوان أرجو شاكراً إفادتي بالكود المطلوب
ولكم جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#2
Style
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: m-kaylani
#3
vy good

ممتاز مع الشكر عمل رائع
الرد }}}}
تم الشكر بواسطة: m-kaylani
#4
السلام عليكم

اخي الكريم كما افاد اخي ابو عمر 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

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

الرد }}}}
#5
شكراً على هذه المعلومة
الرد }}}}
تم الشكر بواسطة:
#6
الله يعطيك ألف عافية .. شكرا .. على هذه الإفادة..
الرد }}}}
تم الشكر بواسطة:
#7
جرب هـذا الكود وبإدن الله سيعجب


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


على فكرة هذا الكود مأخود من برنامج صغير إسمه بنك الأكواد
الرد }}}}
تم الشكر بواسطة: m-kaylani , VB_Local


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير باسورد قاعدة بيانات الأكسس بالكود Ahmed_Mansoor 2 325 26-03-16, 03:58 PM
آخر رد: rohaem
  تحريك المكونات و تغيير حجمها أثناء التشغيل ناجي إبراهيم 4 1,882 26-03-16, 03:57 PM
آخر رد: rohaem

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم