دروس فيجوال بيسك 6

مرحبا

أعتقد من المفيد جدا ان يتم تقديم دروس ، فلا أعتقد ان المنتدى لا يحتاج اليها بل بالعكس من ذلك تماما ، فرأيي الشخصي ان المنتديات العربية كلها بحاجه الى دروس وليس استفسارات وأمثلة فذلك لا يعلم لغات البرمجه واعلم انك لك الأجر والفضل في نشر الخير الذي سيعم على الجميع عندما تقوم بطرح دروس ...

وأخيرا تقبل تحياتي وأتمنى ان يوفقك الله تعالى الى نجاح ما تريد وما يرضى

السلام عليكم

اهلا اخي عبد الرحيم

نتمني ان تقوم بذلك مشكور و جزاك الله عنــا الف خير

تحياتي لك

ابراهيم الطيب

الخرطوم

بارك الله فيك اخي عبد الرحيم .. و من كان في عون العبد ، كان الله في عونه ..

اقترح عليك اخي الكريم فقط ان تقترح في البداية المواضبع التي سوف تشرحها ، و عليك ان تختارها من المواضيع التي يتم السؤال عنها دائماً مثل الاتصال بقواعد البيانات و التعامل مع التواريخ .. الخ ..

و بعد ان تقترح كذا موضوع عليك ان تنتظر من يريد هذه الوضوع سواء ان يشاركك في الشرح او يتعلم منك .. لأن مسألة طرح عملية الشرح بشكل عام لا تجذب الكثيرين اليها ..

ما رأيك ان تنظر على الأسئلة التي وردت اليوم و تختار منها موضوع ما مثلاً و تشرحه ..؟؟ فهذا افضل ..

و بارك الله فيك و لك ..

بنت اليمن ،،

شكرا لإهتمامكم وابداء آرائكم واقتراحاتكم، وبإذن الله سوف تلاقي المواضيع التي نطرحها قبولا وإيجابا من حضراتكم.

وبالنسبة لملاحظة الاخت بنت اليمن، فبإذن الله سوف أقوم بطرح مواضيع عشوائية ، وبنفس الوقت سأكون مراعيا فيها جميع المستويات بإذن الله.

وبسم الله نبدأ

بارك الله فيك اخي Abdulraheem و ارجوا لك التوفيق ، و انا ارى هنا انك تريد انشاء مرجع من البداية لجميع الأعضاء .. فبارك الله لك في ذلك و اعانك ..

بنت اليمن ،،

نعم الامثل مفيده ولكن نقولها بصراحه قسم منا يسخدم عملية نسخ والصق ويظهر له البرنامج الصغير زدون معرفه حقيقيه بكيف يتم ذلك . سوف نشاركك بعد ان تبداء بكثرة الاستفسارات .................... ولك الشكر مقدما

أريد أن أطرح مثال عن طريقة الدروس

..............................................الدرس الأول.........................................

* مراحل كتابة البرنامج في Visual Basic:

1. تصميم واجهة البرنامج

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

احتاج الى نافذة واحدة فقط وهي Form1

احتاج الى : label1 خانة عنوان

text1 خانة نص

Comman1 , Command2 زري تحكم(أمر)

نضع هذة الادوات على النافذة (Form1) .

2. ضبط الخصائص

وقبل عملية ضبط خصائص هذه الأدوات ، نقوم بترتيبها على Form1 ، حيث الشكل النهائي لظهورها بعد تنفيذ البرنامج. وذلك بضبط حجم وموقع الادوات على النافذة وذلك بوضع مؤشر الفارة على زاوية الاداة ثم السحب مع الإبقاء على زر الفارة مضغوط مثل تكبير الأداة أو تصغيرها، أو تغير مكانها تحريكها.

حدد اداة ولتكن اداة العنوان Label وذلك بالضغط عليها

ثم اذهب الى قائمة الخصائص properties Windows

