Sudah lama sekali saya tidak membuat tutorial tentang VB. Dan kali ini saya akan memberikan sedikit yang saya ketahui tentang VB. Kita akan belajar membuat font-viewer. Sesuai dengan artinya, font viewer digunakan untuk melihat font yang telah terinstal di komputer kita.

Nantinya program yang akan kita buat bisa melihat contoh font yang telah terinstal dan mengubah style seperti bold, italic, strike san underline.

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)

propertise

name : txtSize

text   : 20

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 code pada semua elemen yang ada pada Form1.

hapus semua code dan gantikan dengan code 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
	
	' kerjasama Replace ID dkk.
	' kunjungi terus replace.web.id

	



End Class

Jika anda mencopy skrip di atas dan terdapat kesalahan. Anda dapat mendownloadnya lewat link ini.

Dan jika anda ingin men-download program FontViewer dapat anda download disini

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 !