Codejock Developer Community : two different cjstyles on same form (vb6) http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 04 Apr 2026 11:07:08 +0000 Wed, 13 Mar 2013 09:51:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=17961 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[two different cjstyles on same form (vb6) : there is a way to pay a customization?...]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=70398&title=two-different-cjstyles-on-same-form-vb6#70398 Author: 2bit
Subject: 17961
Posted: 13 March 2013 at 9:51am

there is a way to pay a customization?]]> Wed, 13 Mar 2013 09:51:17 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=70398&title=two-different-cjstyles-on-same-form-vb6#70398 <![CDATA[two different cjstyles on same form (vb6) : Sorry, it after going through...]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=70397&title=two-different-cjstyles-on-same-form-vb6#70397 Author: SuperMario
Subject: 17961
Posted: 13 March 2013 at 9:47am

Sorry, it after going through the code it appears this isn't possible with the push buttons.  You would need to use regular command buttons to do this.]]> Wed, 13 Mar 2013 09:47:51 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=70397&title=two-different-cjstyles-on-same-form-vb6#70397 <![CDATA[two different cjstyles on same form (vb6) : have you got any idea about this...]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=69857&title=two-different-cjstyles-on-same-form-vb6#69857 Author: 2bit
Subject: 17961
Posted: 05 March 2013 at 12:25pm

have you got any idea about this problem?]]> Tue, 05 Mar 2013 12:25:46 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=69857&title=two-different-cjstyles-on-same-form-vb6#69857 <![CDATA[two different cjstyles on same form (vb6) : it&#039;s not ok. the pushbutton...]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=69827&title=two-different-cjstyles-on-same-form-vb6#69827 Author: 2bit
Subject: 17961
Posted: 05 March 2013 at 2:02am

it's not ok. the pushbutton receives from SkinFramework.loadSkin the global skin, but when I apply single SetWindowTheme... it ignores command.
this is the code: a sample with 48 windows command button  and a pushbutton.
I have modify Office2007 skin to have an added skin named "redskin.ini" 

Private Sub Form_Load()

SkinFramework1.LoadSkin App.Path & "\Office20071.cjstyles", "LightBlue.INI"
SkinFramework1.ApplyWindow Me.hWnd

Dim i As Integer


For i = 0 To 47
    If i Mod 3 = 0 Then
        Set skinSchema(i) = SkinFramework1.CreateSchema(App.Path & "\Office20071.cjstyles", "LightBlue.INI")
    ElseIf i Mod 3 = 1 Then
        Set skinSchema(i) = SkinFramework1.CreateSchema(App.Path & "\Office20071.cjstyles", "NormalAqua.INI")
    ElseIf i Mod 3 = 2 Then
        Set skinSchema(i) = SkinFramework1.CreateSchema(App.Path & "\Office20071.cjstyles", "Redskin.ini")
    End If
    
    SkinFramework1.SetWindowTheme Command1(i).hWnd, skinSchema(i)
Next

    Set skinSchema(48) = SkinFramework1.CreateSchema(App.Path & "\Office20071.cjstyles", "Redskin.INI")
   
    SkinFramework1.SetWindowTheme PushButton1.hWnd, skinSchema(48)
    PushButton1.Appearance = PushButton1.Appearance

End Sub

]]> Tue, 05 Mar 2013 02:02:03 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=69827&title=two-different-cjstyles-on-same-form-vb6#69827 <![CDATA[two different cjstyles on same form (vb6) : try using XP or default theme...]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=69813&title=two-different-cjstyles-on-same-form-vb6#69813 Author: SuperMario
Subject: 17961
Posted: 04 March 2013 at 4:49pm

try using XP or default theme for the push button, then apply skin]]> Mon, 04 Mar 2013 16:49:06 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=69813&title=two-different-cjstyles-on-same-form-vb6#69813 <![CDATA[two different cjstyles on same form (vb6) : dear, my name is Marco. Using...]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=69795&title=two-different-cjstyles-on-same-form-vb6#69795 Author: 2bit
Subject: 17961
Posted: 03 March 2013 at 8:18am

dear, my name is Marco. Using vb6 command button on the prj sample there is not problem.
Using Codejock pushbutton the SetWindowTheme does not apply the right schema and pushbutton keeps the global skin loaded  with the loadskin method. What may be the problem?
]]> Sun, 03 Mar 2013 08:18:47 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=69795&title=two-different-cjstyles-on-same-form-vb6#69795 <![CDATA[two different cjstyles on same form (vb6) : thx oleg!Best,A. ]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=63132&title=two-different-cjstyles-on-same-form-vb6#63132 Author: auto160
Subject: 17961
Posted: 06 March 2011 at 4:46am