غير الخاصية Caption لهذه الأداة إلى "أهلا وسهلا"

والأن قم بتغير الخصائص للأدوات الباقية ،

مربع النص: غير الخاصية Text إلى " " بمعنى اتركها فارغة.

وبالنسبة لزري الأمر

Command 1: غير الخاصية Caption إلى "السلام عليكم"

Command 2: غير الخاصية Caption إلى "خروج"

3. كتابة التعليمات

انقر على على زر السلام عليكم نقراً مزدوجاً ثم تظهر لك نافذة الشيفرة Code Windows

Private Sub Command1_Click()

End Sub

ثم اكتب الاتي بين السطرين Private و End sub

Text1.text = " السلام عليكم"

انقر على على زر خروج نقراً مزدوجاً ثم اكتب الأتي

End

ليصبح الكود في الشكل النهائي كما يلي

Private Sub Command1_Click()
    Text1.Text = " ÇáÓáÇã Úáíßã"
End Sub

Private Sub Command2_Click()
    End
End Sub

4. تنفيذ البرنامج

حيث نقوم بالضغط على الزر F5 في لوحة المفاتيح أو من خلال القائمة Run نختار الأمر Start أو من شريط الادوات القياس نقوم الضغط على زر بداية.

بإذن الله هذا نموذج عن الطريقة التي سأقوم بها بشرح الدروس ، مع العلم بأنني سأقوم بتوضيح الأمثلة إذا كان الدرس يحتاج لأمثلة ، كما أنني بإذن الله سأقوم وبشكل تسلسلي وبطريقة سهلة ويسيرة توصيل المعلومات، أما بالنسبة للدروس القادمة فهي كما يلي:

ما هي العناصر في قيجوال بيسك Objects؟

وهذا يتضمن قواعد تسمية هذه العناصر Naming Convention ، الأحداث Events والخصائص Properties . ومثال تطبيقي.

ملاحظة: أرجو من الاخوة أصحاب الخبرة أن يخبروني عن كيفية إدراج صورة في الدروس .

كما أرجو من حضراتكم التعليق على الطريقة والاسلوب، لأن أرائكم تهمني.

السلام عليكم

اخونا العزيز علي بركة الله

توكل علي الله و ابدء

وجدت هذا الموقع لتحميل الصور , ربما بفيد

لتــحميل الصــور

تحياتي لك

وها نحن نبدأ بعون الله من جديد

................................................الدرس الثاني.....................................

كائنات فيجوال بيسك:

أعزائي وكما رأينا في الدرس السابق، بأن فيجوال بيسك يعتمد على الكائنات Objects ، فما هي هذه الكائنات؟

في الحقيقة إن كل عنصر في هذا الكون يعتبر كائن فالأرض كائن له خصائصه والسماء كائن له خصائصه أيضا والشجر والأنسان وكل كائن له خصائصه ويتأثر بالأشياء ويؤثر بها.

ومن هنا فإن نماذج وأدوات فيجوال بيسك تعتبر عناصر Objects ، حيث أن كل من هذه العناصر له خصائص Properties وأحداث خاصة به ُEvents وطرق Methods. وكذلك مربع النص Text box والعنوان وز الأمر ....الخ. ولتوضيح ما هي الخصائص والأحداث والطرق دعونا نطلع على المثال التالي:

لنفترض أنا لدينا بالون Ballon فإن هذا البالون له خصائصه ممكن أن يكون أحمر أو أزرق أو أنه منتفخ بالهواء Inflate أو فارغ من الهواءDeflate. كذلك فإن هناك عوامل يتأثر بها البالون كالدبوس أو إبرة الخياطةPuncture وأحداث يستجيب لها.

ولو أردنا برمجة البالون فإننا نقوم بما يلي:

Balloon.Color = Red

وهنا البالون اسم الكائن ، و Color اللون خاصية ، Red أحمر قيمة الخاصية Color ((على افتراض أن البالون لونه أحمر))

