EnumerateSkinFile

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
wxperson Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 14 January 2010 Status: Offline Points: 16	Post Options Post Reply Quote wxperson Report Post Thanks(0) Quote Reply Topic: EnumerateSkinFile 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

wxperson Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 14 January 2010 Status: Offline Points: 16	Post Options Post Reply Quote wxperson Report Post Thanks(0) Quote Reply 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