انشاء نص متحرك في فيجوال

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

انشاء نص متحرك في فيجوال

مُساهمة من طرف أيمن الإبراهيم في الخميس ديسمبر 12, 2013 11:54 pm

اهلا وسهلا بكم في منتدى مصر التقني

-------------------------
لانشاء نص متحرك  قم بالخطوات التالية :

1/ أفتح الفيجوال بيسيك ..

2/ أصنع ( فورم ) جديد ...

3/ أصنع أداة ( لبل ) جديدة .. واكتب اي شيء تريد ..

4/ أصنع اداتين ( التايمر ) جديدة

5-  قم بكتابة النص المراد تحريكه في لبل



الان ننتقل لكتابة الكود
اذهب الى صفحة اكواد الفورم وقم بحذف الموجود  واستبدالها بالكود التالي :


الرمز:
[left]Dim Llabel As Integer

Private Sub Form_Load()
Form1.ScaleMode = 3
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Llabel = Llabel + 10
Label1.Left = Llabel
If Llabel > 300 Then
Timer1.Interval = 0
Timer2.Interval = 100
End If
End Sub

Private Sub Timer2_Timer()
Llabel = Llabel - 10
Label1.Left = Llabel
If Llabel < 0 Then
Timer1.Interval = 100
Timer2.Interval = 0
End If
End Sub[/left]


قم بتشغيل البرنامج وستلاحظ النص المتحرك  هو نص البل


والى القاء في دروس جديدة

أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى