درس بالصور .. عمل نص متحرك .. داخل فيجوال بيسك !!

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


درسنا اليوم .. مره سهل .. واي واحد يعرف يكتب على لوحة المفاتيح اكيد .. يعرف يطبق درسنا اليوم ,, :D


نبدأ على بركة الله :

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

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

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

4/ أصنع اداتين ( التايمر ) جديدة .. لاحظ الصورة :



بعد ذلك توجه لنافذة البرمجة .. الخاصه بالفورم .. وامسح كافة الأكواد الموجودة فيها ..

لاحظ الصوره ..



ثم قم بنسخ الكود التالي بدلا منها :

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

لاحظ الصوره ..



بعد نسخ الكود ... وعمل كل السابق .. شغل البرنامج .. ..


ستلاحظ ان الكلمة التي كتبتها في اداة ( لبل ) تتحرك .. بشكل رائع ..


بالتوفيق .. وانتظروا القادم ..:D


code hacker