Balloon.Inflated = True

ولاحظ هذا الكود فإن البالون هو العنصر و Infalte مملوء بالهواء هي الطريقة Method و True هي القيمة ، حيث يدل هذا الكود بأن البالون منتفخ الهواء.

وبنفس الطريقة Balloon.Inflated = false حيث تدل هذه الجملة بأن البالون غير منتفخ ومن الممكن أن نكتب الكود كما يلي:

Balloon.deflated = True حيث تدل على أن البالون غير منتفخ أيضا.

وأخيرا فإن هناك أدوات أو لنقول ببساطة أشياء ممكن أن يتأثر بها البالون ويستجيب لها ، كالدبوس أو الأبرة Puncture. لاحظ الكود التالي:

Sub Balloon_Puncture()
   Balloon.Deflate
   Balloon.MakeNoise "Bang"
   Balloon.Inflated = False
 End Sub

إن الحدث الذي استجاب له البالون هو كما يلي:

البالون اسم العنصر و الدبوس هو الحدث === الاجراء حيث يبدأ الاجراء ب Sub وينتهي بـ End Sub ،

إلى هنا أنتهينا بإذن الله من مفهوم الـ Objects والـ Properties والـ Methods والـ Event.

لنفترض أن البالون هو الان زر أمر فما رأيك بأن تتعرف على خصائص هذا الزر وأحداثه أو تتعبر النموذج هو البالون.

وأنا بإنتظار إقتراحاتكم وأرائكم واستفساراتكم للدرس الأول والدرس الثاني.

أخوكم عبد الرحيم

ملاحظة ، أريد أن أقوم بإدراج صور في الدرس لا أريد رابط لصورة معينة أريد الصور ضمن الدرس، هل هناك طريقة؟

Abdulraheem كتب:

للرفع

للرفع

.........................................الدرس الثالث........................................

*أدوات وكائنات فيجوال بيسك:

والأن بعد أن عرفنا ما هو الكائن أو العنصر Objects ، وما هي الخصائص والمزايا التي يتمتع بها هذا العنصر في الدرس الثاني، لا بد لنا الأن أن نستعرض بعض كائنات فيجوال بيسك. وهي كما يلي:

النموذج Form:

هي وحدة البناء الاساسية في تطبيقات فيجوال بيسك، وهي النافذة التي يتعامل معها المستخدم عند تشغيل التطبيق أو البرنامج. كما أن للـ Form خصائص Properties و Methods و Event خاصة به.

وعند تشغيل برنامج فيجوال بيسك واختيار مشررع جديد Srandard EXE. فإن مشروعك الجديد هذا يحتوي على Form1 بشكل افتراضي. كما يمكنك من إضافة نماذج جديدة لمشروعك من خلال القائمة Project واختيار الامر Add Form.

وللتعامل مع الـ Form فلا بد لنا من ضبط خصائص هذا النموذج في البداية، حيث يمكننا ضبط خصائص النموذج بطريقتين وهما:

1. وقت التصميم Design Time: أي ضبط خصائص العنصر من خلال واجهة Visual Basic وبالتحديد من خلال نافذة Properties Windows. وقبل تنفيذ المشروع.

2. وقت التنفيذ Run Time: أي ضبط خصائص العنصر من خلال الشيفرة Code ، حيث يقوم Visual basic بتغير وضبط خصائص العنصر أثناء عملية تشغيل البرنامج.

ملاحظة: كما هو الحال في ضبط خصائص النموذج ، يتم ضبط خصائص العناصر الاخرى.

زر الأمر Command Button:

إن أسهل طريقة لجعل المستخدم يتعامل مع تطبيقك هي تزويده بزر أمر ليضغط عليه، حيث أن Visual Basic يزودك بزر أمر لتستخدمه في تطبيقك ، كما يمكنك من إنشاء زر خاص بك بأستخدام أدوات فيجوال بيسك.

