خوب رسیدیم به جالب ترین بخش آموزش هامون
اولا تشکر کنم از دوستانی که با پیام هاشون بنده رو مورد لطف قرار دادند ........
ببنید این بحثی که الان می خوایم شروع کنیم انقدر گسترده هست که من هیچ موقع نمی تونم تمام اون رو توضیح بدم . و این رو هم بگم من همه چیز رو بلند نیستم دوستان . فقط تا حدی هست که خودم کار کردم و نیاز داشتم .
اول از همه بگم در این قسمت می خوایم فقط ساخت Ribbon رو کار کنیم پس اگر کسی نیاز به ساخت منو و Toolbar داره پیشنهاد من دفترچه تلفن جناب آقای mpmsoft هست .
خوب اول یک نمونه از منوهایی که ساخته شده رو در عکس زیر مشاهده بفرمایید .
البته مطمئن باشید شما خیلی بهتر از این می تونید کار رو انجام بدید.
خوب کار رو شروع می کنیم . ابتدا یک پروژه جدید ایجاد کنید .
یک CommandBars1 روی فرم قرار بدید و یک ImageManager
Properties این دو کنترل رو به صورت زیر قرار بدید .
خوب ابتدا برای راحتی کار یک Sub تعریف می کنیم.
به این صورت
Private Sub RibbonBar()
End Sub
خوب ابتدا این توابع رو تعریف می کنیم.
Dim GroupNew As RibbonGroup
Dim RibbonBar As RibbonBar
Dim TabWrite As RibbonTab
Dim ControlFile As CommandBarPopup
Dim MyGroup As RibbonGroup
Dim MyBtn As CommandBarControl
ابتدا باید Ribbon رو بسازیم.
Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")
خوب حالا می خوایم اون کلید بالا سمت راست ( Office Button ) رو بسازیم.
Set ControlFile = RibbonBar.AddSystemButton()
ControlFile.Caption = "Mybtn"
اینجا باید منوهای اون کلید رو معرفی کنیم . همون منوهایی که در عکس اول دیدید.
With ControlFile.CommandBar.Controls
.Add xtpControlButton,100,"MyMenu"
همینطوری پشت سر هم می تونید منوهاتون رو اضافه کنید.
خوب اولین کاری که باید انجام بدیم این هست که Tab هارو بسازیم.
به این صورت عمل می کنیم
Set TabWrite = RibbonBar.InsertTab(0, "Tab1")
TabWrite.Id = 1
حالا باید گروه ها رو اضافه کنیم
پس با این کد شروع به اضافه کردن گروه ها می کنیم (Category = گروه)
Set MyGroup = TabWrite.Groups.AddGroup("MyGroup", 100)
خوب یک توضیحی رو اینجا لازم هست که ذکر کنیم این هست که چون برنامه به صورت خط به خط اجرا میشه پس اگر شما اول تب رو ایجاد کنید و در خط بعد گروه رو ایجاد کنید توی همون تب قرار میگیره ولی اگر دقیقا همون کدی که برای ایجاد گروه نوشتید رو زیر خط تب بعدی هم قرار بدید دوباره همون گروه ساخته میشه.
خوب حالا باید کلید هامون رو قرار بدیم.
Set MyBtn = MyGroup.Add(xtpControlButton, 100, " Mybtn ")
خوب آخر پست 4تا فایل dll هست که اون ها Theme هایی هستند برای Ribbon bar
(قابل توجه مدیران : این 4 فایل از فروم سایت codejock قابل دریافت هست.)
حالا برای این که از این theme ها استفاده کنیم این کد ها در رویداد Load فرم بنویسید
CommandBarsGlobalSettings.Office2007Images = App.Path + "\Office2007Black.dll"
CommandBars.PaintManager.RefreshMetrics
CommandBars.RecalcLayout
راستی یادتون نره که توی رویداد Form_Load بنویسید
Call RibbonBar
خوب تموم شد . بقیش دیگه به خلاقیت خودتون بستگی داره.
Styles ها رو از اینجا دانلود کنید .
http://mbyte.persiangig.com/document/Styles.rar
سوالی بود در خدمتم.
موفق باشید ./