📘 ❞ الفيجوال بيسك من البداية إلى النهاية ❝ كتاب ــ مصطفى محمد عيسي

عن كتاب الفيجوال بيسك من البداية إلى النهاية:
شرح كامل ومبسط ومتقدم في الفيجوال بيسك.
إعداد . مصطفى محمد عيسي


أولا: البداية
مصطلحات هامة
المصطلح معناه
Operating system أنظمة تشغيل
applications تطبيقات جاهزة
Objects كائنات
Events أحداث

Model وحده نمطية
Methods الوسائل
Driven استجابة
Procedures إجراءات
Project مشروع
Form نموذج
False خطأ
True صح
Tools أدوات
Edition نسخة
Area منطقة

التعرف علي واجهة البيزك.
بعد تنصيب البرنامج اذهب إلى(ابدأ)(start) ثم (البرامج)(program) ثم Microsoft Visual Studio 6.0

6-3. ثوابت رموز مربع حوار الرسالة.
اسم الثابت القيمة الرمز التي ستظهر
vbCirtical 16 رمز الخطأ الحرج

vbQuestion 32 رمز إشارة الاستفهام

vbExclamation 48 رمز التعجب

vbInformation 64 رمز المعلومات


القيم المحتملة المعادة من قبل التابع الوظيفي MsgBox():

هام : كيفية وضع عدة أسطر تحت بعضها في الرسالة:

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
7- Enabled
وتعني كون الأداة فعالة اوغير فعالية حسب القيمة التي تضاف اليها
طريقة كتابة الكود
Text1.Enabled= boolean
boolean
اما ان تكون
False لتعطيل الاداة
True لتفعيل الاداة
مثال
عند الضغط علي الزر تفعيل تجد الاداة فعالة ولون الاية كما هو ولو اردت الكتابة داخل مربع النص يمكنك ذلك

اما عند الضغط علي زر تعطيل فتجد الوان الكتابة داخل صندوق النص تحولت الي خط باهت ولا تسطيع الكتابة داخل صندوق النص

الكود
Private Sub Command1_Click()
Text1.Enabled = True
Label1.Caption = "الاداة فعالة"
End Sub

Private Sub Command2_Click()
Text1.Enabled = False
Label1.Caption = "الاداة غير فعالة"
End Sub
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
8-Font
وكلمة font تعني الخط وله خصائصه الخاصة به وهي كما يأتي
.Bold وتعني تثقيل الخط
.Charset خط طبيعي
.Italic وتعني خط مائل
.Name وتعني اسم الخط
.Size وتعني حجم الخط
.Strikethrough وتعني في وسطة خط
.Underline وتعني تحتة خط
ويمكن ان تكون مباشرةً كتالي
.FontBold خط ثقيل
.FontItalic خط مائل
.FontName اسم الخط
.FontSize حجم الخط
.FontStrikethru في وسطة خط
.FontUnderline تحته خط
طريقتي كتابة الكود
Text1.font.name= اسم الخط
Text1.font=اسم الخط
Text1.font.size=حجم الخط
Text1.fontsize= حجم الخط
Text1.FontStrikethru= boolean
حيث نكت بدل من boolean
اما true
لتفعيل الخاصية
واما false
لتعطيل الخاصية
مثال

Private Sub Form_Load()
Timer1.Interval = 1
Dim emad As Integer

Dim mido As Integer
For emad = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(emad)
Next emad
Combo1.Text = Combo1.List(0)
For mido = 2 To 60
Combo2.AddItem mido
Next mido
Combo2.Text = 8
End Sub

Private Sub Option1_Click(Index As Integer)


If Option1(0).Value Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
If Option1(1).Value Then
Text1.FontStrikethru = True
Else
Text1.FontStrikethru = False
End If
If Option1(2).Value Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
If Option1(3).Value Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If

End Sub


Private Sub Timer1_Timer()
Text1.Font.Name = Combo1.Text
Text1.FontSize = Combo2.Text
End Sub