وهناك عدة طرق للوصول إلى زر الأمر أثناء تنفيذ مشروعك- Run Time-:

1. استخدام الفأرة للضغط على الزر. أو النقر عليه.

2. استخدام المفتاح TAB في لوحة المفاتيح للوصول إلى زر الأمر ومن ثم الضغط على SPACEBAR أو ENTER وذلك لتنفيذ الأمر.

3. الضغط على مفتاح الوصول ALT + الحرف المسطر في زر الأمر.

ولاحظ كل هذه الطرق التي قمت بها للوصول لزر الامر ، هي عبارة عن أحداث يتأثر بها زر الامر، إذا لا بد من وضع شيفرة معينة يقوم فيجوال بيسك بتنفيذه أثناء وقوع الحدث على زر الامر أو العنصر بشكل عام. على سبيل المثال:

عند الضغط على زر الأمر بالفأرة فإن الحدث Click هو الحدث الفعال ، هنا يجب أن نكتب Code معين يستجيب لهذا الحدث.

Private Sub Command1_Click()
 'Write Code here
End Sub

إلى هنا أكتفي حتى هذه الساعة وإن شاء الله أن أتابع معكم اليوم.

...........................................تابع الدرس الثالث...............................................

الأدوات التي تعرض نص وتسمح بإدخال نص:

اولا: مربع عنوان Label:

حيث يسمح بعرض نص معين دون السماح للمستخدم بالتعديل مباشرة في محتوياته، كما أننا نستخدم Label Controls لتعريف الأدوات الأخرى مثل مربع النص Text Box، وبالمناسبة فإن النص الذي يظهر في أداة العنوان نستطيع إدخاله من خلال الخاصية Caption في وقت التصميم أو أثناء التشغيل أي من خلال الشيفرة.

كما قلنا سابقا فإن Label Contrl يستخدم لعرض النص داخله، ولجعل الـ Label يناسب محتواه هناك خاصيتين يجب ضبطهما:

AutoSize property : تحدد في ما إذا كان العنصر يعد تحجيم نفسه ليناسب المحتوى. وتأخذ هذه الخاصية قيمتين True أو False.

WordWrap property: وتحدد هذا الخاصية فيما إذا يتوسع الـ Label بشكل عمودي ليناسب محتواه. وتأخذ هذه الخاصية قيمتين True و False.

ملاحظة: حاول إنشاء مشروع يحتوي على نموذج وعلى النموذج أداتي Label ، وقم بضبط الخصاءص السابقة ، وتغير الخاصية Caption لتحتوي على كلمات عديدة أو كلمة واحدة ولاحظ ما يجري.

ثانيا: مربع النص Text Box:

وهي الأداة التي نستخدمها للحصول على إدخال من قبل المستخدم ، ويمكن أن نستخدمها لعرض النص لكن يمكن للمستخدم أن يغير في هذا النص.

سؤال: ما هي الأداة التي نستخدمها لعرض النص دون السماح للمستخدم بتغير النص؟

إن الخاصية Text هي الخاصية التي نستطيع من خلالها إدخال نص إلى مربع النص Text Box ، أثناء التصميم أو التنفيذ أي من خلال الشيفرة Code.

وبشكل افتراضي فإن Text Box يقوم بعرض خط واحد من النص، كما أنه لا يحتوي على أشرطة تمرير. وإذا لم يكن هناك مساحة كافية في مربع النص فإنه قد يعرض جزء من النص.

لكننا نستطيع حل هذه المشاكل وتغير مظهر مربع النص من خلال الخاصيتين:

MultiLine Property: حيث ضبط قيمة هذه الخاصية لمربع النص على True تسمح لمربع النص بعرض أكثر من سطر، أي تستطيع أن تضغط على الزر Enter وتبدأ الكتابة من سطر جديد.

كما أنك تستطيع ان تتعامل مع النص داخل مربع النص من خلال:

