منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار عن شيء في الزر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : استفسار عن شيء في الزر (/showthread.php?tid=10249)

استفسار عن شيء في الزر - ahmed3d - 26-08-13

بسم الله الرحمن الرحيم

يا شباب بدي طريقو او كود انو طول ما انا ضاغط على الزر او الصورة ينفز كود معين لما اشيل الضغط يرجع و يبطل عمل الكود بليز شباب بدي الحل منكم بسرعة ~~"

استفسار عن شيء في الزر - VB_Coder - 26-08-13

السلام عليكم

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

- تحياتي .

استفسار عن شيء في الزر - ناجي إبراهيم - 27-08-13

السلام عليكم....

أسهل و أضمن طريقة هي استعمال مؤقت (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 أفقياً.

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

استفسار عن شيء في الزر - ahmed3d - 27-08-13

شكرا جزيلا استاذ ناجي ابراهيم و شكرا جزيلا استاذي vb coder لانو لو شفت السؤال كان جاوبتني لاكن استاذ ناجي جوابو كافي