1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Changer la police du programme une fois compilé

Changer la police du programme une fois compilé

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 431 fois - Téléchargée 41 fois

Commenter

Contenu du snippet

Ce code n'est pas forcément très utile, mais ça peut vous servir (on ne sait jamais).
Vous pouvez ainsi stocker les couleurs, la police (et la taille de la police) de votre programme dans un fichier .INI (ou n'importe quel fichier, tant que c'est de l'ASCII) pour qu'il s'en serve lors de l'ouverture. En changeant le contenu du fichier .INI, vous changez les couleurs, et la police de votre programme.

Source / Exemple : 


Private Sub Form_Load()
Dim Police As String 'Déclaration des variables
Dim Taille As String
Dim Couleur As String
Open App.Path + "\config.ini" For Input As #1 'ouverture du fichier config.ini se trouvant dans le meme répertoire que le programme
Taille = Police + Chr$(10) 'a la premiere ligne figure la Police, a la seconde la Taille et a la troisieme la Couleur
Couleur = Taille + Chr$(10)
Line Input #1, Police 'Lecture des trois lignes
Line Input #1, Taille
Line Input #1, Couleur
Close #1 'fermeture du fichier

Command1.Font = Police
Command1.FontSize = Taille
Command1.BackColor = Couleur 'Et vous pouvez faire ça pour tous les composants d'un programme VB !!

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008
vi ca pt etre utile mais bon pr le fichier .ini y a d API pr ca c plus simple ...
menfin bon... si tu c par contre comment recup le nom dune police a partir du fichier .fon ou ttf ca pourrait minterresser !!!!!!! (g pas trouvé d'API pr ca .... ke pr installer et desinstaller un fichier police ....)
voila :)
merci par avance.
Lumesh. @++++++
Signaler
Messages postés
51
Date d'inscription
samedi 20 avril 2002
Statut
Membre
Dernière intervention
14 novembre 2002
ba ça peut tjrs servir :o)
Signaler
Messages postés
103
Date d'inscription
samedi 23 mars 2002
Statut
Membre
Dernière intervention
2 mars 2004
J' ai juste mis 5 parce que je vois pas trop l' interet de mettre ca ici et en même temps j' ai pas envie de te descendre !
A+
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 (Kayrhan)