Accueil > > > CHANGER LE LOOK DE VOS APPLICATION FACILEMENT AVEC EASY SKIN
CHANGER LE LOOK DE VOS APPLICATION FACILEMENT AVEC EASY SKIN
Information sur la source
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
- '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
'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.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
[DESIGN PATTERNS] PARTIE 2: DIP: DEPENDENCY INVERSION PRINCIPLE[DESIGN PATTERNS] PARTIE 2: DIP: DEPENDENCY INVERSION PRINCIPLE par tja
C'est le dernier principe des principes du Design Orienté Objet (The Principles of Object Oriented Design) fondés par Robert C. Martin plus connu sous le pseudonyme d'Uncle Bob.
l'image empruntée de LosTechies.
Je ne traite pas les principes dans...
Cliquez pour lire la suite de l'article par tja TECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURSTECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURS par ROMELARD Fabrice
Animé par: Laurent Cotton Le développement dans SharePoint 2010 passe par plusieurs axes qui seront évoqués dans cette session, mais plus particulièrement les développements simples lié au besoin Business Business Connectivity Services Ce BCS es...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOURTECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice
Cette session est la dernière pleinière de ces 3 jours de TechDays Paris 2010. Généralement, cette troisième journée est plus axée sur l'avenir vu par Microsoft. Après un retour sur l'avenir vu par la Science Fiction ou par ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
HTML VERS PDF HTML VERS PDF par 20cent
Cliquez pour lire la suite par 20cent
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|