Replace.web.ID

Disini saya menggunakan VB.net atau VB2008 untuk membuat font viewer. Disini kita hanya perlu memasukan komponen sederhana dari VB, seperti textbox, checkbox dan label.

Pertama buat project baru dengan memilih File > New Project dan beri nama penampil-font

Lalu buat form dengan komponen seperti gambar dibawah ini.

Komponen terdiri dari 2 TextBox, 4 CheckBox, 1 ListBox serta Label.

Berikut Nama dan properties pada Form1.

txtSize (sebagai inputan ukuran/size font yang akan muncul pada txtSample)

lstFont (sebagai list atau daftar font yang telah terinstal di komputer kita)

txtsample (sebagai contoh yang akan keluar pilihan font kita)

chkBold (membuat sample font menjadi tebal)

chkItalic (membuat sample font menjadi miring)

chkUnderline (membuat sample font menjadi bergaris bawah)

chkStrikeout (membuat sample font menjadi tercoret.. hehehe)

Setelah itu masukan kode pada semua elemen yang ada pada Form1.

hapus semua kode dan gantikan dengan kode dibawah ini

Imports System.Drawing.Text
Public Class Form1

    ' Mengambil Font dari Komputer
    Private Sub Form1_Load(ByVal sender As System.Object, &&
    ByVal e As System.EventArgs) Handles MyBase.Load
       Dim installed_fonts As New InstalledFontCollection
       lstFont.Items.Clear()
       For Each font_family As FontFamily In installed_fonts.Families

            lstFont.Items.Add(font_family.Name)

        Next font_family
        lstFont.SelectedIndex = 0

    End Sub


    ' Jika Font dipilih, Maka akan muncul pada Sample
    Private Sub txtSize_TextChanged(ByVal sender As System.Object, &&
    ByVal e As System.EventArgs) Handles txtSize.TextChanged, chkBold.Click, &&
    chkItalic.Click, chkUnderline.Click, chkStrikeout.Click, &&
    stFont.SelectedIndexChanged

        ShowSample()

    End Sub


    ' Menampilkan Contoh Font.
    Private Sub ShowSample()

         Dim font_style As FontStyle = FontStyle.Regular

    If chkBold.Checked Then font_style = font_style Or FontStyle.Bold
    If chkItalic.Checked Then font_style = font_style Or FontStyle.Italic
    If chkUnderline.Checked Then font_style = font_style Or FontStyle.Underline
    If chkStrikeout.Checked Then font_style = font_style Or FontStyle.Strikeout


        Dim font_size As Single = 8

        Try
            font_size = Single.Parse(txtSize.Text)
        Catch ex As Exception

        End Try

        ' Nama Font.
        Dim family_name As String = "Times New Roman"
        If Not (lstFont.SelectedItem Is Nothing) Then

            family_name = lstFont.SelectedItem.ToString

        End If

        ' Membiat contoh font baru.
        Dim new_font As New Font( _
            family_name, font_size, font_style)

        ' Tulisan sample.
        txtSample.Font = new_font

    End Sub

End Class

Jika kode diatas  terdapat kesalahan. Anda dapat men-download fullscript dibawah artikel ini. Karena tidak semua kode program yang di tuliskan dalam program, berhasil sempurna di tuliskan kembali dalam bentuk web(html).

Setelah itu coba jalankan program yang telah dibuat. Jika masih mengalami masalah komentar aja disini, pasti saya kasih solusinya.

Tutorial ini telah di coba oleh saya dan teman-teman saya dan telah berhasil semua. Semoga anda juga berhasil mempraktekanya.

Selamat mencoba !