Dr-Neo
10-02-2007, 02:43 PM
<B>أستخدام المسار
ما اقصده بالمسارات هو استخدام كل من DriveListBox و FileListBox و DirListBox و تستخدم بدلا من شاشة الفتح التي تفتح عن طريق CommonDialog و لربط الادوات مع بعضها نقوم بكتابة هذه الاكواد في كل من:
شفرة:
Drive1:
Dir1.Path = Drive1.Drive
شفرة:Dir1:
File1.Path = Dir1.Path
شفرة:File1:
SelectedFile = File1.Path & '\' & File1.filename
LoadedFile
في كود FileListBox عند كلمة LoadedFile اي ان هذا نوع الملف الذي سيفتح سواء كان bmp او txt (راجع درس CommonDialog لمعرفة الطريقة).
ملحوظة:
في خصائص File1 ستجد خاصية باسم Pattern و مكتوب بجانبها *.* عليك تغييرها حسب نوع الملف الذي يفتح فاذا كانت صورة تغيرها الي *.bmp و اذا كانت txt تغيرها الي *.txt لعدم المشاكل....
.أنشاء قوائم
لاضافة قائمة الي برنامجك فيمكنمك الضغط علي Menu Editor في شريط الادوات, سيظهر صندوق هكذا:
[ فقط المشتركين فى المنتدى يمكنهم رؤية الرابط تطوير الزيرو ]
و سأقوم بشرحه الآن:
1) بجانب كلمة Caption يوضع ما يكتب في القائمة.
2) بجانب كلمة Name تكتب اسم القائمة.
3) بجانب Shortcut تقوم بأختيار الاختصار مثل Ctrl + N ...الخ.
4) Checked معناها ان التعامل مع القائمة سيكون بالعلامات.
5) Enabled و هي اذا كانت القائمة متاحة ام لا.
6) Visible و يقصد بها ان اذا كانت القائمة ظاهرة ام لا.
هذا كل ما يهم في القوائم, و لكن اذا اردت ان تفتح قائمة من قائمة اخري فقم بالضغط علي السهم à بجانب Next لفتح قائمة جديدة من القائمة التي قبلها و للعودة الي القوائم الرئيسية اضغط علي ß...
ملحوظة: اذا اردت ان يوضع خط تحت حرف ما في الكلمة اي ان عند الضغط علي Alt ثم هذا الحرف لتعمل فقم بوضع & قبل الحرف المراد وضع خط تحته..
الرسائل
بالتأكيد الرسائل من اهم الاشياء المستخدمة في الفيجوال بيسيك, و لاستخدام رسالة نكتب كود خاصة بها و هي كالآتي:
شفرة:Private Sub Command1_Click()
MsgBox “Message”,X,”Title”
End Sub
تكون كود الرسالة هكذا فعند الضغط علي الزر ستظهر الرسالة و يمكن وضع الكود في تايمر.. الخ, اما المعاني هي :
· Message هو ما ورد بالرسالة.
· هي اما نوع الازرار او الصورة بجانب الرسالة و تكون بالارقام و هي كالآتي:
شفرة:Shapes:
16- Stop
32- Question Mark
48- !
64- Help
Buttons:
1- Ok // Cancel
2- Retry // Abort // Ignore
3- Cancel // Yes // No
4- Yes // No
5- Cancel // Retry
· اما Title فهو عنوان الرسالة.
ملحوظة: عند وضع الرقم X يجب ان يكون اما للصورة او للازرار و عند اختيارها كصورة تكون الازرار Ok فقط و للأسف لا اعرف طريقة لاظهارهم الاثنين.
و من المهم في الرسائل ايضا الامر Response و هو ليتعامل مع الازرار في الرسالة فاذا كتبت رسالة و وضعت بها الازرار Yes و No فلن يعملوا كما تريد لذا نستخدم الامر Response فاذا اردت ان تضع زر خروج و عند الضغط عليه تظهر رسالة هل تريد الخروج؟ و عند الضغط Yes يخرج و No يبقي في البرنامج فستقوم بكتابة هذا الكود في الزر:
شفرة:Private Sub Command1_Click()
Response = MsgBox (“Are you sure?”, vbYesNo, “Exit”)
If Response = vbYes Then
End
ElseIf Respone = vbNo Then
Form1.Show
End If
End Sub
و هنا يعني ان اذا كانت الاستجابة Yes فيخرج و اذا كانت No فتظهر الفورم و يبقي في البرنامج...
الخروج
سنقوم هنا بكتابة أول برنامج ... ويحتوي البرنامج على التالي :
* كائنين : كائن الفورم وكائن زر أمر.
* حدث : حدث الضغط على زر الأمر.
* إجراء : إغلاق البرنامج.
الآن تعال للعمل ... تبعا للخطوات التالية:
# افتح مشروعا جديدا.
# أضف زر أمر للفورم.
# غير إسم زر الأمر إلى .CmdEnd
# غير الخاصية Caption للزر لتكون .Exit
# الآن اضغط على زر F5 ولاحظ ماذا سيحدث ؟؟؟ ستظهر لك فورم كالتالي:
[ فقط المشتركين فى المنتدى يمكنهم رؤية الرابط تطوير الزيرو ]
# الآن إضغط على زر الأمر ولاحظ ماذا سيحدث ؟؟؟ لا شيء .. ترى لماذا ؟؟؟ لأننا لم نضف الكود الخاص بالعمل .
# أرجع ثانية إلى البرنامج ثم اضغط ضغطتين متتاليتين على الزر ستظهر لك نافذة الكود ومكتوب بها الكود التالية:
شفرة:Private Sub CmdEnd_Click()
End Sub
*الآن أضف بين السطرين Private Sub CmdEnd_CLick و السطر End Sub أكتب الأمر التالي End...
</B>
ما اقصده بالمسارات هو استخدام كل من DriveListBox و FileListBox و DirListBox و تستخدم بدلا من شاشة الفتح التي تفتح عن طريق CommonDialog و لربط الادوات مع بعضها نقوم بكتابة هذه الاكواد في كل من:
شفرة:
Drive1:
Dir1.Path = Drive1.Drive
شفرة:Dir1:
File1.Path = Dir1.Path
شفرة:File1:
SelectedFile = File1.Path & '\' & File1.filename
LoadedFile
في كود FileListBox عند كلمة LoadedFile اي ان هذا نوع الملف الذي سيفتح سواء كان bmp او txt (راجع درس CommonDialog لمعرفة الطريقة).
ملحوظة:
في خصائص File1 ستجد خاصية باسم Pattern و مكتوب بجانبها *.* عليك تغييرها حسب نوع الملف الذي يفتح فاذا كانت صورة تغيرها الي *.bmp و اذا كانت txt تغيرها الي *.txt لعدم المشاكل....
.أنشاء قوائم
لاضافة قائمة الي برنامجك فيمكنمك الضغط علي Menu Editor في شريط الادوات, سيظهر صندوق هكذا:
[ فقط المشتركين فى المنتدى يمكنهم رؤية الرابط تطوير الزيرو ]
و سأقوم بشرحه الآن:
1) بجانب كلمة Caption يوضع ما يكتب في القائمة.
2) بجانب كلمة Name تكتب اسم القائمة.
3) بجانب Shortcut تقوم بأختيار الاختصار مثل Ctrl + N ...الخ.
4) Checked معناها ان التعامل مع القائمة سيكون بالعلامات.
5) Enabled و هي اذا كانت القائمة متاحة ام لا.
6) Visible و يقصد بها ان اذا كانت القائمة ظاهرة ام لا.
هذا كل ما يهم في القوائم, و لكن اذا اردت ان تفتح قائمة من قائمة اخري فقم بالضغط علي السهم à بجانب Next لفتح قائمة جديدة من القائمة التي قبلها و للعودة الي القوائم الرئيسية اضغط علي ß...
ملحوظة: اذا اردت ان يوضع خط تحت حرف ما في الكلمة اي ان عند الضغط علي Alt ثم هذا الحرف لتعمل فقم بوضع & قبل الحرف المراد وضع خط تحته..
الرسائل
بالتأكيد الرسائل من اهم الاشياء المستخدمة في الفيجوال بيسيك, و لاستخدام رسالة نكتب كود خاصة بها و هي كالآتي:
شفرة:Private Sub Command1_Click()
MsgBox “Message”,X,”Title”
End Sub
تكون كود الرسالة هكذا فعند الضغط علي الزر ستظهر الرسالة و يمكن وضع الكود في تايمر.. الخ, اما المعاني هي :
· Message هو ما ورد بالرسالة.
· هي اما نوع الازرار او الصورة بجانب الرسالة و تكون بالارقام و هي كالآتي:
شفرة:Shapes:
16- Stop
32- Question Mark
48- !
64- Help
Buttons:
1- Ok // Cancel
2- Retry // Abort // Ignore
3- Cancel // Yes // No
4- Yes // No
5- Cancel // Retry
· اما Title فهو عنوان الرسالة.
ملحوظة: عند وضع الرقم X يجب ان يكون اما للصورة او للازرار و عند اختيارها كصورة تكون الازرار Ok فقط و للأسف لا اعرف طريقة لاظهارهم الاثنين.
و من المهم في الرسائل ايضا الامر Response و هو ليتعامل مع الازرار في الرسالة فاذا كتبت رسالة و وضعت بها الازرار Yes و No فلن يعملوا كما تريد لذا نستخدم الامر Response فاذا اردت ان تضع زر خروج و عند الضغط عليه تظهر رسالة هل تريد الخروج؟ و عند الضغط Yes يخرج و No يبقي في البرنامج فستقوم بكتابة هذا الكود في الزر:
شفرة:Private Sub Command1_Click()
Response = MsgBox (“Are you sure?”, vbYesNo, “Exit”)
If Response = vbYes Then
End
ElseIf Respone = vbNo Then
Form1.Show
End If
End Sub
و هنا يعني ان اذا كانت الاستجابة Yes فيخرج و اذا كانت No فتظهر الفورم و يبقي في البرنامج...
الخروج
سنقوم هنا بكتابة أول برنامج ... ويحتوي البرنامج على التالي :
* كائنين : كائن الفورم وكائن زر أمر.
* حدث : حدث الضغط على زر الأمر.
* إجراء : إغلاق البرنامج.
الآن تعال للعمل ... تبعا للخطوات التالية:
# افتح مشروعا جديدا.
# أضف زر أمر للفورم.
# غير إسم زر الأمر إلى .CmdEnd
# غير الخاصية Caption للزر لتكون .Exit
# الآن اضغط على زر F5 ولاحظ ماذا سيحدث ؟؟؟ ستظهر لك فورم كالتالي:
[ فقط المشتركين فى المنتدى يمكنهم رؤية الرابط تطوير الزيرو ]
# الآن إضغط على زر الأمر ولاحظ ماذا سيحدث ؟؟؟ لا شيء .. ترى لماذا ؟؟؟ لأننا لم نضف الكود الخاص بالعمل .
# أرجع ثانية إلى البرنامج ثم اضغط ضغطتين متتاليتين على الزر ستظهر لك نافذة الكود ومكتوب بها الكود التالية:
شفرة:Private Sub CmdEnd_Click()
End Sub
*الآن أضف بين السطرين Private Sub CmdEnd_CLick و السطر End Sub أكتب الأمر التالي End...
</B>