Some simple programs in Visual Basic 6 Part I

بعض البرامج البسيطة فى الفيجوال بيسك 6

1/ تصميم برنامج آلة حاسبة بسيطة

ادخل  الى للبرنامج

ثم اضف 2 تكست بوكس وكوماند ولابل ونسقها حسب ذوقك

اضغط على الكوماند مرتين حتى تظهر النافذة الخاصة بالكود

اكتب التالي :

2/تصميم برنامج للتحكم بالملفات

في هذا البرنامج ستتعلم كيف تضيف كائنات

اضغط على Ctrl+t  ستظهر هذه القائمة

او نضغط كليك يمين على شريط الادوات اللى على الشمال فى الفيجوال بيسك ونختار components

فى الحالتين ستظهر الشاشة التالية 

اختر Microsoft Common Dialog Control 6.0  ثم OK هكذا

اضغط على هذه الادوات المبينة في الشكل

ثم غير اسماءها من خلال

حتى تصير هكذا

من القائمة  view نختارCode  ثم نكتب

 Private Sub Command2_Click()

CommonDialog1.ShowOpen  

Text1.Text = CommonDialog1.FileName

 Kill (Text1.Text)

End Sub

 Private Sub Command3_Click     CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

SetAttr (Text1.Text), vbHidden

End Sub

Private Sub Command4_Click

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

SetAttr (Text1.Text), vbNormal

End Sub

Private Sub Command5_Click

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

SetAttr (Text1.Text), vbArchive

End Sub

نكتب هذةالاكواد تحت كل مفتاح