SelStart, SelLength and SelText properties

كما أن هذه الخصائص لمربع النص لا تظهر أثناء التصميم، حيث تظهر وقت التشغيل فقط.

SelStart: تحتوي على قيمة رقمية تحدد موقع مؤشر الكتابة في مربع النص. فإذا كانت هذه القمية 0 على سبيل المثال فإن مؤشر الكتابة يكون موجود في بداية مربع النص أو على الحرف الاول في مربع النص أما إذا كانت قيمة هذه الخاصية أكبر من النص الموجود داخل مربع النص فإن مؤشر الكتابة يكون موجود بعد أخر حرف في مربع النص.

SelLength property : خاصية تأخذ قيمة رقمية تحدد عرض نقطة الأدخال.

SelText property : خاصية تأخذ قيمة نصية ، وهي تستخدم وقت التنفيذ لتستبدل النص المحدد في مربع النص ، وعندما لا يكون هناك نص محدد فإن هذه الخاصية تقوم بوضع محتواها _النص_ حيث يبدأ من مكان وجود نقطة الادخال أو مؤشر الكتابة.

لاحظ الكود التالي:

Private Sub Form_Load ()
   Text1.Text = "Two of the peak human experiences"
   Text1.Text = Text1.Text & " are good food and classical music."
End Sub
Private Sub Form_Click ()
   Dim Search, Where   ' Declare variables.
   ' Get search string from user.
   Search = InputBox("Enter text to be found:")
   Where = InStr(Text1.Text, Search)   ' Find string in text.
   If Where Then   ' If found,
      Text1.SelStart = Where - 1   ' set selection start and
      Text1.SelLength = Len(Search)   ' set selection length.
   Else
      MsgBox "String not found."   ' Notify user.
   End If
End Sub

إلى هنا أكتف بهذا القدر اليوم ، سأترك المجال لبعض الاستفسارات ، مع تحياتي

للرفع

السلام عليكم

اخينا عبد الرحيم و اصل بارك الله فيك

....................................................تابع الدرس الثالث........................................................

كائنات وأدوات فيجوال بيسك:

*الادوات التي تعرض خيارات للمستخدم Controls That Present Choices to Users:

1. مربع الاختيار Check Boxes:

يحدد هذا الخيار حالة شرط معين ، إما On أو Of ، ويعتمد مربع الاختيار على الخاصية Value فإذا كانت قيمة هذه الخاصية 1 بمعنى انك قمت بإختياره، أما إذا كانت 0 بمعنك أنك لم تقم بإختياره. أما إذا كانت قيمة هذه الخاصية 2 فهذا يعني أنك لا تسطيع عدم إختيار مربع النص.

وإليكم أعزائي هذا المثال لتوضيح كيفية استخدام مربع الاختيار:

إن هذا المشروع يحتاج إلى بالأضافة للنموذج طبعا:

- مربع نص Text Box

- أداة عنوان Label

- زر أمر Command Button

- مربعي إختيار Check Box اثنان.

قم بضبط خصائص هذه الأدوات كما يلي:

القيمة                                        الخاصية                               العنصر (الأداة)
Form                                 Name                                  frmCheck
Form                                Caption                Check Box Example
__________________________________________________________
 TextBox                              Name                               txtDisplay                          
TextBox                              Text                        me Sample Text
__________________________________________________________
First Check box                    Name                                   chkBold
First Check Box                   Caption                                    &Bold
Second Check Box                 Name                                 chkItalic
Second Check Box                Caption                                  &Italic
__________________________________________________________
Command Button                   Name                               cmdClose
Command Button                   Caption                               &Close                             
__________________________________________________________
Label                    Caption            Select to see the effect

ملاحظة: نلاحظ وجود الرمز & قبل بعض الكلمات في الخاصية Caption، وذلك لوضع خط سفلي تحت الحرف الذي يلي هذه الأشارة بمعنى أنك من الممكن أن تصل إلى هذا الامر عن طريق لوحة المفاتيح من خلال ALT + الحرف المسطر.

