تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود تغيير لون command عند مرور مؤشر الفأرة عليه
#1
السلام عليكم
السؤال واضح من العنوان أرجو شاكراً إفادتي بالكود المطلوب
ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
Style
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: 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
#8
شكار لكم ومزيدا من التقدم اخوتي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير باسورد قاعدة بيانات الأكسس بالكود Ahmed_Mansoor 4 3,237 05-01-24, 06:25 AM
آخر رد: Whled2020
  تحريك المكونات و تغيير حجمها أثناء التشغيل ناجي إبراهيم 5 4,643 29-01-18, 03:28 PM
آخر رد: ahmed_king

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


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