bonjour,
en vb 2008 EXPRESS comment peut t'on faire pour importer la liste des fonts
de caracteres du systeme dans un combobox
hors mis le fontdialog qui ouvre une autre fenetre.
j'ai essayer :
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
callimedia
On 5 mar, 09:43, "mg" <news.swing.be> wrote:
bonjour, en vb 2008 EXPRESS comment peut t'on faire pour importer la liste des fonts de caracteres du systeme dans un combobox hors mis le fontdialog qui ouvre une autre fenetre. j'ai essayer :
For POL = 1 To Font.Name.Count
ComboBox1.Items.Add(POL)
Next
mais c pas bon.
d'avance merci
Dim TF() As FontFamily = System.Drawing.FontFamily.Families Dim POS as Integer For POS =0 to TF.GetUpperBound(0) Dim NF As String = TF(POS).Name ComboBox1.Items.Add(NF) Next POS
On 5 mar, 09:43, "mg" <news.swing.be> wrote:
bonjour,
en vb 2008 EXPRESS comment peut t'on faire pour importer la liste des fonts
de caracteres du systeme dans un combobox
hors mis le fontdialog qui ouvre une autre fenetre.
j'ai essayer :
For POL = 1 To Font.Name.Count
ComboBox1.Items.Add(POL)
Next
mais c pas bon.
d'avance merci
Dim TF() As FontFamily = System.Drawing.FontFamily.Families
Dim POS as Integer
For POS =0 to TF.GetUpperBound(0)
Dim NF As String = TF(POS).Name
ComboBox1.Items.Add(NF)
Next POS
bonjour, en vb 2008 EXPRESS comment peut t'on faire pour importer la liste des fonts de caracteres du systeme dans un combobox hors mis le fontdialog qui ouvre une autre fenetre. j'ai essayer :
For POL = 1 To Font.Name.Count
ComboBox1.Items.Add(POL)
Next
mais c pas bon.
d'avance merci
Dim TF() As FontFamily = System.Drawing.FontFamily.Families Dim POS as Integer For POS =0 to TF.GetUpperBound(0) Dim NF As String = TF(POS).Name ComboBox1.Items.Add(NF) Next POS
mg
merci encore ca marche !!!!
Dim TF() As FontFamily = System.Drawing.FontFamily.Families Dim POS as Integer For POS =0 to TF.GetUpperBound(0) Dim NF As String = TF(POS).Name ComboBox1.Items.Add(NF) Next POS
merci encore ca marche !!!!
Dim TF() As FontFamily = System.Drawing.FontFamily.Families
Dim POS as Integer
For POS =0 to TF.GetUpperBound(0)
Dim NF As String = TF(POS).Name
ComboBox1.Items.Add(NF)
Next POS
Dim TF() As FontFamily = System.Drawing.FontFamily.Families Dim POS as Integer For POS =0 to TF.GetUpperBound(0) Dim NF As String = TF(POS).Name ComboBox1.Items.Add(NF) Next POS