¡ÒÃ·Ó ToolBar ´éÇ Codejock Xtreme Suite Pro ActiveX

Option Explicit

Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

' ¡ÒÃÊÃéÒ§ TabToolBar
Public WithEvents TabToolBar As XtremeCommandBars.TabToolBar
' ËÃ×Í áººäÁèµéͧàÍÒÁÒàµçÁÂÈ°ÒºÃôÒÈÑ¡´Ôì ... 55555+
'Public WithEvents TabToolBar As TabToolBar

' ¡ÒÃÊÃéÒ§ StatusBar
Dim WithEvents StatusBar As XtremeCommandBars.StatusBar

' ###############################################
' à˵ءÒóì㹡ÒäÅÔê¡àÅ×Í¡ ToolBar ËÃ×Í MenuBar à¾×èÍÊÑè§ãËéä»·Ó§Ò¹ÍÂèÒ§Í×è¹
' ###############################################
Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    On Error Resume Next
    
    Select Case Control.Id
        ' ¡ÅØèÁ¹Õé ¤×Í TabToolBar ¤èÒ¤§·Õè¶Ù¡¡Ó˹´äÇéã¹ä¿Åì modDefinitions.bas
        Case ID_USER_TOOLS_1:
            MsgBox "¤Ø³àÅ×Í¡ÃÒ¡Òà ToolBar µÑÇ·Õè 1"
        Case ID_USER_TOOLS_2:
            MsgBox "¤Ø³àÅ×Í¡ÃÒ¡Òà ToolBar µÑÇ·Õè 2"
        Case ID_USER_TOOLS_3:
            MsgBox "¤Ø³àÅ×Í¡ÃÒ¡Òà ToolBar µÑÇ·Õè 3"
        Case ID_USER_TOOLS_4:
            MsgBox "¤Ø³àÅ×Í¡ÃÒ¡Òà ToolBar µÑÇ·Õè 4"
        Case ID_USER_TOOLS_5:
            MsgBox "¤Ø³àÅ×Í¡ÃÒ¡Òà ToolBar µÑÇ·Õè 5"
            End
            
        ' ¡Ã³Õ¢Í§ MenuBar ¡çàªè¹à´ÕÂǡѹ àÃÒ¹Ó¤èÒ¤§·Õè¨Ò¡ Resource.bas ÁÒãªé§Ò¹ä´éàÅÂ
        Case ID_FILE_MENU1:
            MsgBox "¤Ø³àÅ×Í¡ÃÒ¡Òà MenuBar µÑÇ·Õè 1"
        Case ID_FILE_MENU2:
            MsgBox "¤Ø³àÅ×Í¡ÃÒ¡Òà MenuBar µÑÇ·Õè 2"
        Case ID_PROGRAM_MENU3:
            MsgBox "¤Ø³àÅ×Í¡ÃÒ¡Òà MenuBar µÑÇ·Õè 3"
    End Select
    
End Sub

Private Sub MDIForm_Activate()
    frmMain.Caption = "µÑÇÍÂèÒ§¡ÒÃ·Ó ToolBar ´éÇ Xtreame SuitePro ActiveX - www.g2gnet.com"
    StatusBar(0).Text = "¼Ùé¾Ñ²¹Òâ»Ãá¡ÃÁ : ¹ÒÂÊØþŠÂʹʧèÒ [email protected] [www.g2gnet.com]"
End Sub

Private Sub MDIForm_Initialize()
    InitCommonControls
End Sub

