منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم

اريد كود تحريك ل 3 مرات فقط

نضع هذا :

كود :

x=0

Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

x=x+1

if x>3 then 

End Sub

فما هو الكود الذي يكتب بعد ال then كي لا يسمح بتحريك التكست 1 في المرة الرابعة

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

If x > 3 Then Exit Sub

أو:

If x < 4 Then
' اكتب كود التحريك هنا
End If

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

asto