Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic liste de fonte disponible

liste de fonte disponible

6 réponses
Avatar
michael
Bonjour, quand j'utilise le controle commondialog pour affiché la liste des
fonte disponible, il m'affiche également le choix des tailles de texte et des
style de texte, y a t'il moyen de n'afficher que ce qu'on à réellement
besoin, soit uniquement la taille ou surtout le type de fonte, ou rien que la
taille??? est ce possible, ou tous ca ne forme qu'un tout?
merci!!
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jean-marc
"michael" wrote in message
news:
Bonjour, quand j'utilise le controle commondialog pour affiché la liste
des
fonte disponible, il m'affiche également le choix des tailles de texte et
des
style de texte, y a t'il moyen de n'afficher que ce qu'on à réellement
besoin, soit uniquement la taille ou surtout le type de fonte, ou rien que
la
taille??? est ce possible, ou tous ca ne forme qu'un tout?



Hello,

avec le commondialog ça ne forme qu'un tout.
Par contre il y a une astuce pour énumérer les différentes
fonts, c'est en utilisant l'objet Printer.

Ca donne ça:

Private Sub Command1_Click()
Dim I As Integer, Flag As Boolean

For I = 0 To Printer.FontCount - 1
List1.AddItem Printer.Fonts(I)
Next I
List1.ListIndex = 0
End Sub

Et ça marche très bien :-)

plus d'infos ici:
http://msdn2.microsoft.com/en-us/library/aa267233(VS.60).aspx

et la:
http://msdn2.microsoft.com/en-us/library/aa443916(VS.60).aspx



--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
michael
Bonjour, merci de la réponse!
J'ai reussi à faire une reconstitution avec un formulaire du commondialog
avec juste ce qui m'intéresse c'est à dire le choix d'un type de police, j'y
ai mis une textbox, une liste box avec les fontes disponible, deux bouton de
command et même un aperçu.
Mais...
bien que se soit très efficace et très joli, je n'arrive pas à récupérer
l'info du type de police directement... comme pour une commondialog ou l'on
peux affiché la sélection dans une textbox ou un lable. Car comme maintenant
j'ai ma première forme avec le label dans lequel je doit écrire le choix de
la sélection du type de police, et une autre form avec la listbox pour
sélectionner le type de police...
Comment faire pour passer le résultat d'une forme à l'autre????

voici le code de la forme ou on selectionne le type de police:

Private Sub Command1_Click()
???? je clique sur OK de la form et je devrais me retrouvé dans l'autre form
de départ, avec le résultat qui sinscrit dans le label de cette form!
End Sub

Private Sub Command2_Click()
Unload Form24 'bouton 'annuler'
End Sub
Public Sub Form_Load() 'il rempli la listview des fontes disponibles
'
Dim I As Integer, Flag As Boolean
'
For I = 0 To Printer.FontCount - 1
List1.AddItem Printer.Fonts(I)
Next I

List1.ListIndex = 0

End Sub

Private Sub List1_Click() ' a chaque clique il change la selection
Label1.Font = List1
Text1.Text = List1
End Sub

Le formulaire de départ aurais une label et l'évènement suivant:

Private Sub LblFontTitre_Click()
Load Form24 ou ?????? pour ouvrir la form avec la selection...
End Sub

Voila Y a t'il un moyen d'y arriver?????
merci beaucoup d'avance

"jean-marc" wrote:

"michael" wrote in message
news:
> Bonjour, quand j'utilise le controle commondialog pour affiché la liste
> des
> fonte disponible, il m'affiche également le choix des tailles de texte et
> des
> style de texte, y a t'il moyen de n'afficher que ce qu'on à réellement
> besoin, soit uniquement la taille ou surtout le type de fonte, ou rien que
> la
> taille??? est ce possible, ou tous ca ne forme qu'un tout?

Hello,

avec le commondialog ça ne forme qu'un tout.
Par contre il y a une astuce pour énumérer les différentes
fonts, c'est en utilisant l'objet Printer.

Ca donne ça:

Private Sub Command1_Click()
Dim I As Integer, Flag As Boolean

For I = 0 To Printer.FontCount - 1
List1.AddItem Printer.Fonts(I)
Next I
List1.ListIndex = 0
End Sub

Et ça marche très bien :-)

plus d'infos ici:
http://msdn2.microsoft.com/en-us/library/aa267233(VS.60).aspx

et la:
http://msdn2.microsoft.com/en-us/library/aa443916(VS.60).aspx



--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;








