Dim i As Integer Dim fonte() As FontFamily = System.Drawing.FontFamily.Families ComboBox1.Items.Clear() For i = 0 To fonte.GetUpperBound(0) ComboBox1.Items.Add(fonte(i).Name) Next i ComboBox1.SelectedIndex = 0
Je ne pense pas être assez précis...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim ifc As New System.Drawing.Text.InstalledFontCollection Combobox1.DataSource = fc.Families
Dim ifc As New System.Drawing.Text.InstalledFontCollection Combobox1.DataSource = ifc.Families