فيجيوال بيسك - التطبيق ( 1 )

التطبيق ( 1 ) :
الهدف : استخدام بعض أدوات فيجيول بيسك وتحديد خصائصها يدوياً ثم استخدام نافذة كتابة الكود البرمجي لتغيير خصائص أداة برمجياً.



الوصف : نافذة تحتوي على أربع أزرار تمثل ثلاث ألوان ( Black ، Red ، Blue ) وزر للخروج ( Exit ) عند الضغط على أي زر يتحول لون المستطيل إلى اللون الذي يمثله الزر ويكتب داخله هذا المستطيل إسم اللون المختار .

Private Sub cmdBlak_Click()
Label1.BackColor = vbBlack
Label1.Caption = "Black"
End Sub

Private Sub cmdBlue_Click()
Label1.BackColor = vbBlue
Label1.Caption = "Blue"
End Sub

Private Sub cmdRed_Click()
Label1.BackColor = vbRed
Label1.Caption = "Red"
End Sub

Private Sub cmdExit_Click()
End
End Sub

تصنيف : فيجيوال بيسك - التطبيق ( 1 )