تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار عن شيء في الزر
#1
بسم الله الرحمن الرحيم

يا شباب بدي طريقو او كود انو طول ما انا ضاغط على الزر او الصورة ينفز كود معين لما اشيل الضغط يرجع و يبطل عمل الكود بليز شباب بدي الحل منكم بسرعة ~~"
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- أعتذر منك أخي الكريم ، يبدو أنه فيه مشكلة عندي في المتصفح ، لأنه لم أرى أي نص في سؤال سوى جملة "بسم الله الرحمن الرحيم" . لذلك كتب علامة الإستفهام والتعجب .

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم....

أسهل و أضمن طريقة هي استعمال مؤقت (Timer) و الحدثين MouseDown و MouseUp للزر...
كود :
' عند الضغط على الزر: نفعل المؤقت ليبدأ تنفيذ الكود
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Timer1_Timer
        Timer1.Enabled = True
    End If
End Sub

' عند تحرير الزر: نوقف المؤقت ليوقف تنفيذ الكود
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Timer1.Enabled = False
    End If
End Sub

' حدث المؤقت
Private Sub Timer1_Timer()
    ' ضع هنا كل الكود الذي تريد تنفيذه عند الضغط على الزر
End Sub

و في المرفقات برنامج صغير يستعمل نفس الخطوات لتحريك و إيقاف Label أفقياً.

نرجو الاستفادة و السلام.


الملفات المرفقة
.rar   MoveStopByMouse.rar (الحجم : 1.57 ك ب / التحميلات : 42)
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#4
شكرا جزيلا استاذ ناجي ابراهيم و شكرا جزيلا استاذي vb coder لانو لو شفت السؤال كان جاوبتني لاكن استاذ ناجي جوابو كافي
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بارك الله فيكم افيدوني اي سفن 2 189 26-12-23, 05:15 PM
آخر رد: اي سفن
  استفسار احمد جعبلي 3 865 30-03-23, 06:51 PM
آخر رد: sanyor77
  استفسار السفير الخرافي 2 651 21-02-23, 08:23 PM
آخر رد: Taha Okla
  استفسار عن طريقة حماية تطبيقات الفيجوال بيسك moghastar 2 3,703 16-10-20, 02:15 AM
آخر رد: مقداد إسماعيل
  استفسار عن طريقة الربط بين قاعدة بيانات اكسيس 2003 عن طريق الانترنت jordaniancopy 1 1,850 29-08-20, 11:46 PM
آخر رد: diggitalk2017@gmail.com
  [Acces2010] استفسار بخصوص الفيجول بيسك والاكسس issamsaidd 1 2,199 19-12-18, 01:24 AM
آخر رد: elgokr
  [vb6.0] استفسار عن كيفية اغلاق فورم في حال لم يوجد فيه بيانات فيجوال 0.6 عمر سالم 4 3,034 26-01-17, 03:37 PM
آخر رد: عمر سالم
  [سؤال] مساعدة في كتابة كود الزر تخزين مزنة 9 3,893 28-11-16, 12:44 PM
آخر رد: مزنة
  [سؤال] استفسار بخصوص DataGrid ؟ ghareeb_hany 2 2,343 08-01-16, 10:04 PM
آخر رد: ghareeb_hany
  [vb6.0] استفسار اريد غلق Form2 وانهائه chaabane 2 2,820 01-08-15, 07:22 PM
آخر رد: semmou

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


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