والأن قم بكتابة الكود التالي:

Private Sub chkBold_Click ()
   If ChkBold.Value = vbChecked Then   ' If checked.
      txtDisplay.Font.Bold = True
   Else                           ' If not checked.
      txtDisplay.Font.Bold = False
   End If
End Sub

Private Sub chkItalic_Click ()
   If ChkItalic.Value = vbChecked Then   ' If checked.
      txtDisplay.Font.Italic = True
   Else                           ' If not checked.
      txtDisplay.Font.Italic = False
   End If
End Sub

لاحظ أنه في كلا الحدثين للـ chkBlod و ChkItalic أنه سأل عن الخاصية Value لعنصر إذا كانت vbChecked بمعنى 1 أو لا وبناء عليه يتم تغير شكل النص في مربع النص.

قم بتجربة البرنامج ، أتمنى لك التوفيق.

...................................................تابع الدرس الثالث......................................................

كائنات وأدوات فيجوال بيسك:

*الادوات التي تعرض خيارات للمستخدم Controls That Present Choices to Users:

2. زر الاختيار Option Buttons:

يظهر للمستخدم مجموعة من الاختيارات وعلى المستخدم أن يختار خيارا واحدا فقط ، وذلك بعكس مربع الاختيار Check Box حيث يسمح بإختيار جميع الخيارات.

ولا بد هنا من ذكر ملاحظة بأنه إذا وضعت أكثر من زر اختيار Option Button على النموذج Form ، فإن فيجوال بيسك يعتبرها مجموعة واحدة بحيث لا يسمح لك بإختيار أكثر من زر أثناء تنفيذ البرنامج.

لذلك وإذا كنت تريد أن تتيح مجموعة خيارات للمستخدم فلا بد لك من وضع كل مجموعة داخل Frame إطار. حيث يتمكن المستخدم من اختيار خيار واحد من كل إطار (مجموعة).

ملاحظة: ما هو Frame؟ هو أحد كائنات أو أدوات فيجوال بيسك، هذه الأداة موجودة في صندوق الادوات في فيجوال بيسك.

وبالنسبة لزر الاختيار كما هو الحال في مربع الاختيار حيث يمكنك اختياره بالضغط عليه بزر الفأرة الأيسر أثناء تنفيذ البرنامج،

وفي هذه الحالة والبنسبة لـ زر الاختيار Option Button تأخذ الخاصية Value القمية True.

وحيث يمكنك إعطاء القيمة True لزر الاختيار من خلال الشيفرة Code كما يلي:

optChoice.Value = True 'هذا بإفتراض أن اسم زر الخيار هنا optChoice.

عزيزي ، حاول التعديل في البرنامج السابق في الدرس السابق لتغير مربع الاختيار Check Box إلى زر خيار Option Button. وبالتوفيق

إلى هنا أكتفي حتى هذه اللحظة عسى أن يوفقني الله ، للمتابعة لاحقا هذا اليوم.

السلام عليكم،

تحياتي للجميع في هذه المشاركة ، ولكن لدي اقتراح أرجوا ان يتم أخذه بعين الاعتبار

وهو ترتيب الدروس على شكل كتاب يتم ادراجه في المنتدى .

وبذلك يكون اخي عبد الرحيم قد اوصل الرسالة التي يريد ، ويكون الاعضاء قد تلقوا الفائدة المرجوة.

وبعدها يتم النقاش في بعض النقاط الغامضة من الكتاب ، وذلك لتوسيع دائرة النقاش ،

في أفكار برمجية .

وشكرا،،،

أخي أشرف شكرا للملاحظة،

