Probleme de code [RESOLU]

Bonjour,

j'ai trouvé un code qui permet de charger toutes les polices existentes dans un combobox:

Code:


Dim fonts As New InstalledFontCollection
        Dim font_f() As FontFamily = fonts.Families()
        For Each ft As FontFamily In font_f
            If ft.IsStyleAvailable(FontStyle.Regular) Then
                ComboBox1.Items.Add(ft.Name)
            End If
        Next


Malheuresement il ne marche pas:

Type 'InstalledFontCollection' non défini.
Type 'FontFamily' non défini.
Type 'FontFamily' non défini.

Aux amateurs de codes vb.net

Merci de votre aide

Cordialement,
polien

re ,

As-tu essayé d'ajouté les nom non définé en variables ?
Pour le InstalledFontCollection :
met à la place : System.Drawing.Text.InstalledFontCollection
CAR il n'y as pas tout le code . Avant , il y a la fonction : Imports System.Drawing.Text

Cordialement ,
Le réparateur de PC

lereparateurdepc a écrit:re ,

As-tu essayé d'ajouté les nom non définé en variables ?
Pour le InstalledFontCollection :
met à la place : System.Drawing.Text.InstalledFontCollection
CAR il n'y as pas tout le code . Avant , il y a la fonction : Imports System.Drawing.Text

Cordialement ,
Le réparateur de PC

Bonjour,

j'ai remplacé InstalledFontCollection et déclaré toute les variables, il m'affiche:

Type 'FontFamily' non défini.
Type 'FontFamily' non défini.

Cordialement,
polien

re ,

IDEM pour les autres .
Ajoute System.Drawing.Text devant FontFamily .

Cordialement ,
Le réparateur d ePC

lereparateurdepc a écrit:re ,

IDEM pour les autres .
Ajoute System.Drawing.Text devant FontFamily .

Cordialement ,
Le réparateur d ePC

re,

Code:


Dim fonts As New System.Drawing.Text.InstalledFontCollection
        Dim font_f() As FontFamily.System.Drawing.Text = fonts.Families()
        For Each ft As FontFamily.System.Drawing.Text In font_f
            If ft.IsStyleAvailable(FontStyle.Regular) Then
                ComboBox1.Items.Add(ft.Name)
            End If
        Next


comme ça?

re ,

NON , comme le premier :

Code:

Dim fonts As New System.Drawing.Text.InstalledFontCollection
        Dim font_f() As System.Drawing.Text.FontFamily = fonts.Families()
        For Each ft As System.Drawing.Text.FontFamily In font_f
            If ft.IsStyleAvailable(FontStyle.Regular) Then
                ComboBox1.Items.Add(ft.Name)
            End If
        Next


Testé sous VisualBasic et non sous SZ .

Cordialement ,
Le réparateur de PC

re ,

J'ai répondu trop vite ......
Le code est :

Code:

 Dim fonts As New System.Drawing.Text.InstalledFontCollection
        Dim font_f() As FontFamily = fonts.Families()
        For Each ft As FontFamily In font_f
            If ft.IsStyleAvailable(FontStyle.Regular) Then
                ComboBox1.Items.Add(ft.Name)
            End If
        Next


Idem , testé sous VB et non SZ .
SZ ne gère peut-être pas ça ...

Cordialement ,
Le réparateur de PC

Et tu saurait comment l'arranger sur SZ s'il te plait?
parce que:

Type 'FontFamily' non défini.
Type 'FontFamily' non défini.

sa ne m'avance pas trop
merci

re ,

NON , le références déclarées sous VB sont les même due sous SZ
Le code ci dessus fonctionne sous VB .
Il ne fonctionne pas sous SZ .

Cordialement ,
Le réparateur de PC

lereparateurdepc a écrit:re ,

NON , le références déclarées sous VB sont les même due sous SZ
Le code ci dessus fonctionne sous VB .
Il ne fonctionne pas sous SZ .

Cordialement ,
Le réparateur de PC

Merci quand meme...
Sujet résolu...

re ,

ATTEND , j'ai trouvé !!!!!

le code est :

Code:

 Dim fonts As New System.Drawing.Text.InstalledFontCollection
        Dim font_f() As System.Drawing.FontFamily = fonts.Families()
        For Each ft As System.Drawing.FontFamily In font_f
            If ft.IsStyleAvailable(System.Drawing.FontStyle.Regular) Then
                ComboBox1.Items.Add(ft.Name)
            End If
        Next


Je me suis basé sur VB qui m'a donné de qui été hérité FontStyle et FontFamily . Il est hérité de System.Drawing et NON de System.Drawing.Text commej'ai essayé !!

Cordialement ,
Le réparateur de PC

lereparateurdepc a écrit:re ,

ATTEND , j'ai trouvé !!!!!

le code est :

Code:

 Dim fonts As New System.Drawing.Text.InstalledFontCollection
        Dim font_f() As System.Drawing.FontFamily = fonts.Families()
        For Each ft As System.Drawing.FontFamily In font_f
            If ft.IsStyleAvailable(System.Drawing.FontStyle.Regular) Then
                ComboBox1.Items.Add(ft.Name)
            End If
        Next


Je me suis basé sur VB qui m'a donné de qui été hérité FontStyle et FontFamily . Il est hérité de System.Drawing et NON de System.Drawing.Text commej'ai essayé !!


Cordialement ,
Le réparateur de PC

re,

rho, merci, merci, merci, merci, merci, merci, merci, merci !!!!!!!!!!!!!!!!!!!!!!!!!!!!! SA MARCHE!
Sujet résolut

Cordialement,
polien