راهنمای کامپوننت CodeJoke

[Mehr@ban]

ضمن سلام خدمت همه دوستان فعال در تالار اکسس و اساتید محترم

حتما در خصوص کامپوننت کدجوک که بیشترین کاربردش (که طی جستجوهای تالار انجام دادم) در مورد ریبون سازی هست شنیدین!
که با استفاده از این کامپوننت یا اکتیویکس میشه به راحتی ریبون های زیبا و صد البته راستچینی طراحی کرد (فراموش نشه که یکی از قابلیت های این کامپوننت هست)

دوستان انگشت شماری رو دیدم که با این کامپوننت کار کردن من جمله آقایان

• صدیقی @AbbasSediqi
• بهرامی @alirezabahrami
• محمدصالح @mohammadsaleh
• و دوستان دیگه

در تاپیکی آقای صدیقی قصد آموزش ساخت و ایجاد ریبون رو داشتن که منصرف شدن! برای همین موضوع اگر از دوستانی که بالا ذکر شد و یا دیگر دوستان آموزشی در مورد کار با این کامپوننت (برای ساخت ریبون و یا امکانات دیگر این کامپوننت) دارن مثل قدیم در اختیار دیگران هم قرار بدن

[Mehr@ban]

خب البته در تالار vb6 یک اشاراتی به این کامپوننت شده
از جمله تاپیکهای زیر

• زیبا سازی برنامه ها با CodeJock ‏
• ویدئوهای آموزشی ویژوال بیسیک ‏

[AbbasSediqi]

با سلام

نمونه در تاپیک ذکر شده قرار دادم

اما توضیح مختصری میدم باز

نخست نصب codejock

بعد هم مطابق این تصویر

Untitled.jpg

وبعد باید در Form_Load برنامه به این شکل عمل کنید

اول تم برای ریبون

CommandBarsGlobalSettings.ResourceImages.LoadFromF  ile CurrentProject.Path & "\Styles\Office2010.dll", "Office2010Black.ini"

نکته : فرض بر اینه که فایل Office2010.dll که در محل نصب Codejock قرار داره رو در پوشه Style در همون محل برنامه قرار دادیم

وبعد از اون باید عکس ها یا بهتر بگم آیکون ها رو فراخوانی کنیم

فرض بر اینه که در پوشه res قرار دارند

اول در همون Form_Load باید sub رو فراخوانی کنیم مثلا نام sub رو LoadIcons گذاشتیم

حالا sub رو به این شکل مینویسیم

Private Sub LoadIcons()

CommandBars.Icons.LoadBitmap CurrentProject.Path & "\res\SystemMenuLarge.png", _

        Array(ID_FILE_NEW, ID_FILE_OPEN, ID_FILE_SAVE, ID_FILE_SAVE_AS, _

        ID_FILE_PRINT, ID_FILE_PRINT_SETUP, ID_FILE_PRINT_PREVIEW, ID_FILE_PREPARE, _

        ID_FILE_SEND, ID_FILE_CLOSE, ID_FILE_SEND_MAIL, ID_FILE_SEND_INTERNETFAX), xtpImageNormal





            

    CommandBars.Icons.LoadBitmap CurrentProject.Path & "\res\shiny-gear.png", ID_SYSTEM_ICON, xtpImageNormal



CommandBars.Icons.LoadIcon CurrentProject.Path & "\res\GroupPopup.ico", ID_GROUP_POPUPICON, xtpImageNormal

End Sub

این ها نمونه اند

نکته برای همه کنترل ها باید یک ID در نظر بگیرید که به اون هم میرسیم

درصورت استفاده از Icon از CommandBars.Icons.LoadIcon و در صورت استفاده از فرمت png از CommandBars.Icons.LoadBitmap استفاده میکنیم

ودر کل به ان صورت

دستور لود (آدرس،ای دی،حالت لود شدن)

