Activeskin problem ...Can`t skin all forms

[Mezzzo]

Hi

I`m wondering if anyone uses the ActiveSkin control. I`m trying to skin all my
forms by opening the theme file location. As it works currently I can only seem
to skin the main form. I`m uncertain how to code the control to skin all the forms
at once.
Option Explicit
Private m_oBalloons(0 To 1) As CBalloonTip ' An array of balloon tip objects,
' one for each demo button
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private hHelp As New HTMLHelp
Public irow As Integer 'current row of flexgrid
Private m_iCount As Long
Public FileName As String
Public cjob As clsTask
Private jid As Integer
Dim OldX As Long, OldY As Long, nDC As Long 'screen resolution
Dim bRecover As Boolean, suc As Long 'screen resolution
Private bclosed As Boolean
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OpenFilename) As Long
Private Type OpenFilename
lStructSize As Long
hWndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
iFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Function ShowFileDialog() As String
Dim ofn As OpenFilename
ofn.lStructSize = Len(ofn)
ofn.hWndOwner = hwnd
ofn.lpstrFilter = "Skin files (*.skn)" & Chr$(0) & "*.skn" & Chr$(0) & Chr(0) & Chr(0)
ofn.lpstrFile = String(256, 0)
ofn.nMaxFile = 255
ofn.lpstrTitle = "Open Skin"
ofn.Flags = &H800000 + &H1000 + &H8 + &H4
ofn.lpstrDefExt = "skn" + Chr(0)
GetOpenFileName ofn
If Mid(ofn.lpstrFile, 1, 1) <> Chr(0) Then ShowFileDialog = ofn.lpstrFile
End Function
----------------------------------------------------------------------------------------------------------------
Private Sub skin_Click()
miOpen_Click
End Sub
----------------------------------------------------------------------------------------------------------------
' Opens the skin from the file
Private Sub miOpen_Click()
Dim FileName As String
FileName = ShowFileDialog
If FileName <> "" Then
Skn.LoadSkin FileName ' Loads another skin into Skin component
Skn.ApplySkin Me.hwnd ' Applies the skin to this window and its child controls
End If
End Sub
-------------------------------------------------------------------------------------------------------------------------------

 

[ZOR]

Dont know, however I use the VB Skinner ocx.
Javier has been very good to me on queries. Didn't cost much. Had no problems.

Have a look at hia website.

Javier Balkenende

http://www.visual-basic.com.ar