ACTIVE SKIN

USUARIO.EXCLUIDOS 28/05/2007 09:20:14
#218449
Caros,

Gostaria saber como trabalhar com o Active Skin, pois, baixei a OCX do mesmo e alguns arquivos .SKN e não estou conseguindo carregar os mesmos.

Desde já, agradeço.
PROGRAMADORVB6 28/05/2007 09:35:43
#218451 Resposta escolhida
1º pões o ficheiro : *.skn no directorio do teu projecto em seguida :

nomeia o controle skin para skn

e no teu form pões a seguinte instrução :

        Private Sub Form_Load()
            '******************
            Dim  diz, FileName As String
            Dim Capta As Integer

            '########################################
            ' Ler o ficheiro Cara.skn
            '########################################
            Capta = Len(App.Path)
            If Capta > 3 Then
                diz = App.Path & "\" & "Cara.Skn"
                FileName = diz
                If FileName <> "" Then
                    Skn.LoadSkin FileName
                    Skn.ApplySkin Me.hWnd
                End If
            End If
            If Capta = 3 Then
                diz = App.Path & "Cara.Skn"
                FileName = diz
                If FileName <> "" Then
                    Skn.LoadSkin FileName
                    Skn.ApplySkin Me.hWnd
                End If
            End If
            
            '*************************
        End Sub



Espero te ter ajudado!
cump.
programadorvb6
PROGRAMADORVB6 28/05/2007 09:37:44
#218452
Caso este exemplo não funcione é porque tens skins de splash!
USUARIO.EXCLUIDOS 28/05/2007 09:54:25
#218460


Valeu PROGRAMADORVB6 !!!
Tópico encerrado , respostas não são mais permitidas
Voltar