25-11-13, 02:20 PM
السلام عليكم
السؤال واضح من العنوان أرجو شاكراً إفادتي بالكود المطلوب
ولكم جزيل الشكر
السؤال واضح من العنوان أرجو شاكراً إفادتي بالكود المطلوب
ولكم جزيل الشكر
[سؤال] كود تغيير لون command عند مرور مؤشر الفأرة عليه
|
25-11-13, 02:20 PM
السلام عليكم
السؤال واضح من العنوان أرجو شاكراً إفادتي بالكود المطلوب ولكم جزيل الشكر
25-11-13, 04:46 PM
Style
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
تم الشكر بواسطة: m-kaylani
vy good
ممتاز مع الشكر عمل رائع تم الشكر بواسطة: m-kaylani
26-11-13, 07:24 PM
السلام عليكم
اخي الكريم كما افاد اخي ابو عمر Lion_Ksa غير command style من الخصائص الى Graphical وبعد ذلك قم باضافة الكود التالي كود : Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) يعطيك العافية (( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
تم الشكر بواسطة: ناجي إبراهيم , m-kaylani , VB_Local , عبد العزيز البسكري , عبد العزيز البسكري
08-02-14, 02:52 PM
شكراً على هذه المعلومة
11-02-14, 10:34 PM
الله يعطيك ألف عافية .. شكرا .. على هذه الإفادة..
19-03-14, 04:44 PM
جرب هـذا الكود وبإدن الله سيعجب 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 على فكرة هذا الكود مأخود من برنامج صغير إسمه بنك الأكواد
|
|
المواضيع المحتمل أن تكون متشابهة . | |||||
الموضوع : | الكاتب | الردود : | المشاهدات : | آخر رد | |
تغيير باسورد قاعدة بيانات الأكسس بالكود | Ahmed_Mansoor | 4 | 3,237 |
05-01-24, 06:25 AM آخر رد: Whled2020 |
|
تحريك المكونات و تغيير حجمها أثناء التشغيل | ناجي إبراهيم | 5 | 4,643 |
29-01-18, 03:28 PM آخر رد: ahmed_king |