Re: ActiveSkin control

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Ken Halter (Ken_Halter_at_Use_Sparingly_Hotmail.com)
Date: 03/18/04 

Date: Thu, 18 Mar 2004 12:36:19 -0800

Actually, I was trying to find an active web site where I can download the demo. Seems
that the product has gone the way of the dinosaur. 

-- 
Ken Halter - MS-MVP-VB - http://www.vbsight.com
Please keep it in the groups..
"news.verizon.net" <golash1@verizon.net> wrote in message
news:fBn6c.30151$Eg3.24075@nwrdny01.gnilink.net...
> 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
> ----------------------------------------------------------------------------
> ---------------------------------------------------
>
>
Quantcast