Changer le look de vos application facilement avec easy skin

Soyez le premier à donner votre avis sur cette source.

Vue 24 114 fois - Téléchargée 4 052 fois

Description

Voici un petit code qui a pour objectif de changer le look de votre application facilement, le code se decompose en une class , un module et un contrôle.

Le code a pas très commenter (excuser moi g pas eu le temps) mais bon sa marche assez bien, le seul petit problème c?est que les menu ne doive etre dans une autre feuille pour pouvoir faire un resize de la feuille (vous verrez bien) . a oui il faut aussi mettre le feuille sans bordure (sa parais evidant mais bon sa empeche aussi le resize de la feuille).

Sinon pour faire un skin il faut un Bmp et un fichier de configuration (voir exemple)
On peut rendre la feuille transparente, la « decouper » en indiquant une couleur specifique
Tous est parametrable. Pour la transparence j?utilise une API specifique a windows 2000/XP donc pour ceux qui on 98 il faut la supprimer.

Source / Exemple :


'Il suffit de mettre ce code dans votre feuille :

Option Explicit
 Dim Skin As New cls_Skin
 Dim frmX As Integer, frmY As Integer

Private Sub Form_DblClick()
    If frmY <= Skin.HeightTitre Then If Me.WindowState = 0 Then Me.WindowState = 2 Else Me.WindowState = 0
End Sub

Private Sub Form_Load()
    Skin.Open_Skin Me, App.Path & "\\skin\\defaut.ini"
    Skin.Active_LimResize
    
    comSkin1.Top = Skin.Menu_PosY
    comSkin1.Left = Skin.Menu_PosX
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Skin.FormMouseDown Button, X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Skin.FormMouseMove X, Y
    frmX = X: frmY = Y
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Skin.FormMouseUp Button, X, Y
End Sub

Private Sub Form_Resize()
    Skin.FormResize
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Skin.Desactive_LimResize
    Set Skin = Nothing
End Sub

Conclusion :


J?ai aussi mi dans le zip 4 skin pour vous faire une idee. Je prevoie de faire un editeur de skin car a la main sa prend du temps de les faire (environ 1h !) mais bon une fait que c fait?

Amuser vous bien.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
53
Date d'inscription
mercredi 22 février 2006
Statut
Membre
Dernière intervention
15 novembre 2006

il y aurai moyen d'avoir d'autre SKINS ???
sinon c'est super !
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
28
Très belle source 10/10 !!!! rien d'autre à redire
Messages postés
359
Date d'inscription
mardi 14 octobre 2003
Statut
Membre
Dernière intervention
7 septembre 2009

Ca rend vraiment bien, dommage que ce soit difficilement portable ;)
10/10
Messages postés
19
Date d'inscription
samedi 19 juin 2004
Statut
Membre
Dernière intervention
12 janvier 2010

ta source est vraiment géniale, il y a du sacré boulot dériere, pour moi c est un 10/10 . bon continuation.
En fait, disez moi les gas est ce qu'il y a quelque qui aime mirosoft et surtout WINXP.
Messages postés
11
Date d'inscription
samedi 2 avril 2005
Statut
Membre
Dernière intervention
22 février 2006

lorsque j ai colé le code ds ma forme ça s'affiche le message suivant : Dim Skin As New cls_Skin type non defini qu'est ce qeu je dois faire
Afficher les 53 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.