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,

Leave a Reply

Your email address will not be published. Required fields are marked *


*