Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 431 fois - Téléchargée 41 fois
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 !!
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. @++++++
A+
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.