 การทำรูปร่างหน้าตา และการวางตำแหน่งของ 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 ... อุ๊แม่เจ้า
|
การเลือก 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 ไปใช้ให้เกิดประโยชน์ด้วยเถอะครับ ... พี่น้อง ... และ เมื่อได้รับสิ่งที่ดีไปแล้ว จงอย่ามุบมิบมันเก็บไว้คนเดียว จงรู้จักเผื่อแผ่สิ่งที่รู้ไปให้กับคนอื่นเขาบ้างด้วยล่ะกัน ...
| 