بالنسبة لي فإن الدروس أقوم بتحضيرها ، ومن ثم نشرها ، أي أنه ليست جاهزة لنشرها مرة واحدة ، كما أن ملاحظتك ممكن أن تصل إلى الأخوان المشرفين وأصحاب الخبرة فربما يزودونا بتعليمات معينة للقيام بذلك ،

وللعلم هذه أول مرة يلفت انتباهي منتدى معين وأقوم بالتسجيل به ومتابعته كهذا المنتدى ، بمعنى أنني جديد على هذا المنتدى وليس لدي الخبرة الكافية في مجال المنتديات.

ولو لاحظت بأنني طلبت أكثر من مرة طريقة لإدراج صورة معينة من جهازي داخل الموضوع وذلك بغرض الشرح والتوضيح لكن لم أحصل على طريقة للأن.

شكرا أخ أشرف مرة أخرى

شكرا للاخ اشرف الوادية علي هذه الداخلة الطيبة

و لي طلب اخ عبد الرحيم

قواعد البيانات اكسس و فجول بيسك 6

تمنيت لو كان هنا

تحياتي لك بالتوفيق

بإذن الله أخي إبراهيم الطيب ، سيكون موضوع قواعد البيانات أكسس وفيجوال بيسك ، هنا بإذن الله ، وضمن عملنا في هذه المجموعة من الدروس ، وعلى فكرة فإنني طلبت من الاخوة المشرفين بسحب قواعد البيانات اكسس و فجول بيسك 6 من منتدى برمجة قواعد البيانات أكسس ، على أن أسرده هنا بإذن الله ضمن الدروس القادمة.

شكرا للمداخلة

....................................................تابع الدرس الثالث........................................................

كائنات وأدوات فيجوال بيسك:

*الادوات التي تعرض خيارات للمستخدم Controls That Present Choices to Users:

مربع القائمة List Box:

ويقوم هذا العنصر بعرض مجموعة من الخيارات Items ، حيث يستطيع المستخدم إختيار واحد أو أكثر. وبشكل أفتراضي يقوم هذا العنصر بعرض الخيارات المتاحة بشكل عمودي في عمود واحد. وبالرغم من ذلك يمكنك عرض الخيارات المتاحة بأكثر من عمود إذا تطلب الأمر ذلك .

ولإضافة بيانات Items إلى مربع القائمة ، يمكنك استخدام طريقة AddItem حسب الصيغة التالية:

Listbox1.AddItem.Item ,Index

حيث:

Listbox1 اسم العنصر.

AddItem الطريقة أو Method.

Item تعبير نصي لإضافته للقائمة على سبيل المثال ممكن أن يكون موز .

Index تحدد الترتيب للعنصر المضاف

مثال: List1.AddItem."DAD", 1 وعلى هذا النحو.

انظر الكود التالي:

Private Sub Form_Load ()
   List1.AddItem "Germany"
   List1.AddItem "India"
   List1.AddItem "France"
   List1.AddItem "USA"
End Sub

حيث يفترض هذا الكود أنه لديك مشروع يحتوي على Form و List box بإسم List1.

كما يمكنك إضافة أو عناصر إلى List Box في وقت التصميم Design Time وذلك بإستخدام الخاصية List وعندما تضيف عنصر إلى مربع القائمة اضغط على المفتاح Ctrl + Enter، حيث يسمح لك بإضافة عنصر جديد.

كما يمكنك ترتيب العناصر المضافة إلى List Box عن طريق الخاصية Sorted بوضع قيمتها على True.

ولحذف عنصر معين من القائمة نستخدم الطريقة RemoveItem، حسب الصيغة التالية:

List1.RemoveItem 0

أو

List1.RemoveItem 3

حيث العدد 0 والعدد 3 هما موقع العنصر في مربع القائمة List.

ولمسح محتويات القائمة بشكل عام نستخدم الطريقة Clear

List1.Clear

هام جدا للوصول إلى عنصر معين داخل القائمة List نستخدم الخاصية List حيث تحتفظ هذه الخاصية بمصفوفة array تحتوي على رقم موقع العنصر في القائمة.

