الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب:عايز الكتابة تتحرك من اليسار الي اليمين

مغلق
بدأه hamata في 1 يوليو 2007 · 7 رد · 707 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا عملت لبيل بيتحرك ولكنة بيتحرك من اليمين الي اليسار عن طريق هذا الكود:

 Label1.Move Label1.Left - 25
  If Label1.Left < -Label1.Width Then Label1.Left = Picture1.Width

اريد: كود يحرك الكتابة من اليسار الي اليمين؟؟؟؟؟؟؟؟؟

ارجو الافادة بسرعة

#2

انشئ تايمر

If Label1.Left <> 0 Then
Label1.Left = Label1.Left - 100
Else
Timer1.Enabled = False
Label1.Left = 3000
Timer1.Enabled = True
End If

6.rar

startingprogremmer.jpg
#3

يا اخي انا عايزها تتحرك بالعكس اللي انت عملته

يعني اعكسها اخي

وارجو الحل بسرعة

واسف تعبتك معي

#4

العكس 

If Label1.Left <> 3000 Then
Label1.Left = Label1.Left + 100
Else
Timer1.Enabled = False
Label1.Left = 0
Timer1.Enabled = True
End If
startingprogremmer.jpg
#5

تعديل بسيط

If Label1.Left > 3000 Or Label1.Left = 3000 Then
Label1.Left = Label1.Left + 100
Else
Timer1.Enabled = False
Label1.Left = 0
Timer1.Enabled = True
End If

تم تعديل هذه المشاركة بواسطة مبرمج مبتدا في 1 يوليو 2007 في 05:42

startingprogremmer.jpg
#6

اخي الكتابة تتحرك بس ما ترجع من الناحية الاخري

#7 
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 50
If Label1.Left > Form1.Width Then
Label1.Left = 0
Else
End If
End Sub

ألا بذكر الله تطمئن القلوب

#8

شكرا لك اخي

المزمجر ومبرمج مبتدأ

كرا لكما جزيلا جداا

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…