تقييم الموضوع :
  • 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 ك ب / التحميلات : 41)
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
تم الشكر بواسطة:
#4
شكرا جزيلا استاذ ناجي ابراهيم و شكرا جزيلا استاذي vb coder لانو لو شفت السؤال كان جاوبتني لاكن استاذ ناجي جوابو كافي
لو كان للضمير العربي (واتس اب)Huh
لكان اخر ظهور له منذ زماان بعيدConfused
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [Acces2010] استفسار بخصوص الفيجول بيسك والاكسس issamsaidd 1 292 19-12-18, 01:24 AM
آخر رد: elgokr
  [vb6.0] استفسار عن كيفية اغلاق فورم في حال لم يوجد فيه بيانات فيجوال 0.6 عمر سالم 4 1,059 26-01-17, 03:37 PM
آخر رد: عمر سالم
  [سؤال] مساعدة في كتابة كود الزر تخزين مزنة 9 1,297 28-11-16, 12:44 PM
آخر رد: مزنة
  [سؤال] استفسار بخصوص DataGrid ؟ ghareeb_hany 2 835 08-01-16, 10:04 PM
آخر رد: ghareeb_hany
  [vb6.0] استفسار اريد غلق Form2 وانهائه chaabane 2 1,288 01-08-15, 07:22 PM
آخر رد: semmou
  [vb6.0] استفسار عن رسالة خطء chaabane 3 1,144 13-04-15, 09:19 PM
آخر رد: chaabane
  [vb6.0] استفسار عن برمجت التايمر chaabane 4 1,449 06-04-15, 09:46 PM
آخر رد: chaabane
Sad [سؤال] استفسار حول برمجتslider1 chaabane 1 822 02-04-15, 12:14 PM
آخر رد: abulayth
  [vb6.0] استفسار chaabane 2 875 14-02-15, 05:59 AM
آخر رد: Ahmed_Mansoor
  استفسار عن طريقة حماية تطبيقات الفيجوال بيسك moghastar 1 1,441 25-08-13, 07:15 PM
آخر رد: ahmed3d

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


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