CommandBars.Icons.LoadBitmap(path,id,imageloadtype  )

نکته در صورت استفاده از تصویر مولتی برای چند کنترل
مثل عکس زیر

GalleryStyles.png

از array برای id استفاده میکنیم و تمامی کنترل های مربوطه رو به ترتیب قرار گیری در عکس در array میاریم

CommandBars.Icons.LoadBitmap CurrentProject.Path & "\res\SystemMenuLarge.png", _

        Array(ID_FILE_NEW, ID_FILE_OPEN, ID_FILE_SAVE, ID_FILE_SAVE_AS, _

        ID_FILE_PRINT, ID_FILE_PRINT_SETUP, ID_FILE_PRINT_PREVIEW, ID_FILE_PREPARE, _

        ID_FILE_SEND, ID_FILE_CLOSE, ID_FILE_SEND_MAIL, ID_FILE_SEND_INTERNETFAX), xtpImageNormal

[AbbasSediqi]

بعد باید در همون Form_Load تابع CreateRibbon رو قرار بدیم



نکته باید id های کنترل ها رو به صورت const نوسته و در یک مدل قرار بدید

مثال

ublic Const IDR_CNTR_INPLACE = 6

Public Const IDD_ABOUTBOX = 100

Public Const IDP_OLE_INIT_FAILED = 100

Public Const IDP_FAILED_TO_CREATE = 102

Public Const IDR_MAINFRAME = 128

Public Const IDR_SMALLICONS = 128

و حالا این تابع CreateRibbon رو به این شکل مینویسیم

Private Sub CreateRibbon()





End Sub

بعد در همین جا

اول ریبون رو تعریف میکنیم

Dim RibbonBar As RibbonBar

    Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")

    RibbonBar.EnableDocking xtpFlagStretched

وبعد متغییر ها کنترل ها رو

Dim ControlFile As CommandBarPopup, ControlTheme As CommandBarPopup, ControlAbout As CommandBarControl, ControlPrint As CommandBarPopup

    Dim PopupBar As CommandBar

و بعد ست کردن متغییر ( این برای منوی اصلیه ، همون منوی فایل در آفیس که روش کلیک میکنید یه منو باز میشه برای فایل جدید و save و ...)

Set ControlFile = RibbonBar.AddSystemButton()

و بعد اطلاعات منوی اصلی

ControlFile.IconId = ID_SYSTEM_ICON

    ControlFile.Caption = "&AbbasSediqi"

    ControlFile.Style = xtpButtonIconAndCaption

و بعد کنترل های منوی اصلی

 With ControlFile.CommandBar.Controls

        .Add xtpControlButton, ID_FILE_NEW, "&New"

        .Add xtpControlButton, ID_FILE_OPEN, "&Open..."

        .Add xtpControlButton, ID_FILE_SAVE, "&Save"

        .Add xtpControlButton, ID_FILE_SAVE_AS, "Save &As..."

        Set ControlPrint = .Add(xtpControlSplitButtonPopup, ID_FILE_PRINT, "&Print")

        ControlPrint.BeginGroup = True

        Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopu  pBarPage")

        Set ControlPrint.CommandBar = PopupBar

        Set Control = PopupBar.Controls.Add(xtpControlLabel, 0, "Preview and print the document")

        Control.Width = 296

        Control.DefaultItem = True

        Control.Style = xtpButtonCaption

        PopupBar.DefaultButtonStyle = xtpButtonCaptionAndDescription

        PopupBar.SetIconSize 32, 32

        PopupBar.ShowGripper = False

        

        

        

        PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT, "Print Pre&view"

        PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_SETUP, "Pr&int Setup..."

        PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_PREVIEW, "Print Pre&view"

        .Add xtpControlButton, ID_FILE_PREPARE, "Pr&epare"

        .Add xtpControlButton, ID_FILE_SEND, "Sen&d"

        .Add xtpControlButton, ID_FILE_PREPARE, "P&ublish"

        .Add xtpControlButton, ID_FILE_CLOSE, "Close"

        

        

        Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonCon  trolSystemPopupBarListCaption")

        Control.Caption = "Recent Documents"

        Control.BeginGroup = True

        .AddControl Control

       

        Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonCon  trolSystemPopupBarListItem")

        Control.Caption = "Form_Form1.frm"

        .AddControl Control

        

        Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonCon  trolSystemPopupBarButton")

        Control.Caption = "Opt&ions"

        Control.Id = ID_FILE_OPTIONS

        .AddControl Control

     

        Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonCon  trolSystemPopupBarButton")

        Control.Caption = "E&xit Sample"

        Control.Id = ID_APP_EXIT

        .AddControl Control





        

        ControlFile.CommandBar.SetIconSize 32, 32

    End With