Avatar
jean-marc
"michael" wrote in message
news:
Bonjour, merci de la réponse!
J'ai reussi à faire une reconstitution avec un formulaire du commondialog
avec juste ce qui m'intéresse c'est à dire le choix d'un type de police,
j'y
ai mis une textbox, une liste box avec les fontes disponible, deux bouton
de
command et même un aperçu.
Mais...
bien que se soit très efficace et très joli, je n'arrive pas à récupérer
l'info du type de police directement... comme pour une commondialog ou
l'on
peux affiché la sélection dans une textbox ou un lable. Car comme
maintenant
j'ai ma première forme avec le label dans lequel je doit écrire le choix
de
la sélection du type de police, et une autre form avec la listbox pour
sélectionner le type de police...
Comment faire pour passer le résultat d'une forme à l'autre????



Hello,

il y a plein de façons de faire cela.

C'est expliqué dans la FAQ, que je t'invite à consulter,
elle contient plein de choses utiles.

Bref, voici le lien:
http://faq.vb.free.fr/index.php?question5


Je t'ai fait un petit programme d'exemple ici (projet+sources, pas d'exe):
http://users.skynet.be/candide/polices.html

Ce programme montre une des méthodes possibles. Celle ci est
simple, claire et efficace.

Cordialement,

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
jean-marc
"jean-marc" wrote in message
news:47a84da4$0$2942$

Je t'ai fait un petit programme d'exemple ici (projet+sources, pas d'exe):
http://users.skynet.be/candide/polices.html



Re,

dans l'exemple, il y a un petit module, qui contient ce code:

Option Explicit

Public Enum ExitStatus
BTN_Ok = 1
BTN_Cancel = 2
End Enum

Public prvFontChoiceExit As ExitStatus

Private prvFontName As String


Public Function GetFontName() As String
GetFontName = prvFontName
End Function

Public Sub SetFontName(ByVal FontName As String)
prvFontName = FontName
End Sub

J'ai volontairement utilisé une variable private (prvFontName)
pour montrer l'utilisation par 2 accesseurs (Get/set) publics

et une variable publique (prvFontChoiceExit) pour montrer
qu'on peut aussi directement utiliser la variable publique
depuis une forme.

La première méthode (avec accesseurs Get/Set) est de très très
loin la meilleure (on ne devrait employer que celle ci) car
1) c'est plus propre
2) tu dissimules l'implémentation
3) tu peux ajouter à une place centralisée du code de validation,
vérification, etc.

Je n'ai donc mentionné l'accès directe à la variable publique
que dans un souci d'exhaustivité et de contre-exemple :-)


Cela valait je crois la peine d'etre mentionné.



--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
michael
Salut merci pour la solution, en regardant de pres j'y arrive en ne passant
pas par:

Public Function GetFontName() As String
GetFontName = prvFontName
End Function

Public Sub SetFontName(ByVal FontName As String)
prvFontName = FontName
End Sub

et en mettant:

prvFontName = List1.Text

ca marche aussi, c'est normal??
en fait le fait de déclarer prvFontName public et c'est OK
Mais peut etre n'est ce pas suffisant dans d'autre cas?

"jean-marc" wrote:


"jean-marc" wrote in message
news:47a84da4$0$2942$

> Je t'ai fait un petit programme d'exemple ici (projet+sources, pas d'exe):
> http://users.skynet.be/candide/polices.html

Re,

dans l'exemple, il y a un petit module, qui contient ce code:

Option Explicit

Public Enum ExitStatus
BTN_Ok = 1
BTN_Cancel = 2
End Enum

Public prvFontChoiceExit As ExitStatus

Private prvFontName As String


Public Function GetFontName() As String
GetFontName = prvFontName
End Function

Public Sub SetFontName(ByVal FontName As String)
prvFontName = FontName
End Sub

J'ai volontairement utilisé une variable private (prvFontName)
pour montrer l'utilisation par 2 accesseurs (Get/set) publics

et une variable publique (prvFontChoiceExit) pour montrer
qu'on peut aussi directement utiliser la variable publique
depuis une forme.

La première méthode (avec accesseurs Get/Set) est de très très
loin la meilleure (on ne devrait employer que celle ci) car
1) c'est plus propre
2) tu dissimules l'implémentation
3) tu peux ajouter à une place centralisée du code de validation,
vérification, etc.

Je n'ai donc mentionné l'accès directe à la variable publique
que dans un souci d'exhaustivité et de contre-exemple :-)


Cela valait je crois la peine d'etre mentionné.



--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;







Avatar
jean-marc
"michael" wrote in message
news:
Salut merci pour la solution, en regardant de pres j'y arrive en ne
passant
pas par:

Public Function GetFontName() As String
GetFontName = prvFontName
End Function

Public Sub SetFontName(ByVal FontName As String)
prvFontName = FontName
End Sub

et en mettant:

prvFontName = List1.Text

ca marche aussi, c'est normal??
en fait le fait de déclarer prvFontName public et c'est OK
Mais peut etre n'est ce pas suffisant dans d'autre cas?



C'est précisément ce que j'explique dans mon second post.
Ca marche, mais c'est mieux avec la fonction pour tout un tas
de raisons en particulier de lisibilité du code et de facilité
de maintenance, etc.


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;