Private Sub MDIForm_Load()

    ' ËÒ¡à»Ô´â»Ãá¡ÃÁ¹Õé«éӡѹ ¨ÐäÁèãËéµÑÇãËÁè¢Öé¹ÁÒ·Ó§Ò¹
    If App.PrevInstance Then End
    
    ' ¡ÒõÑ駤èҤسÊÁºÑµÔ à¾×èÍãªé»ÃÐ⪹ìã¹Êèǹ¢Í§¾ÒÃÒÁÔàµÍÃìÀÒÂ㹢ͧ App
    ' àªè¹ App.Title, App.Path â´Âãªé§Ò¹¼èÒ¹ CommandBars Control
    CommandBarsGlobalSettings.App = App
    ' CommandBarsGlobalSettings ÁÕ Properties ãËéãªé§Ò¹ä´éËÅÒ¡ËÅÒÂÁÒ¡¤ÃѺ àªè¹ ·Óâ»Ãá¡ÃÁËÅÒÂÀÒÉÒ
    ' µÑÇÍÂèÒ§ ...  CommandBarsGlobalSettings.ResourceFile = "XTPResourceArSa.dll"
     
    ' µÑÇá»Ã Control 㹡ÒÃÊÃéÒ§¡ÅØèÁ¢Í§ ToolBar
    Dim Control As CommandBarControl
    
    Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

    ' âËÅ´µÑÇ Designer à¢éÒÊÙè CommandBars ... ¡ç¡ÒÃÊÃéÒ§àÁ¹Ù¹Ñè¹áËÅФÃѺ
    CommandBars.LoadDesignerBars
    
    ' äÁèµéͧ¡ÒÃãËéàÁ¹Ùà¤Å×è͹·Õèä´é (Stretched)
    CommandBars.ActiveMenuBar.EnableDocking xtpFlagStretched
    CommandBars.Options.KeyboardCuesShow = xtpKeyboardCuesShowWindowsDefault
    CommandBars.EnableCustomization False
    
    ' áÊ´§ Theme ... àÅ×Í¡àÍÒÁÒãªéàŤÃѺ
    'SkinFramework.LoadSkin App.Path + "\Styles\Office2007.cjstyles", "NORMALBLUE.ini"
    'SkinFramework.LoadSkin App.Path + "\Styles\Vista.cjstyles", "NORMALBLUE.INI"
    'SkinFramework.LoadSkin App.Path + "\Styles\Vista.cjstyles", "NORMALBLACK.INI"
    'SkinFramework.LoadSkin App.Path + "\Styles\Vista.cjstyles", "NORMALSILVER.INI"

    SkinFramework.LoadSkin App.Path + "\Styles\Office2007.cjstyles", "NORMALBLUE.ini"
    SkinFramework.ApplyWindow (Me.hWnd)
    SkinFramework.ApplyOptions = SkinFramework.ApplyOptions Or xtpSkinApplyMetrics
    CommandBars.PaintManager.RefreshMetrics
    CommandBars.RecalcLayout

    ' à¾ÔèÁÃÒ¡Òà ToolBar
    Set TabToolBar = CommandBars.AddTabToolBar("UserTools")
    ' äÁè͹حҵãËéà¾ÔèÁ/ź (Add or Remove Buttons) ·ÕèÁѹ¨ÐÍÂÙè·Ò§´éÒ¹¢ÇÒÁ×ÍÊØ´¢Í§ ToolBar
    TabToolBar.ShowExpandButton = False
    
    ' ¡Ó˹´¤ÇÒÁ¡ÇéÒ§¢Ñé¹µèÓÊØ´¢Í§ ToolBar áµèÅеÑÇ (˹èÇÂÇÑ´ Pixels)
    TabToolBar.MinimumWidth = 400
    
    ' àÃÔèÁµé¹¡ÒÃà¾ÔèÁ»ØèÁ Control à¢éÒÁÒÂѧ ToolBar
    With TabToolBar
        
        Dim iCount As Integer
        
        ' ÊÃéÒ§ÃÒ¡Òà ToolBar ¢Öé¹ÁÒ â´Âãªéª×èÍ¡ÅØèÁ "User Tools" ÁÕ·Ñé§ËÁ´ 5 µÑÇ
        ' ¤èÒ¤§·Õè ID_USER_TOOLS áµèÅеÑÇ àÃÒ仡Ó˹´Åèǧ˹éÒàÍÒàͧ·Õè modDefinitions.bas
        For iCount = ID_USER_TOOLS_1 To ID_USER_TOOLS_5
            Select Case iCount
                Case 801: Set Control = .Control.Add(xtpControlButton, iCount, "ÃÒ¡ÒõÑÇ·Õè 1")
                Case 802: Set Control = .Control.Add(xtpControlButton, iCount, "ÃÒ¡ÒõÑÇ·Õè 2")
                Case 803: Set Control = .Control.Add(xtpControlButton, iCount, "ÃÒ¡ÒõÑÇ·Õè 3")
                Case 804: Set Control = .Control.Add(xtpControlButton, iCount, "ÃÒ¡ÒõÑÇ·Õè 4")
                Case 805: Set Control = .Control.Add(xtpControlButton, iCount, "ÃÒ¡ÒõÑÇ·Õè 5")
            End Select
        Next
    End With
    
    ' »ÃСÒȵÑÇá»Ã Array µÒÁ¨Ó¹Ç¹ ToolBar ·Õèµéͧ¡ÒÃÊÃéÒ§¢Öé¹ÁÒ à¾×èÍáÊ´§ÃÙ» Icon
    ' ã¹µÑÇÍÂèÒ§ÁÕ 5 µÑÇ â´ÂàÃÔèÁµé¹¨Ò¡ 0 ¶Ö§ 4
    Dim icoIconArray(0 To 4) As Long
    
    icoIconArray(0) = ID_USER_TOOLS_1
    icoIconArray(1) = ID_USER_TOOLS_2
    icoIconArray(2) = ID_USER_TOOLS_3
    icoIconArray(3) = ID_USER_TOOLS_4
    icoIconArray(4) = ID_USER_TOOLS_5
    
    ' âËÅ´ÀÒ¾ PNG à¢éÒÁÒãËé¡Ñº ImageManager
    ImageManager.Icons.LoadBitmap App.Path & "\Icon\images.png", icoIconArray, xtpImageNormal
    
    ' Êè§ãËé¡Ñº CommandBars ÍÕ¡·Õ à¾×èÍãËé ToolBar áÊ´§ÀÒ¾ Icon ä´é
    CommandBars.Icons = ImageManager.Icons
    
    ' µÑ駤èÒ¢¹Ò´ Icon µÒÁ·ÕèàÃÒÍ͡ẺàÍÒäÇé áµèÅеÑǨÐÁÕ¢¹Ò´ 32x32 Pixel
    TabToolBar.SetIconSize 32, 32
    TabToolBar.ShowTextBelowIcons = True
    ' äÁèãËéà¡Ô´¡ÒÃà¤Å×è͹·Õè¢Í§ ToolBar ä´é
    TabToolBar.EnableDocking xtpFlagStretched
    TabToolBar.Closeable = False
    TabToolBar.Customizable = False
    
    ' ======================= ToolTips ==========================
    Dim ToolTipContext As ToolTipContext
    Set ToolTipContext = CommandBars.ToolTipContext
    ToolTipContext.Style = xtpToolTipOffice2007
    ToolTipContext.ShowTitleAndDescription True, xtpToolTipIconNone
    ' µÑ駤èÒµÓá˹觢ͧ ToolTip
    'ToolTipContext.SetMargin 2, 2, 2, 2
    ToolTipContext.MaxTipWidth = 180
    ToolTipContext.ShowShadow = True
    ' ======================= ToolTips ==========================
    
    ' ¡ÒÃÊÃéÒ§ StatusBar ·ÕèÍÂÙè´éÒ¹ÅèÒ§¢Í§¿ÍÃìÁ
    Set StatusBar = CommandBars.StatusBar
    StatusBar.Visible = True
    
    StatusBar.AddPane 0
    ' ¤èÒ¤§·Õèæ¡Ó˹´äÇéã¹ modDefinitions.bas áÅÐà»ç¹¤èÒʧǹ·Õèà»ÅÕè¹á»Å§äÁèä´é
    StatusBar.AddPane ID_INDICATOR_CAPS
    StatusBar.AddPane ID_INDICATOR_NUM
    StatusBar.AddPane ID_INDICATOR_SCRL
    StatusBar.IdleText = "¼Ùé¾Ñ²¹Òâ»Ãá¡ÃÁ : ¹ÒÂÊØþŠÂʹʧèÒ [email protected] [www.g2gnet.com]"

End Sub