หากมีคำถาม ขอให้ไปโพสต์ลง เว็บบอร์ดจีทูจีเน็ตดอตคอม ตัวใหม่แทนน่ะครับ

หรือติดต่อเข้ามาทาง Inbox ที่ เฟซบุ๊ค ผมครับ

หน้าหลัก
ข่าวสาร - บทความ ทั้งหมด
VB 6/VB.Net
ASP/ASP.Net
จับฉ่ายคอมพิวเตอร์
เรียนรู้ผ่าน Flash Movie
บทความที่มีผู้ตอบล่าสุด  
 RSS Feeds
 ดาวน์โหลดโปรแกรม RSS Reader ได้ที่นี่ ...   Download โปรแกรม RSS Reader

Forum - www.g2gnet.com
Webmaster - www.g2gnet.com
Visitors - Session views
 5 2 6 1 5 6 4

7 ธันวาคม พ.ศ.2549
1839 Users On-Line.
Visitors - Page views
 8 5 8 8 2 4 6
1 กุมภาพันธ์ พ.ศ.2551

Google   
เว็บ g2gnet.com
ขนาดตัวอักษร:  

การทำ Menu ด้วย Codejock Xtreme Suite Pro ActiveX - ภาค 2

Category »  VB 6/VB.Net
โดย : Webmaster เมื่อ 3/2/2552   เวลา: 14:20
(อ่าน : 13404) 

ดาวน์โหลด !!!
Codejock Xtreme Suite Pro ActiveX (ต้องติดตั้งก่อนด้วยน่ะครับ)
ดาวน์โหลด Source Code สำหรับ MS Visual Basic 6.0 - Service Pack 6 (CommandBars Designer)
 ดาวน์โหลด Source Code สำหรับ MS Visual Basic 6.0 - Service Pack 6 (SkinFrameWork)
ข้อมูลเพิ่มเติม
รายละเอียดการทำ Skin ด้วย Codejock Xtreme Suite Pro ActiveX
การทำ Menu ด้วย Codejock Xtreme Suite Pro ActiveX - ภาค 1
เริ่มต้นกระบวนการทำงาน

Design Time


โหลดไฟล์ xcb ... Xtreme Command Bars ที่เราทำเอาไว้เข้ามา
หากจะแก้ไขให้เลือก Edit แทนน่ะครับ


ไฟล์ตัวนี้ผมเก็บภายใต้โฟลเดอร์ Res (มาจาก Resource)
ไม่ต้องนำไปใช้กับตัวติดตั้ง (Setup) เพื่อใช้กับเครื่องอื่นเลยน่ะครับ ... พี่น้อง

มาดูโค้ดกันเถอะ ... มันง่ายเพียงไรในการควบคุมมัน

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

Conclusion:
เป็นอย่างไรบ้างล่ะครับ ... พี่น้อง ... สุดยอดอลังการงานสร้างเพียงใด ซึ่งพี่น้องจะหาอ่านจากที่ไหนๆ ฟรีๆแบบนี้จะมีบ้างอีกมั้ยล่ะครับ ... ยากครับขอบอกว่ายาก ... แต่เหตุผลข้อเดียวที่ผมนำมาเปิดเผย ก็คือ ไม่ต้องการให้ความรู้ที่ผมมีอยู่ มันตายไปกับเทคโนโลยี แต่ก็คงจะนำเสนอเท่าที่สติปัญญา และ เวลาของผมจะเอื้ออำนวยให้เท่านั้นแหละครับ
... และก็ไม่ใช่ว่าผมจะสามารถ Support ให้กับทุกๆท่านได้ตลอดเวลาเสมอไป ... โปรดเข้าใจผมด้วยครับ
จี ทู จี เน็ต ดอต คอม - g2gNet Dot Com
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์ 0407314800231
CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
Email: [email protected] หรือ โทร. 08-6862-6560