لاحظ المثال التالي:

Text1.text=List1.List(2)

حيث يقوم هذا المثال بوضع العنصر الثاني الموجود في ListBox في مربع النص للخاصية Text.

إلى هنا أكتفي بهذا الموضوع وانتظروني بإذن الله في الدرس القادم

أخوكم عبد الرحيم

....................................................تابع الدرس الثالث........................................................

كائنات وأدوات فيجوال بيسك:

*الادوات التي تعرض خيارات للمستخدم Controls That Present Choices to Users:

أداة التحرير والسرد Combo Box Control:

تجمع هذه الأداة بين Text Box و List Box حيث يسمح للمستخدم بكتابة العنصر أو بإختياره من القائمة المنسدلة. وعندما يزيد عدد العناصر المعروضة فإن أشرطة تمرير تظهر بشكل تلقائي وهذه الميزة أيضا موجودة في List Box.

ولو لاحظت عزيزي أنه عند استخدام الـ List Box بأنك مقيد بالعناصر المعروضة داخل القائمة، بينما في الـ Combo Box فإنك تستطيع إدخال عنصر جديد في القائمة فيما لو لم تجده في القائمة.

وهناك ثلاثة أشكال من هذه الأداة Combo Box تستطيع التحكم بها من خلال الخاصية Style لهذه الأداة وهي تأخذ القيم 0، 1 ، 2

وبنفس الطريقة التي قمت بها بإضافة عنصر في List Box فإنك تسطيع القيام بذلك في Combo Box أيضا، لاحظ الصيغة التالية:

box.AddItem item[, index]

حيث:

box: اسم الأداة Combo Box

Item: القيمة النصية المدخلة.

Index: حيث تحدد مكان إدخال العنصر الجديد وتحتوي على قيمة عددية.

لاحظ الشيفرة التالية:

Private Sub Form_Load ()
   Combo1.AddItem "Me"
   Combo1.AddItem "You"
   Combo1.AddItem "We"
   Combo1.AddItem "Arab Team"
End Sub

وتحتفظ Combo Box بنفس مزايا الList Box من حيث إضافة عنصر عن طريق الشيفرة أو في وقت التصميم، أو حذف عنصر أو مسح محتويات الأداة وهكذا ...

وإذا أردت معرفة موقع عنصر معين في قائمة Combo Box فإنك بحاجة إلى الخاصية ListIndex حيث تعيد هذه الخاصية موقع العنصر المحدد ، على سبيل المثال إذا قمت بتحديد العنصر You - طبعا بعد التنفيذ - الموجود في المثال السابق فإن هذه الخاصية تعيد الرقم 1 حيث تأخذ Me الرقم 0.

ولمعرفة عدد العناصر الموجودة في قائمة الـ Combo Box فإنك بحاجة الخاصية ListCount، ولنقوم بعمل مثال حي الأن على هذه الخاصية.

1. قم بإنشاء مشروع جديد في Visual Basic ،

2. ضعر على النموذج Command Button و Text Box

3. في الحدث Form_Load اكتب الكود السابق (في الأعلى)

4. في الحدث Command1_Click اكتب الكود التالي:

Text1.Text = "You have " & Combo1.ListCount & " _
entries listed"

ماذا تلاحظ؟؟

اليوم أكتفي بهذا القدر ، وفقني الله وإياكم لما يحبه ويرضاه.

السلام عليكم ورحمة الله وبركاته ، وبعد:

أطلب من الأخوة المشرفين إذا التمسو أهمية لهذا الموضوع أن يقوموا بتثبيته ،

شاكرين ومقدرين جهود كل من يساهم في عمل الخير ،

أخوكم عبد الرحيم أحمد

السلام عليكم

اخ عبد الرحيم الي الامام و ننتظر قواعد البيانات , اتمني ان لا يطول الانتظار