26-08-13, 09:43 PM
بسم الله الرحمن الرحيم
يا شباب بدي طريقو او كود انو طول ما انا ضاغط على الزر او الصورة ينفز كود معين لما اشيل الضغط يرجع و يبطل عمل الكود بليز شباب بدي الحل منكم بسرعة ~~"
26-08-13, 09:43 PM
26-08-13, 11:31 PM
السلام عليكم
- أعتذر منك أخي الكريم ، يبدو أنه فيه مشكلة عندي في المتصفح ، لأنه لم أرى أي نص في سؤال سوى جملة "بسم الله الرحمن الرحيم" . لذلك كتب علامة الإستفهام والتعجب .
- تحياتي .
- أعتذر منك أخي الكريم ، يبدو أنه فيه مشكلة عندي في المتصفح ، لأنه لم أرى أي نص في سؤال سوى جملة "بسم الله الرحمن الرحيم" . لذلك كتب علامة الإستفهام والتعجب .
- تحياتي .
27-08-13, 02:24 AM
السلام عليكم....
أسهل و أضمن طريقة هي استعمال مؤقت (Timer) و الحدثين MouseDown و MouseUp للزر...
و في المرفقات برنامج صغير يستعمل نفس الخطوات لتحريك و إيقاف Label أفقياً.
نرجو الاستفادة و السلام.
أسهل و أضمن طريقة هي استعمال مؤقت (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 أفقياً.
نرجو الاستفادة و السلام.
27-08-13, 12:26 PM
شكرا جزيلا استاذ ناجي ابراهيم و شكرا جزيلا استاذي vb coder لانو لو شفت السؤال كان جاوبتني لاكن استاذ ناجي جوابو كافي