 ¡Ò÷ÓÃÙ»Ãèҧ˹éÒµÒ áÅСÒÃÇÒ§µÓá˹觢ͧ 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 ä»ãªéãËéà¡Ô´»ÃÐ⪹ì´éÇÂà¶ÍФÃѺ ... ¾Õè¹éͧ ... áÅÐ àÁ×èÍä´éÃѺÊÔ觷Õè´Õä»áÅéÇ ¨§ÍÂèÒÁغÁÔºÁѹà¡çºäÇ餹à´ÕÂÇ ¨§ÃÙé¨Ñ¡à¼×èÍá¼èÊÔ觷ÕèÃÙéä»ãËé¡Ñº¤¹Í×è¹à¢ÒºéÒ§´éÇÂÅèСѹ ...
| 
