Skin Framework - EnumerateSkinFile

Print Page | Close Window

EnumerateSkinFile

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Skin Framework
Forum Description: Topics Related to Codejock Skin Framework
URL: http://forum.codejock.com/forum_posts.asp?TID=16143
Printed Date: 05 April 2025 at 10:59am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: EnumerateSkinFile

Posted By: wxperson
Subject: EnumerateSkinFile
Date Posted: 04 February 2010 at 1:52pm

Does anyone know where I can find example code which uses the EnumerateSkinFile command?

I am trying to programatically determine which ini files are in a cjstyles file and I cannot find this sample code anywhere .. yet.

Thanks in advance,

George

Replies:

Posted By: wxperson
Date Posted: 04 February 2010 at 2:04pm

Never mind I found the code on a Japanese web site.

Dim Discription As SkinDescription
Dim i As Integer
Dim FileName As String
FileName = App.Path + "..\..\..\Styles\Office2007.cjstyles"
Set Discription = SkinFramework.EnumerateSkinFile(FileName)
For i = 0 To Discription.Count - 1
Debug.Print "IniFile:" & Discription.IniFile(i).IniFileName & "/ColorScheme:" & Discription.IniFile(i).ColorScheme & "/FontSize:" & Discription.IniFile(i).FontSize
Next