[الحرية]

أراكم متلهفين مثلي عندما أردت تعلم هذه اللغة ، بس للأسف ما أحد أراد تعليمي ، ولكني أجتهدت بدون كتاب ولا مدرس ولا إنترنت وتعلمت جزء من هذه اللغة ، والحمد الله سوف أعلمكم إنشاء الله ما تعلمته .
وين رحت ما عليه بأرجع للموضوع .
---------------------------------------------------------
عندما تريد برمجة أحدى الأدوات فأولاً ضع الأداة بالنافدة ، ثم أضغط على الأداة مرتين وسوف تجد صفحة بيضاء تسمى Code وهذه الصفحة لن تستخدمها إلا في زمن التصميم ، على كل حال ستجد قائمتين بالأعلى ، التي باليسار توجد بها كل الأدوات التي في البرنامج ، مع العلم إن الـ General ليس بأداة بل هو أول سطر في البرمجة وتستخدمه في تعريف المتغيرات كم قلت ، أو حتى تعريف أشياء أخرى ، بالقائمة التالية ستجد بها كل الأحداث للأداة التي أخترتها ( مع العلم إن النافذة بكبرها أداة ! ) .
وعلى فكرة لكل نافذة لها صفحة Codeخاصة بها وبأدواتها .

ضع زر على النافدة وأضغط عليه مرتان وسترى بالصفحة Code ما يلي :-

Private Sub Command1_Click()

End Sub

ما معنى كل هذه الهدرة ؟ حسناً سأشرح هنا بقليل من التفاصيل :-
private sub : جملة ثابته لتعريف الأدوات .
Command1 : اسم الأداة .
_Click : اسم الحدث ، وهنا الحدث القياسي للزر وهو الضغط .
End Sub : أنتهى ، وتفيد لأنتهاء الأوامر ، ولو لاهاا لواصل البرنامج .

يجب كتابة الأمر وسط هذين السطرين ، والأوامر ليست صعبة أبداً ، فأبسط نوع الأوامر هو تغيير الخصائص للأدواة ، ولمعرفة ذلك يجب أن تعرف بعض الخصائص ومنها :
Name: لا يمكنك تغيرره من الأوامر ولكن لو أردت تغييره فغيره من النافذة التي باليمين ، ولتغيير الأسم فوائد عظيمة وهي الأختصار ، فبدلاً من أكتب Command1 ممكن أغيره إلى C1 ، مو كذه أحسن .

Caption: هذه الميزة هي الأسم الظاهر على الأداة ، ويجب التفريق بينها وبين Name ، فهذا الأسم الظاهر لن تستدعيه هنا بل سيراه المستخدم على الأداة .

backcolor: وهي ميزة اللون الأداة ، وسوف أعلمكم فيما بعد كيف نغيير الألوان.

Enable: هذه الميزة لها قيمتان True و False ، وفائدتها تمكين الأداة من الأستخدام ، ألم ترى أداة رصاصية شفااقة لا يمكن أستخدامها ؟ هذه حالة False .

Visiable: هذه الميزة لها نفس القيمتان ، وهي صفة لتجعل الأداة قابلة للرؤية أم لا .

RightToLeft: هذه أهم خاصية لكي تحول من جهة إنجليزية إلى جهة عربية .

هناك الكثير من الخصائص ، ويبدو إني أفقلت عليكم وأبخلت ، ولكن هذا لمصلحتكم لكي تتعلموا البرمجة يجب تعلم الأساسيات أولاً ، على كل حال هذا أول مثال أكتب التالي :-

Private Sub Command1_Click()
Command1.Caption = "لقد ضغطني !"
End Sub

هذا المثال لكي تغيير الاسم الظاهري للزر ، على كل حال خذ هذا المثال معك .
أراكم فيما بعد