و در کل به این شکل میشه

Private Sub CreateRibbon()

Dim RibbonBar As RibbonBar

    Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")

    RibbonBar.EnableDocking xtpFlagStretched

    

    

    Dim ControlFile As CommandBarPopup, ControlTheme As CommandBarPopup, ControlAbout As CommandBarControl, ControlPrint As CommandBarPopup

    Dim PopupBar As CommandBar

    

    Set ControlFile = RibbonBar.AddSystemButton()

    ControlFile.IconId = ID_SYSTEM_ICON

    ControlFile.Caption = "&AbbasSediqi"

    ControlFile.Style = xtpButtonIconAndCaption

    With ControlFile.CommandBar.Controls

        .Add xtpControlButton, ID_FILE_NEW, "&New"

        .Add xtpControlButton, ID_FILE_OPEN, "&Open..."

        .Add xtpControlButton, ID_FILE_SAVE, "&Save"

        .Add xtpControlButton, ID_FILE_SAVE_AS, "Save &As..."

        Set ControlPrint = .Add(xtpControlSplitButtonPopup, ID_FILE_PRINT, "&Print")

        ControlPrint.BeginGroup = True

        Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopu  pBarPage")

        Set ControlPrint.CommandBar = PopupBar

        Set Control = PopupBar.Controls.Add(xtpControlLabel, 0, "Preview and print the document")

        Control.Width = 296

        Control.DefaultItem = True

        Control.Style = xtpButtonCaption

        PopupBar.DefaultButtonStyle = xtpButtonCaptionAndDescription

        PopupBar.SetIconSize 32, 32

        PopupBar.ShowGripper = False

        

        

        

        PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT, "Print Pre&view"

        PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_SETUP, "Pr&int Setup..."

        PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_PREVIEW, "Print Pre&view"

        .Add xtpControlButton, ID_FILE_PREPARE, "Pr&epare"

        .Add xtpControlButton, ID_FILE_SEND, "Sen&d"

        .Add xtpControlButton, ID_FILE_PREPARE, "P&ublish"

        .Add xtpControlButton, ID_FILE_CLOSE, "Close"

        

        

        Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonCon  trolSystemPopupBarListCaption")

        Control.Caption = "Recent Documents"

        Control.BeginGroup = True

        .AddControl Control

       

        Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonCon  trolSystemPopupBarListItem")

        Control.Caption = "Form_Form1.frm"

        .AddControl Control

        

        Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonCon  trolSystemPopupBarButton")

        Control.Caption = "Opt&ions"

        Control.Id = ID_FILE_OPTIONS

        .AddControl Control

     

        Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonCon  trolSystemPopupBarButton")

        Control.Caption = "E&xit Sample"

        Control.Id = ID_APP_EXIT

        .AddControl Control





        

        ControlFile.CommandBar.SetIconSize 32, 32

    End With

End Sub

[AbbasSediqi]

این هم کل یه نمونه از خود codejock

تا بقیه رو هم توضیح بدم



فعلا یا حق

[AbbasSediqi]

این هم نمونه کار


Untitled (1).jpg
یا حق