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

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

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


أولا: البداية
مصطلحات هامة
المصطلحمعناه
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 كتب لغات البرمجة - مكتبة كتب تقنية المعلومات.

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

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


أولا: البداية
مصطلحات هامة
المصطلحمعناه
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


.
المزيد..

تعليقات القرّاء:

 

مصطلحات هامة 
المصطلح    معناه
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          رمز المعلومات

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



حجم الكتاب عند التحميل : 7.7 ميجا بايت .
نوع الكتاب : ppt.
عداد القراءة: عدد قراءة الفيجوال بيسك من البداية إلى النهاية

اذا اعجبك الكتاب فضلاً اضغط على أعجبني
و يمكنك تحميله من هنا:

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

شكراً لمساهمتكم معنا في الإرتقاء بمستوى المكتبة ، يمكنكم االتبليغ عن اخطاء او سوء اختيار للكتب وتصنيفها ومحتواها ، أو كتاب يُمنع نشره ، او محمي بحقوق طبع ونشر ، فضلاً قم بالتبليغ عن الكتاب المُخالف:

برنامج تشغيل ملفات pptقبل تحميل الكتاب ..
يجب ان يتوفر لديكم برنامج تشغيل وقراءة ملفات ppt
يمكن تحميلة من هنا 'http://www.microsoftstore.com/store/msmea/ar_EG/pdp/Office-365-Personal/productID.299498600'

المؤلف:
مصطفى محمد عيسي - MSTFA MHMD AISI

كتب مصطفى محمد عيسي ❰ له مجموعة من الإنجازات والمؤلفات أبرزها ❞ أمثلة متقدمه جداً في الفيجوال بيسك 6 ❝ ❞ الفيجوال بيسك من البداية إلى النهاية ❝ ❱. المزيد..

كتب مصطفى محمد عيسي