Como Listar los tipos de Fuente instalados, en un ComboBox

Otro tip... de una pregunta en los foros :-)

Imports System.Linq
 
Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgsHandles MyBase.Load
        Dim RegKey = "Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts"
        Dim Fuentes = From aif In My.Computer.Registry.LocalMachine.OpenSubKey(RegKey).GetValueNames
                                 Select My.Computer.Registry.LocalMachine.OpenSubKey(RegKey).GetValue(aif)
        Me.ComboBox1.Items.AddRange(Fuentes.ToArray)
        Me.ComboBox1.SelectedIndex = 1
    End Sub
End Class

Saludos,
PepLluis,

Published Wed, Feb 15 2012 18:20 by peplluis
Filed under:

Leave a Comment

(required) 
(required) 
(optional)
(required) 
If you can't read this number refresh your screen
Enter the numbers above: