تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
يمكننا استخدام فيجول بايزيك 2008 لإنشاء صفحات أشرطة إضافية لـ Excel 2007
#1
كاتب الموضوع : samerselo

سنرى هنا كيف يمكننا استخدام فيجول بايزيك 2008 لإنشاء صفحات أشرطة إضافية لـ Excel 2007
• قم بإنشاء مشروع فيجول بايزيك جديد وذلك بتحديد Project Type إلى Office ثم 2007 ثم اختيار الـ Template هي Excel 2007 WorkBook
• من قائمة Project اختر Add New Item ثم اختر التحكم Actions Pane Control ثم اضغط Add
• من الـ toolbox أضف التحكمات التي تريدها لـ Actions Pane Controls مثلا Label وغير النص بداخله إلى Actions Pane 1
• كرر العملية وأضف تحكما آخر من النوع Actions Pane Control وضع عليه تحكم Label وغير النص بداخله إلى Actions Pane 2
• اختر Add New Item من قائمة Project و أضف تحكم من النوع Ribbon (Visual Designer) للمشروع بعد تغيير تسميته من Ribbon1 إلى MyRibbon ثم اختر Group1 من المحرر الذي يظهر لك وغير الخاصية Label إلى Actions Pane Manager
• من الـ ToolBox ومن قسم Office Ribbon controls أضف Button إلى داخل المجموعة Actions Pane Manager وغير الخاصية Label لتحمل القيمة Show Actions Pane 1 وأضف زرا آخر وغير خاصية Label له إلى Show Actions Pane 2 ثم أضف تحكما آخر لنفس المجموعة من نوع ToggleButton وغير خاصية Label إلى Hide Actions Pane
• يمكننا ملاحظة إمكانية إضافة صفحات إضافية لـ My Ribbon وذلك بالنقر بزر الماوس اليميني في الفراغ بجانب TabAddIns واختيار الأمر Add Ribbon Tab وإضافة الصفحات التي تريدها ثم وضع التحكمات عليها كما سنرى لاحقا جرب إضافة صفحة أو أكثر كما تشاء ثم عد إلى TabAddIns لمتابعة العمل معا
• من solution Explorer انقر بزر الماوس اليميني على MyRibbon ثم اختر الأمر View Code من قائمة السياق
• تحت تعريف الفئة مباشرة أدخل سطري الكود التاليين

كود :
Dim ActionsPane1 As New ActionsPaneControl1
Dim ActionsPane2 As New ActionsPaneControl2
وذلك لتعريف متغيرات في MyRibbon تشير إلى ActionsPaneControls الذين أضفناهما سابقا
• أضف الكود التالي لإجراء معالجة الحدث Load الخاص بـ MyRibbon الذي سيضيف التحكمات ActionsPane1 و ActionsPane2 إلى مجموعة ActionsPane ثم إخفاءهما

كود :
Private Sub MyRibbon_Load(ByVal sender As System.Object, _
ByVal e As RibbonUIEventArgs) Handles MyBase.Load

' Add ActionsPane1 & ActionsPane2 to ActionPane Collection
Globals.ThisWorkbook.ActionsPane.Controls.Add(ActionsPane1)
Globals.ThisWorkbook.ActionsPane.Controls.Add(ActionsPane2)
' Hide Action Panes From View
ActionsPane1.Hide()
ActionsPane2.Hide()
Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = False
End Sub
• سنضيف الآن إجراء معالجة الحدث Click للزر الأول الذي سيقوم بإظهار ActionsPane1 وإخفاء ActionsPane2 ويكون الكود كالتالي

كود :
' Show Actions Pane 1 Button Event Handler
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button2.Click

Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True
ActionsPane1.Show()
ActionsPane2.Hide()
End Sub
• سنضيف الآن إجراء معالجة الحدث Click للزر الثاني الذي سيقوم بإظهار ActionsPane2 وإخفاء ActionsPane1 ويكون الكود كالتالي

كود :
' Show Actions Pane 2 Button Event Handler
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button3.Click

Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True
ActionsPane2.Show()
ActionsPane1.Hide()
End Sub
• سنضيف الآن إجراء معالجة الحدث Click لـ ToggleButton1 كما يلي

كود :
' Hide Actions Pane Event Handler
Private Sub ToggleButton1_Click(ByVal sender As System.Object, ByVal e As _
Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ToggleButton1.Click

If ToggleButton1.Checked Then
Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = False
Else
Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True
End If
End Sub
• شغل التطبيق وانتقل إلى صفحة Add Ins لاختبار البرنامج هنا وإن قمت بإضافة صفحات إضافية ستراها في آخر صفحات شريط أدوات Excel 2007
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد nabil.1710 5 619 13-06-16, 12:16 AM
آخر رد: محمد سالم المحترف
  طريقة تشغيل كريستال ريبورت بجميع ادارات فيجول نت abdhassan 2 319 28-05-16, 02:16 PM
آخر رد: CLARO
  فيديو بالعربي تبادل البيانات بين Excel و VB.net أحمد النجار 0 550 03-06-15, 10:53 PM
آخر رد: أحمد النجار
  [مقال] لنعيد إجراءات وسهولة استخدام ADODB في ADO.NET ebrahem b alabdaly 5 1,482 13-03-15, 09:54 PM
آخر رد: abdala
  [مقال] كلام في استخدام الدوال والروتينات function and sub سعود 4 1,232 04-05-14, 11:06 PM
آخر رد: Ali Wisam
  طلب اكواد فجوال بيسك دوت نت 2008 shgeen 2 642 24-02-13, 06:42 PM
آخر رد: السندباد المصري
  دمج قاعدة بيانات SQL Server 2008 مع المشروع بالـ VBNET snipercoder 3 2,015 12-02-13, 03:39 PM
آخر رد: wael
  معلومة ::: Get Excel Version ::: RaggiTech 0 293 06-10-12, 09:58 PM
آخر رد: RaggiTech
  كود- حساب مواقيت الصلاة Prayer Times في الدوت نت 2008 و 2005 RaggiTech 0 1,467 05-10-12, 01:48 PM
آخر رد: RaggiTech
  كيف يمكننا البحث عن ملف بمحتوى معين ضمن شجرة مجلدات RaggiTech 0 556 05-10-12, 01:47 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم