Private Sub Form_Load()
Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
Me.Caption = "CodeJock CommandBars - [www.g2gnet.com]"
' ตัวอย่างการเลือก Skin
'SkinFramework1.LoadSkin App.Path + "\Styles\Office2007.cjstyles", "NORMALBLUE.ini"
SkinFramework1.LoadSkin App.Path + "\Styles\Vista.cjstyles", "NORMALBLUE.INI"
'SkinFramework1.LoadSkin App.Path + "\Styles\Vista.cjstyles", "NORMALBLACK.INI"
'SkinFramework1.LoadSkin App.Path + "\Styles\Vista.cjstyles", "NORMALSILVER.INI"
SkinFramework1.ApplyWindow (Me.hWnd)
SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics
' ============ MENU BARS =============
' กำหนดเอาส่วนสำคัญๆในการควบคุมมาใช้งาน
' โหลด Designer เข้ามา (CodeJockMenu.xcb)
CommandBars1.LoadDesignerBars
' ไม่สามารถปรับแต่งเมนูบาร์ใดๆ ในขณะที่โปรแกรมทำงานได้
' หากกำหนดเป็น True ... พี่น้องลองใช้เมาส์ขวาคลิ๊กดูจะเห็น Customize ...
CommandBars1.EnableCustomization False
' การเปลี่ยน Theme แบบ Run Time
'CommandBars1.VisualTheme = xtpThemeOffice2007
'CommandBars1.VisualTheme = xtpThemeRibbon
'CommandBars1.VisualTheme = xtpThemeVisualStudio2008
' และอื่นๆ ... ก็ลองทดสอบดูครับพี่น้อง
' การยึดเมนูเอาไว้ไม่ให้เคลื่อนที่ออกไปไหนได้ หรือ ที่เรียกว่า Docking
CommandBars1.ActiveMenuBar.EnableDocking xtpFlagStretched
' หลักๆก็มีอยู่แค่เนี่ย ... ง่ายจังวุ้ย ... แต่กว่าผมจะหาเจอน่ะ
' ========================== STATUS BARS ======================
Dim StatusBar As StatusBar
' StatusBar เป็นส่วนหนึ่งของ CommandBars
Set StatusBar = CommandBars1.StatusBar
StatusBar.AddPane 0
StatusBar(0).Text = "[www.g2gnet.com eMail: [email protected]]"
StatusBar.AddPane ID_INDICATOR_CAPS
StatusBar.AddPane ID_INDICATOR_NUM
StatusBar.AddPane ID_INDICATOR_SCRL
StatusBar.Visible = True
End Sub
' เหตุการณ์ในการคลิ๊กเลือกเมนูในแต่ละรายการ
' โดยใช้ Control.Id เป็นตัวทดสอบเงื่อนไข เท่านั้นเอง
' ค่า Control.Id ตัวนี้ จะเป็นค่าคงที่ ที่ถูกกำหนดไว้ใน Resource.bas (อยู่ที่อื่นก็ได้) นั่นปะไรล่ะครับ ... พี่น้อง
' นั่นคือการกำหนดตัวแปร และ ค่าคงที่เอาไว้ มันก็เป็นกุญแจดอกสำคัญสำหรับ Codejock Xtreme Suite Pro ActiveX
Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
Select Case Control.Id
Case ID_FILE_MENU1:
'Call โปรแกรมย่อย
MsgBox "คุณเลือกเมนูที่ 1", vbOKOnly + vbInformation, "สถานะการทำงาน"
Case ID_FILE_MENU2:
'Call โปรแกรมย่อย
MsgBox "คุณเลือกเมนูที่ 2", vbOKOnly + vbInformation, "สถานะการทำงาน"
Case ID_PROGRAM_MENU3:
'Call โปรแกรมย่อย
MsgBox "คุณเลือกเมนูที่ 3", vbOKOnly + vbInformation, "สถานะการทำงาน"
End Select
End Sub
|