بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
HnHn :
ملخص ما يحتويه الموضوع لكي يسهل تصفحه كما يلي
:
[المشاركة رقم 1 ] - شرح مميزات الاداة وطريقة استخدامها تحميل المثال
[المشاركة رقم 17 ] - شرح كيفية إضافة قائمة مع الأيقونات تحميل المثال
[المشاركة رقم 18 ] - مثال على استخدام الاداة بواسطة حريف برمجة تحميل المثال
[المشاركة رقم 19 ] - مثال على استخدام الاداة لتحويل الاستايل الى Office 2007 تحميل الادوات SkinFramewor SkinControls
[المشاركة رقم 23 ] - مثال عن ToolBar Default تحميل المثال
[المشاركة رقم 31 ] - شرح شريط الأدوات Office 2007 حمل Bin ToolBar3 ToolBar2
[المشاركة رقم 33 ] - مثال عن الجدول الازرق الموجود فى الاكسبلورر للويندوس بواسطة حريف برمجة تحميل المثال
[المشاركة رقم 37 ] - تابع لشرح شريط الأدوات Office 2007 - RibbonTab
[المشاركة رقم 42 ] - روابط ايقونات Office 2003 و Windows Vista
[المشاركة رقم 43 ] - طريقة استخدام اداه الـ Task panel بواسطة حريف برمجة تحميل المثال
[المشاركة رقم 45 ] - جميع الأدوات Codejock
[المشاركة رقم 54 ] - مثال للشريط الحالة بواسطة حريف برمجة تحميل المثال
[المشاركة رقم 63 - 66 ] - امثاله لعمل المسج تبع MSN msgbox PopupControl
[المشاركة رقم 72 ] - طريقة انشاء عنصر قائمة يتفرع منه عنصر آخر بواسطة حريف برمجة تحميل المثال
والله بس شفت هذه الإدوات وقرأيتها في المتدى حبيت أستخدمها.
وهذا ربط من مشاركة VisualBasic Lover
ولكن الصراحة وجت صعوبة في إستخدامها.
وحاولت أستخدم أداة من الأدوات فقط ولكن وجدت صعوبة كبيرة جداً. ولا أعرف السبب :s
ولكن بعض المحاولات إستطعت فهم أول أداة وهي CommandBar .
وإستخدمة منها القائمة وشريط الأدوات
ويشرفني أن أبداء في هذا المنتدى بالشرح الأول :D
وسوف أشرح كيفية إضافة قائمة وشريط الأدوات إعذروني إذا كنت غير محترف في الشرح ولكن أريد أن يبداء اعضاء المنتدى بإكمال الشروحات :P
وقبل البداء هذا هو برنامج
http://www.codejock.com/public/download/ev...veX.v10.4.1.zip
http://www.codejock.com/public/download/ev...veX.v10.4.1.zip
لن أشرح كيفية عملية التنصيب لأنها سهلة ولا يتطلب الإمر إلى التباع التالي Next :angry:
يجب تحميل أداة ActiveX وتسمى CommandBar
تستطيع إضافتها من قائمة Project
تجد Components
سوف أبداء بالشرح
هذه هي القائمة كما ترون
الكود التالي يقوم بتعريف متغيرات ثابتة لمعرفة قيمة الحدث الذي وقع على الأداة commandBar
ويوضع في المتغيرات العامة
Option Explicit Const ID_FILE_NEW = 4008 Const ID_FILE_OPEN = 4009 Const ID_FILE_SAVE = 4010 Const ID_FILE_PRINT = 4011 Const ID_FILE_CLOSE = 5040 Const ID_FILE_PRINT_SETUP = 5042
الآن سوف نصنع القائمة مع الأدوات
وتوضع في بداء تحميل الفورم
الكود هذا يقوم بتفعيل الأداة
CommandBars.EnableActions
أما هذا الكود هذا سوف يقوم بإدراج في قائمة File
New
Open
Save
Print Setup
Close
وهذا هو الكود
CommandBars.Actions.Add ID_FILE_NEW, "&New", "New", "Create a new document", "File" CommandBars.Actions.Add ID_FILE_OPEN, "&Open", "Open", "Open an existing document", "File" CommandBars.Actions.Add ID_FILE_SAVE, "&Save", "Save", "Save the active document", "File" CommandBars.Actions.Add ID_FILE_PRINT, "&Print", "Print", "Print the active document", "File" CommandBars.Actions.Add ID_FILE_PRINT_SETUP, "&Print Setup", "Print Setup", "Change the printing options", "File" CommandBars.Actions.Add ID_FILE_CLOSE, "&Close", "Close", "Close the active document", "File"
إن CommandBars.Actions.Add يأخذ خمس متغيرات أولها إسم المتغير مثل ID_FILE_NEW
والثاني &NEW وهو الإسم الذي يظهر على القائمة
والثالث NEW وهو عبارة عن تعليق
والرابع Create a new document وهو عبارة عن وصف
أما الخامس هي إسم القائمة وأكيد ماعندنا إلا واحدة وهي File
والآن الكود التالي يقوم تحميل القائمة في CommandBars
Dim Control As CommandBarControl Dim ControlFile As CommandBarPopup 'Add some CommandBar items. Set ControlFile = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&File") With ControlFile.CommandBar.Controls .Add xtpControlButton, ID_FILE_NEW, "" .Add xtpControlButton, ID_FILE_OPEN, "" .Add xtpControlButton, ID_FILE_SAVE, "" Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "") Control.BeginGroup = True .Add xtpControlButton, ID_FILE_PRINT_SETUP, "" Set Control = .Add(xtpControlButton, ID_FILE_CLOSE, "") Control.BeginGroup = True End With
أما هذا الكود يقوم بتحميل شريط الأدوات ويكون محتوياته هو
Dim ToolBar As CommandBar
Set ToolBar = CommandBars.Add("Standard", xtpBarBottom)
With ToolBar.Controls
.Add xtpControlButton, ID_FILE_NEW, ""
.Add xtpControlButton, ID_FILE_OPEN, ""
.Add xtpControlButton, ID_FILE_SAVE, ""
Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "")
Control.BeginGroup = True
End Withإن Control.BeginGroup=True يقوم بوضع خط فاصل بين القوائم
أما هذه الأكواد يقوم بإضافة تعليقات على بعض الأدوات الموجودة في القائمة كالمرور على القائمة أو مكان القائمة
'Disable ALL items with Id ID_FILE_SAVE CommandBars.Actions(ID_FILE_SAVE).Enabled = False 'Change the DescriptionText of ALL items with Id ID_FILE_PRINT 'CommandBars.Actions(ID_FILE_PRINT).DescriptionText = "Print the current document to a file" 'Change the ToolTipText of ALL items with Id ID_FILE_OPEN CommandBars.Actions(ID_FILE_OPEN).ToolTipText = "Open an existing document" ''''''''''''''''''''' CommandBars.LoadCommandBars "Codejock Software ActiveX Demos", App.Title, "Layout"
-----------------------------------------------------------------------------------------
الآن نأتي إلى إضافة الأحداث على القائمة
وهي عبارة عن Method
وهي سهلة جداً لا تحتاج إلى شرح لأنها تستخدم Select Case
وعند الضغط على احد القوائم يقوم إظهار مسج يعلمك على ماذا تم ضغطه
Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl) On Error Resume Next Select Case Control.Id Case ID_FILE_NEW: MsgBox Control.Caption & " Clicked" Case ID_FILE_OPEN: MsgBox Control.Caption & " Clicked" Case ID_FILE_CLOSE: MsgBox Control.Caption & " Clicked" Case ID_FILE_SAVE: MsgBox Control.Caption & " Clicked" Case Else: MsgBox Control.Caption & " clicked", vbOKOnly, "Button Clicked" End Select End Sub
أرجوا أن يحوز على رضاكم
على فكرة كل هذه الأكواد قمت بإقتباسها من أحد ملفات البرنامج
ياشباب أنبهكم تنبيه هام
يمكن أن أكون أخطأت في شرح بعض الأكواد
ولكن سوف أسهل الأمر إليكم وتستطيعون تجربة البرنامج وهو في المرفقات مع الكود
