Changer le look de vos application facilement avec easy skin

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_NoMitsu)