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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة في كتابة كود الزر تخزين مزنة 9 197 28-11-16, 12:44 PM
آخر رد: مزنة
  [سؤال] استفسار بخصوص DataGrid ؟ ghareeb_hany 2 255 08-01-16, 10:04 PM
آخر رد: ghareeb_hany
  [vb6.0] استفسار اريد غلق Form2 وانهائه chaabane 2 637 01-08-15, 07:22 PM
آخر رد: semmou
  [vb6.0] استفسار عن رسالة خطء chaabane 3 525 13-04-15, 09:19 PM
آخر رد: chaabane
  [vb6.0] استفسار عن برمجت التايمر chaabane 4 465 06-04-15, 09:46 PM
آخر رد: chaabane
Sad [سؤال] استفسار حول برمجتslider1 chaabane 1 359 02-04-15, 12:14 PM
آخر رد: abulayth
  [vb6.0] استفسار chaabane 2 360 14-02-15, 05:59 AM
آخر رد: Ahmed_Mansoor
  استفسار عن طريقة حماية تطبيقات الفيجوال بيسك moghastar 1 794 25-08-13, 07:15 PM
آخر رد: ahmed3d
  استفسار بسيط AHMED213 3 539 24-08-13, 02:38 PM
آخر رد: AHMED213
  استفسار في طريقة الربط بين combo و list في الـ VB 6 moghastar 4 1,087 24-08-13, 02:19 AM
آخر رد: moghastar

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


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