❞ كتاب الفيجوال بيسك من البداية إلى النهاية ❝ ⏤ مصطفى محمد عيسي
شرح كامل ومبسط ومتقدم في الفيجوال بيسك.
إعداد . مصطفى محمد عيسي
أولا: البداية
مصطلحات هامة
المصطلحمعناه
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. ثوابت رموز مربع حوار الرسالة.
اسم الثابتالقيمةالرمز التي ستظهر
vbCirtical16 رمز الخطأ الحرج
vbQuestion32 رمز إشارة الاستفهام
vbExclamation48 رمز التعجب
vbInformation64 رمز المعلومات
القيم المحتملة المعادة من قبل التابع الوظيفي 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
مصطفى محمد عيسي - ❰ له مجموعة من الإنجازات والمؤلفات أبرزها ❞ أمثلة متقدمه جداً في الفيجوال بيسك 6 ❝ ❞ الفيجوال بيسك من البداية إلى النهاية ❝ ❱
من كتب فجوال بيسك 6 كتب لغات البرمجة - مكتبة كتب تقنية المعلومات.