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

หรือติดต่อเข้ามาทาง 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 1 1 2 2 5 8

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

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

การทำ Skin ด้วย Codejock Xtreme Suite Pro ActiveX

Category »  VB 6/VB.Net
โดย : Webmaster เมื่อ 28/1/2552   เวลา: 18:18
(อ่าน : 27142) 
CodeJock Web Siteการทำรูปร่างหน้าตา และการวางตำแหน่งของ Control ต่างๆในโปรแกรม หรือ ที่เรียกขานกันว่า Graphic User Interface (GUI) เป็นส่วนหนึ่งของงานการผลิตซอฟท์แวร์ อันดับแรกๆเลยก็คือ ให้มีความสวยงาม น่าใช้งาน (นานๆ ... ศรีทนได้ ... เหอๆๆๆๆ) หรือ ในทางการตลาดเรียกว่า สร้างมูลค่าเพิ่มให้กับตัวสินค้านั่นเอง ส่วนการทำงานของโปรแกรมจริงๆอาจจะแต๋ว เอ้ย ฮ่วยแตก ก็เอาไว้ทีหลังล่ะกัน 55555+ ... สำหรับเจ้า Codejock Xtreme Suite Pro ActiveX ตั้งแต่ลองทดสอบมาจากรุ่นที่เท่าไหร่ผมก็จำไม่ได้ เพราะมันนานมากแล้ว จนมาสู่ยุคปัจจุบัน (12.1.1) สิ่งหนึ่งที่ยังคงคุณสมบัติประจำตัวของมันก็คือ ... Help ที่ไม่ได้เรื่องเลยจริงๆครับพี่น้อง ... รองลงมาคือไฟล์ตัวอย่างเนี่ย ที่มันทำออกมาให้งงเล่น ก็พอจะทำให้รู้เลยล่ะว่า ... ทำไมโปรแกรมต่างๆที่ผลิตกันในไทยเนี่ย จึงไม่ค่อยได้เห็นการใช้งาน ActiveX ตัวนี้กันมากนัก ก็เพราะว่ามันใช้งานยากเย็นแสนลำเข็ญซ่ะเหลือเกิน ต้องใช้โค้ดสั่ง Run - Time อย่างเดียว ประเภทจับลากมาวางๆใส่ ... เหอๆๆๆๆ ... ใครที่คิด และ ติดรูปแบบนี้มาก็หมดสิทธิ์ล่ะครับ ส่วนใหญ่ที่พบ ActiveX นี้ในไทยก็คือพวกที่ใช้งานใน DOT NET กันซ่ะมากกว่า อย่ากระนั้นเลยครับพี่น้อง ... ความลับมันไม่มีอยู่ในโลก หากคิดจะเป็นชู้ต้อง มาเร็ว ทำเร็ว เคลมเร็ว และ ไปให้เร็วๆด้วย ... อิอิอิ ... มาคนละเรื่องกันเลย แซวโฆษณาเขาไปงั้นๆแหละ ... แต่ว่าสำหรับ VB6 มันก็ไม่ได้น้อยหน้ากว่า Tools ตัวอื่นๆหรอกครับ ... พี่น้อง ... เก่าแต่เก๋าว่างั้นเหอะน่ะ
นี่น่ะเหรอทำมาจาก Visual Basic 6.0 ... อุ๊แม่เจ้า
ดาวน์โหลด !!!
Codejock Xtreme Suite Pro ActiveX (ต้องติดตั้งก่อนด้วยน่ะครับ)
 ดาวน์โหลด Source Code สำหรับ MS Visual Basic 6.0 - Service Pack 6

การเลือก Skin และ Theme
Office2007.cjstyles: -NORMALAQUA.INI -NORMALBLUE.INI Vista.cjstyles: -NORMALBLACK.INI -NORMALBLUE.INI -NORMALSILVER.INI WinXP.Luna.cjstyles: -EXTRALARGEBLUE.INI -EXTRALARGEHOMESTEAD.INI -EXTRALARGEMETALLIC.INI -LARGEBLUE.INI -LARGEHOMESTEAD.INI -LARGEMETALLIC.INI -NORMALBLUE.INI -NORMALHOMESTEAD.INI -NORMALMETALLIC.INI WinXP.Royale.cjstyles: -EXTRALARGEFONTSROYALE.INI -LARGEFONTSROYALE.INI -NORMALROYALE.INI
เริ่มต้นกระบวนการทำงาน

Project --> Components ...


ตำแหน่งของการวางโฟลเดอร์ Styles ... หรือปรับจากโค้ดเอาก็ได้
หาได้จาก C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v12.0.0\Samples\SkinFramework\Styles
ขีดเส้นใต้เอาไว้ ... ขึ้นอยู่กับรุ่นที่ใช้งาน


Design Time


Run Time


ตัวอย่าง กรณีที่ต้องนำ OCX ไปใช้ในการติดตั้งเครื่องอื่น ต้องเลือกไฟล์พวกนี้มาน่ะครับ
C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v12.0.0\Bin

มาดูโค้ดกันเถอะ ...

Option Explicit

' กำหนดค่าคงที่สำหรับทำ StatusBar (CodeJock)
Const ID_INDICATOR_CAPS As Long = 59137
Const ID_INDICATOR_NUM = 59138
Const ID_INDICATOR_SCRL = 59139

Private Sub Form_Load()
    Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    
    Me.Caption = "CodeJock SkinFrameWork - [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
    
    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

Private Sub optSkin_Click(Index As Integer)
    Select Case Index
        Case 0
            SkinFramework1.LoadSkin App.Path + "\Styles\Vista.cjstyles", "NORMALBLUE.INI"
        Case 1
            SkinFramework1.LoadSkin App.Path + "\Styles\Vista.cjstyles", "NORMALBLACK.INI"
        Case 2
            SkinFramework1.LoadSkin App.Path + "\Styles\Vista.cjstyles", "NORMALSILVER.INI"
        Case 3
            SkinFramework1.LoadSkin App.Path + "\Styles\Office2007.cjstyles", "NORMALBLUE.ini"
    End Select
End Sub

Private Sub Command1_Click()
    Set frmSkinFrameWork = Nothing
    End
End Sub

Conclusion:
เห็นมั้ยครับว่ามันง่ายแค่ไหน ... พี่น้องทั้งหลายก็สามารถที่จะนำไปใส่ไว้ใน Application ของท่านได้แล้ว มันก็จะดูดีมีชาติตระกูลขึ้นมาอีกโขเลย ในตำราก็ไม่มี ในเว็บผู้ผลิตเองก็ทำออกมาดูให้มันยากซ่ะงั้น ... แต่พรหมลิขิตนำทางให้เรามาเจอกัน ... ก็จงนำสิ่งที่ดีๆจากเว็บไซต์ www.g2gnet.com ไปใช้ให้เกิดประโยชน์ด้วยเถอะครับ ... พี่น้อง ... และ เมื่อได้รับสิ่งที่ดีไปแล้ว จงอย่ามุบมิบมันเก็บไว้คนเดียว จงรู้จักเผื่อแผ่สิ่งที่รู้ไปให้กับคนอื่นเขาบ้างด้วยล่ะกัน ...

จี ทู จี เน็ต ดอต คอม - g2gNet Dot Com
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์ 0407314800231
CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
Email: [email protected] หรือ โทร. 08-6862-6560