thx oleg!
Best,
A.
]]> Sun, 06 Mar 2011 04:46:59 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=63132&title=two-different-cjstyles-on-same-form-vb6#63132 <![CDATA[two different cjstyles on same form (vb6) : Actually you made all right. Only...]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=63112&title=two-different-cjstyles-on-same-form-vb6#63112 Author: Oleg
Subject: 17961
Posted: 04 March 2011 at 6:46am

Actually you made all right. Only name of ini in your code should be "NormalBlue.ini" and "NormalGreen.ini"


so such code works for me


Private Sub Form_Load()

' Main application skin    
    SkinFramework1.LoadSkin App.Path & "\Codejock.cjstyles", ""
    SkinFramework1.ApplyWindow Me.hWnd

   Set MyBlueSchema = SkinFramework1.CreateSchema(App.Path & "\Buttons.cjstyles", "NormalBlue.ini")
   SkinFramework1.SetWindowTheme Command1.hWnd, MyBlueSchema
   
   Set MyBlueSchema = SkinFramework1.CreateSchema(App.Path & "\Buttons.cjstyles", "NormalGreen.ini")
   SkinFramework1.SetWindowTheme Command2.hWnd, MyBlueSchema
   
End Sub

]]> Fri, 04 Mar 2011 06:46:33 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=63112&title=two-different-cjstyles-on-same-form-vb6#63112 <![CDATA[two different cjstyles on same form (vb6) : Also you only use 1 instance of...]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=63087&title=two-different-cjstyles-on-same-form-vb6#63087 Author: SuperMario
Subject: 17961
Posted: 03 March 2011 at 9:28am

Also you only use 1 instance of skin framework like in the sample.  For it to work you must apply a skin to the to the app like in the sample, only then will skinning individual objects work.]]> Thu, 03 Mar 2011 09:28:29 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=63087&title=two-different-cjstyles-on-same-form-vb6#63087 <![CDATA[two different cjstyles on same form (vb6) : If you look at our skin MDI...]]> http://forum.codejock.com/forum_posts.asp?TID=17961&PID=63086&title=two-different-cjstyles-on-same-form-vb6#63086 Author: SuperMario
Subject: 17961
Posted: 03 March 2011 at 9:25am

If you look at our skin MDI sample open it and add this to the frmDialogBar form for a different skin for each button on that form:

Private Sub Form_Load()

    Dim skinSchemaTemp As SkinSchema
   
    Set skinSchemaTemp = fMainForm.SkinFramework.CreateSchema(App.Path + "..\..\..\..\SkinFramework\Styles\Office2007.cjstyles", "NormalBlack.INI")
    fMainForm.SkinFramework.SetWindowTheme cmdColorDialog.hWnd, skinSchemaTemp
   
    Set skinSchemaTemp = fMainForm.SkinFramework.CreateSchema(App.Path + "..\..\..\..\SkinFramework\Styles\WinXP.Luna.cjstyles", "NormalBlue.INI")
    fMainForm.SkinFramework.SetWindowTheme cmdOpenDialog.hWnd, skinSchemaTemp
   
    Set skinSchemaTemp = fMainForm.SkinFramework.CreateSchema(App.Path + "..\..\..\..\SkinFramework\Styles\Office2007.cjstyles", "NormalSilver.INI")
    fMainForm.SkinFramework.SetWindowTheme cmdPrintDialog.hWnd, skinSchemaTemp
   
    Set skinSchemaTemp = fMainForm.SkinFramework.CreateSchema(App.Path + "..\..\..\..\SkinFramework\Styles\WinXP.Luna.cjstyles", "NormalHomestead.INI")
    fMainForm.SkinFramework.SetWindowTheme cmdFontDialog.hWnd, skinSchemaTemp
   
End Sub

And in main form:
Private Sub MDIForm_Load()
    SkinFramework.LoadSkin App.Path + "..\..\..\..\SkinFramework\Styles\Office2007.cjstyles", "NormalBlue.ini"
    SkinFramework.ApplyWindow Me.hWnd
.....
End Sub
]]> Thu, 03 Mar 2011 09:25:43 +0000 http://forum.codejock.com/forum_posts.asp?TID=17961&PID=63086&title=two-different-cjstyles-on-same-form-vb6#63086