ҡդӶ ʵŧ 纺촨շ٨絴͵ ᷹ФѺ

͵Դҷҧ 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 6 1 6 1 3 6

7 ѹҤ ..2549
91 Users On-Line.
Visitors - Page views
 8 9 7 3 8 7 9
1 Ҿѹ ..2551

Google   
g2gnet.com
Ҵѡ:  

÷ Skin Codejock Xtreme Suite Pro ActiveX

Category »  VB 6/VB.Net
: Webmaster 28/1/2552   : 18:18
(ҹ : 30009) 
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