محمد
07-20-2008, 11:17 AM
خطوات إنشاء شريط أدوات بالصور داخل الفجول بيسك 6 :
1 - إضافة الاداة على شريط اداوت فجول بيسك واسمها
Microsoft windows cowman control 6.0
2 - نقوم باضافة الاداة Imageslist على النموذج .
3 - نضغط على خاصية Custom الخاصة بالاداة Imageslist من General يمكن تحديد مقاس للصور التي ستظهر على شريط الادوات ، بعد ذلك نضغط التبويب Images والذي عن طريقه سوف نضيف الصور التي سوف نستخدمها على الشريط وذلك بالضغط على الزر Insert .
ملاحظة : يجب كتابة ارقام الفهرس الخاصه بكل صوره لكي يتم استخدامها فيما بعد بالربط .
4 - نقوم باضافة الاداة Toolbar على النموذج .
5 - نقوم بربط الاداة Toolbar مع الاداة Imageslist وذلك من الخاصية Custom في الاداة Toolbar بالنقر على التبويب General ثم اختيار الاداة Imageslist من القائمة Images List.
6 - إضافة الازرار على شريط الاداوات وذلك من الخاصية Custom في الاداة Toolbar بالنقر على التبويب Buttons ثم النقر على زر Buttons Insert وهنا توجد عدة خطوات في هذه الاضافة وهي :-
1 - كل زر له رقم Index .
2 - يربط الزر بصوره واحده عن طريق وضع رقم فهرس الصوره المحدده مسبقاً في المربع Image
3 - يكتب تسميه تظهر عند وضع المؤشر على الزر في المربع ToolTipText
4 - من القائمة Style نحدد نوعية الزر الذي سيظهر على الشريط .
ويجب ضبط الخصائص السابقه لكل زر حسب المطلوب .
7 - لتغير شكل شريط الادوات نضغط على Custom في الاداة Toolbar بالنقر على التبويب General ثم اختيار Style ونحدد الشكل المطلوب له ولجعل الشريط بارز من قائمة BorderStyle.
8 - اضافات على شريط الادوات :-
1 - لعمل فاصل بين مجموعه من الازرار نقوم باضافة زر بالشكل المعتاد ولكن من قائمة Style نختار الاختيار رقم 3 وهو tbrSeparator.
2 - لإضافة قائمة تحرير وسرد على شريط الادوات نقوم باضافة زر بالشكل المعتاد ولكن من قائمة Style نختار الاختيار رقم 4 وهو tbrPlaceholder ثم من Width نحدد المسافة المطلوبة ، ثم نقوم بوضع الاداة ComboBox كالمعتاد على الشريط .
3 - لعمل زر ولكن على شكل قائمة نقوم باضافة زر بالشكل المعتاد ولكن من قائمة Style نختار الاختيار رقم 5 وهو tbrDrobdown
* ولكي نضيف على هذه القائمة بعض القيم نضغط على زر InsertButtonMenu اسفل النافذة.
* لا بد من استخدام (Key) هنا لكي نقوم بالتفرقه بين عناصر القائمه في حال وجود اكثر من قائمة على شريط الادوات ايضاً في عملية كتابة الكود مستقبلاً .
* لإضافة صوره للقائمة نقوم بعمل نفس الطريقه المستخدمه في اضافة صوره على زر في شريط الادوات .
كتابة الكود الخاص بشريط الأدوات
خطوات ربط الأزرار الموجودة على شريط الأدوات بالكود لإجراء حدث معين :
1 - سيتم كتابة الكود في الحدث ButtonClick الخاص بشريط الأدوات .
2 - سيتم إعطاء شريط الأدوات اسم متغير عادة يكون باسم Button والذي سوف يستخدم في عملية توجيه الأوامر لشريط الأدوات ، بهذه الطريقة :-
Button.Index = 1
و هذا يمثل الزر رقم واحد على شريط الأدوات حين يتم الضغط عليه سوف يتم إجراء الكود.
3 - لتطبيق ذلك يلزمنا استخدام أمر الشرط لمعرفة الزر الذي تم الضغط عليه لتنفيذ الأوامر الخاصة به فنستخدم:-
IF Button.Index = 1 Then
VB Code Here …
EndIF
ويطبق هذا الكود على جميع الأزرار.
4 - لكن نلاحظ أن كتابة الكود بالأداة IF سوف تكون طويلة نوعاً ما لذا أصبح الآن استخدام أمر Select Case أفضل بكثير. ويكتب الكود بهذا الشكل.
Select Case Button.Index
Case 1
VB Code Here …
Case 2
VB Code Here …
5 - اذا كان الزر الموجود على شريط الأدوات على شكل قائمة فأن الحدث سوف يتغير الى ButtonMenuClick .
6 - نكتب الأمر Select Case ويكتب بهذا الشكل :
Select Case Button.Key
وهذا سبب استخدام الـ Key في زر القائمة ويكتب الأمر كما يلي:
Select Case Button.Key
Case "EN"
VB Code Here …
Case "AR"
VB Code Here …
ويجب مراعاة حالة الحروف في الـ Key سواء صغيره ام كبيره .
تطبيقات على شريط الأدوات
http://www.alremal.com/mag/LessonsImages/toolbar.jpg
بعض التطبيقات على شريط الأدوات:-
عمليات القص والنسخ واللصق
وفي هذه العمليات سوف نستخدم (الحافظة) الخاصه بنظام وندوز والتي تسمى Clipboard
الأوامر:-
ضع النص المحدد في الحافظة
Clipboard.SetText
خذ النص الموجود في الحافظة
Clipboard.GetText
يستخدم هذه الأمر للحصول على الجزء المحدد في مربع النص
Text1.SelText
الطريقة:-
1- نقوم بتخزين النص المحدد في مربع النص Text1 ونضعه في الحافظة، وتكتب بهذا الشكل:
Clipboard.SetText (Text1.SelText)
2- وهنا يتم وضع النص الموجود في الحافظة مكان النص المحدد في مربع النص Text1 أو مكان المؤشر.
Text1.SelText= Clipboard.getText
3- وعملية القص نقوم بإضافة سطر بسيط خلاف عملية النسخ التي نكتفي بما سبق . والسطر يعني انه يتم ازالة النص المحدد بعد الاحتفاظ به في الذاكرة :
Clipboard.SetText (Text1.SelText)
Text1.SelText = ""
4- ومن المفروض جعل عملية اللصق غير متاح عند بداية تشغيل البرنامج حتى تتم عملية القص أو النسخ . وإذا تم استخدام ذلك يلزمنا جعل زر اللصق متاح وفعال عند عملية القص والنسخ كالتالي :-
Toolbar1.Buttons.Item(4).Enabled = True
ومعنى هذا السطر اذهب لشريط الأدوات الزر رقم 4 واجعله متاح .
خلاصة:
تطرقنا في هذا الدرس لثلاث مراحل الأولى إنشاء شريط الأدوات والثانية كتابة الكود البرمجي والمرحلة الثالثة تطبيق مبدئي لإنشاء شريط أدوات متقدم.
للحصول على نسخه من هذا الدرس بالصور اضغط هنا (http://www.alremal.com/LessonsTest/Tollbar/toolbar.zip) .. تحتاج الى برنامج (Adobe Acrobat).
وللحصول على مثال لشريط الأدوات تحت بيئة فجول بيسك 6اضغط هنا (http://www.alremal.com/LessonsTest/Tollbar/test.zip) .
1 - إضافة الاداة على شريط اداوت فجول بيسك واسمها
Microsoft windows cowman control 6.0
2 - نقوم باضافة الاداة Imageslist على النموذج .
3 - نضغط على خاصية Custom الخاصة بالاداة Imageslist من General يمكن تحديد مقاس للصور التي ستظهر على شريط الادوات ، بعد ذلك نضغط التبويب Images والذي عن طريقه سوف نضيف الصور التي سوف نستخدمها على الشريط وذلك بالضغط على الزر Insert .
ملاحظة : يجب كتابة ارقام الفهرس الخاصه بكل صوره لكي يتم استخدامها فيما بعد بالربط .
4 - نقوم باضافة الاداة Toolbar على النموذج .
5 - نقوم بربط الاداة Toolbar مع الاداة Imageslist وذلك من الخاصية Custom في الاداة Toolbar بالنقر على التبويب General ثم اختيار الاداة Imageslist من القائمة Images List.
6 - إضافة الازرار على شريط الاداوات وذلك من الخاصية Custom في الاداة Toolbar بالنقر على التبويب Buttons ثم النقر على زر Buttons Insert وهنا توجد عدة خطوات في هذه الاضافة وهي :-
1 - كل زر له رقم Index .
2 - يربط الزر بصوره واحده عن طريق وضع رقم فهرس الصوره المحدده مسبقاً في المربع Image
3 - يكتب تسميه تظهر عند وضع المؤشر على الزر في المربع ToolTipText
4 - من القائمة Style نحدد نوعية الزر الذي سيظهر على الشريط .
ويجب ضبط الخصائص السابقه لكل زر حسب المطلوب .
7 - لتغير شكل شريط الادوات نضغط على Custom في الاداة Toolbar بالنقر على التبويب General ثم اختيار Style ونحدد الشكل المطلوب له ولجعل الشريط بارز من قائمة BorderStyle.
8 - اضافات على شريط الادوات :-
1 - لعمل فاصل بين مجموعه من الازرار نقوم باضافة زر بالشكل المعتاد ولكن من قائمة Style نختار الاختيار رقم 3 وهو tbrSeparator.
2 - لإضافة قائمة تحرير وسرد على شريط الادوات نقوم باضافة زر بالشكل المعتاد ولكن من قائمة Style نختار الاختيار رقم 4 وهو tbrPlaceholder ثم من Width نحدد المسافة المطلوبة ، ثم نقوم بوضع الاداة ComboBox كالمعتاد على الشريط .
3 - لعمل زر ولكن على شكل قائمة نقوم باضافة زر بالشكل المعتاد ولكن من قائمة Style نختار الاختيار رقم 5 وهو tbrDrobdown
* ولكي نضيف على هذه القائمة بعض القيم نضغط على زر InsertButtonMenu اسفل النافذة.
* لا بد من استخدام (Key) هنا لكي نقوم بالتفرقه بين عناصر القائمه في حال وجود اكثر من قائمة على شريط الادوات ايضاً في عملية كتابة الكود مستقبلاً .
* لإضافة صوره للقائمة نقوم بعمل نفس الطريقه المستخدمه في اضافة صوره على زر في شريط الادوات .
كتابة الكود الخاص بشريط الأدوات
خطوات ربط الأزرار الموجودة على شريط الأدوات بالكود لإجراء حدث معين :
1 - سيتم كتابة الكود في الحدث ButtonClick الخاص بشريط الأدوات .
2 - سيتم إعطاء شريط الأدوات اسم متغير عادة يكون باسم Button والذي سوف يستخدم في عملية توجيه الأوامر لشريط الأدوات ، بهذه الطريقة :-
Button.Index = 1
و هذا يمثل الزر رقم واحد على شريط الأدوات حين يتم الضغط عليه سوف يتم إجراء الكود.
3 - لتطبيق ذلك يلزمنا استخدام أمر الشرط لمعرفة الزر الذي تم الضغط عليه لتنفيذ الأوامر الخاصة به فنستخدم:-
IF Button.Index = 1 Then
VB Code Here …
EndIF
ويطبق هذا الكود على جميع الأزرار.
4 - لكن نلاحظ أن كتابة الكود بالأداة IF سوف تكون طويلة نوعاً ما لذا أصبح الآن استخدام أمر Select Case أفضل بكثير. ويكتب الكود بهذا الشكل.
Select Case Button.Index
Case 1
VB Code Here …
Case 2
VB Code Here …
5 - اذا كان الزر الموجود على شريط الأدوات على شكل قائمة فأن الحدث سوف يتغير الى ButtonMenuClick .
6 - نكتب الأمر Select Case ويكتب بهذا الشكل :
Select Case Button.Key
وهذا سبب استخدام الـ Key في زر القائمة ويكتب الأمر كما يلي:
Select Case Button.Key
Case "EN"
VB Code Here …
Case "AR"
VB Code Here …
ويجب مراعاة حالة الحروف في الـ Key سواء صغيره ام كبيره .
تطبيقات على شريط الأدوات
http://www.alremal.com/mag/LessonsImages/toolbar.jpg
بعض التطبيقات على شريط الأدوات:-
عمليات القص والنسخ واللصق
وفي هذه العمليات سوف نستخدم (الحافظة) الخاصه بنظام وندوز والتي تسمى Clipboard
الأوامر:-
ضع النص المحدد في الحافظة
Clipboard.SetText
خذ النص الموجود في الحافظة
Clipboard.GetText
يستخدم هذه الأمر للحصول على الجزء المحدد في مربع النص
Text1.SelText
الطريقة:-
1- نقوم بتخزين النص المحدد في مربع النص Text1 ونضعه في الحافظة، وتكتب بهذا الشكل:
Clipboard.SetText (Text1.SelText)
2- وهنا يتم وضع النص الموجود في الحافظة مكان النص المحدد في مربع النص Text1 أو مكان المؤشر.
Text1.SelText= Clipboard.getText
3- وعملية القص نقوم بإضافة سطر بسيط خلاف عملية النسخ التي نكتفي بما سبق . والسطر يعني انه يتم ازالة النص المحدد بعد الاحتفاظ به في الذاكرة :
Clipboard.SetText (Text1.SelText)
Text1.SelText = ""
4- ومن المفروض جعل عملية اللصق غير متاح عند بداية تشغيل البرنامج حتى تتم عملية القص أو النسخ . وإذا تم استخدام ذلك يلزمنا جعل زر اللصق متاح وفعال عند عملية القص والنسخ كالتالي :-
Toolbar1.Buttons.Item(4).Enabled = True
ومعنى هذا السطر اذهب لشريط الأدوات الزر رقم 4 واجعله متاح .
خلاصة:
تطرقنا في هذا الدرس لثلاث مراحل الأولى إنشاء شريط الأدوات والثانية كتابة الكود البرمجي والمرحلة الثالثة تطبيق مبدئي لإنشاء شريط أدوات متقدم.
للحصول على نسخه من هذا الدرس بالصور اضغط هنا (http://www.alremal.com/LessonsTest/Tollbar/toolbar.zip) .. تحتاج الى برنامج (Adobe Acrobat).
وللحصول على مثال لشريط الأدوات تحت بيئة فجول بيسك 6اضغط هنا (http://www.alremal.com/LessonsTest/Tollbar/test.zip) .