اكواد للفيجوال بيسك 6

البرنامج الأول :

البرنامج عبارة عن برنامج ترحیب يستخدم للترحیب عند الضغط على أي لغة فإن البرنامج يظھر كلمة الترحیب الخاصة بكل لغة

 

افتح مشروع قیاسي جديد Standard.exe ثم غیر Caption للفورم إلى "برنامج الترحیب". ثم ضع الأدوات التالیة على الفورم :

أداة عنوان Label1 ، أداة نص Text1 ، صندوق قائمة List1 ، اجعل خاصیة Locked لـ Text1 ھي True

أكتب الكود الآتي في Form_Load

Private Sub Form_Load ()

Text1.Text=""

Label1.Caption=""

List1.Additem " العربي "

List1.Additem "الإنجلیزي "

End Sub

الآن أكتب الكود الآتي في List1_Click

Private Sub List1_Click()

Select Case List1.ListIndex

Case 0

Label1.Caption = " العربي "

Text1.Text= " أھلاً بالمبرمج"

Case 1

Label1.Caption= "الإنجلیزي "

Text1.Text="Welcome Programmer"

End select

End Sub


البرنامج الثاني :

تحريك صورة في الفیجوال إلى أسفل ويسار الفورم. الأدوات المطلوبة :

افتح مشروع قیاسي جديد Standard.exe ثم غیر خاصیة Caption للفورم إلى "تحريك صورة" ثم ضع Picture1 ، Timer1

ضع صورة في Picture1 وقم بوضع خاصیة Interval لـ Timer1 =100

غیر خاصیة WindowState للفورم إلى 2- Maximized

عرف متحولات في القسم العام Dim X,Y as Integer General

أكتب الكود الآتي في Timer1_Timer

Private Sub Timer1_Timer()

X=100

Y=100

Picture1.Top =Picture1.Top – X

If Picture1.Top<0 then

Picture1.Top=0

Picture1.Left =Picture1.Left +Y

End if

End Sub