كتاب الفيجوال بيسك من البداية إلى النهاية

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