Font Viewer Vb.Net

Pada kesempatan ini saya akan membahas tentang pembuatan Font Viewer itu sendiri. Font Viewer ini bisa digunakan untuk melihat contoh font yang telah terinstal di komputer, mengubah ukuran, mengubah warna dan mengubah style seperti bold, italic, strike san underline. Dengan memanfaatkan library System.Drawing.Text di VB.Net, kita dapat membuat sebuah aplikasi font viewer beserta efek-efeknya.
Font Viewer ini hanya menggunakan beberapa Komponen dasar dari VB seperti Button, Textbox dan Listbox.

• Load semua font yang terinstal di Komputer ke LstFont

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim huruf As New InstalledFontCollection
        For Each jns As FontFamily In huruf.Families
            LstFont.Items.Add(jns.Name)
        Next jns

End Sub

• Buat Method untuk mengganti huruf yang sebelumnya

Public Sub Ganti()
        Dim Size As Single = 12
        Try
            Size = Single.Parse(LstSize.SelectedItem)
        Catch ex As Exception
        End Try

        Dim JnsHuruf As String = "Times New Roman"
        Dim Style As FontStyle = FontStyle.Regular

        If Not (LstFont.SelectedItem Is Nothing) Then
            JnsHuruf = LstFont.SelectedItem.ToString
        End If

        If LstStyle.SelectedItem = "Bold" Then
            Style = FontStyle.Bold
        ElseIf LstStyle.SelectedItem = "Strike Out" Then
            Style = FontStyle.Strikeout
        ElseIf LstStyle.SelectedItem = "Italic" Then
            Style = FontStyle.Italic
        Else
            Style = FontStyle.Regular
        End If

        Dim new_font As New Font(JnsHuruf, Size, Style)
        TextContoh.Font = new_font
      
End Sub

• Mengganti Warna

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim warna As New ColorDialog
        If warna.ShowDialog = Windows.Forms.DialogResult.OK Then
              TextContoh.ForeColor = warna.Color
        End If
End Sub

• Memanggil Method Ganti saat salah satu listbox di pilih

Private Sub LstFont_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstFont.SelectedIndexChanged, LstSize.SelectedIndexChanged, LstStyle.SelectedIndexChanged
        Ganti()
End Sub