- أعتذر منك أخي الكريم ، يبدو أنه فيه مشكلة عندي في المتصفح ، لأنه لم أرى أي نص في سؤال سوى جملة "بسم الله الرحمن الرحيم" . لذلك كتب علامة الإستفهام والتعجب .
أسهل و أضمن طريقة هي استعمال مؤقت (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 أفقياً.