Merubah Style Font pada TextBox dengan Visual Basic 6.0

Style font sering digunakan dalam pengetikan sebuah dokumen apapun itu seperti tulisan tebal (Bold), tulisan miring (Italic), tulisan bergaris bawah (Underline) dan masih banyak yang lainnya. Hampir semua aplikasi di PC menyediakan fasilitas style font hanya saja kelengkapan dari fasilitas tersebut agak sedikit berbeda antar aplikasi dan kali ini admin akan mencoba menerapkan style font pada Microsoft Visual Basic 6.0 langsung saja buatlah sebuah project dan form kemudian tambahkan beberapa komponen pendukung seperti

1. TextBox

2. Label

3. CheckBox

4. ComboBox

5. ListBox

Designlah komponen-komponen pada form seperti gambar diatas dengan beberapa properties komponen seperti berikut

No	Nama Komponen	(Name)
1	ListBox	ListFont
2	ComboBox	cboSizeFont
3	CheckBox	chkBold chkIntalic chkUnderline
4	TextBox	txtViewFont

Copikan syntak-syntak dibawah ini sesuai dengan prosedur (tulisan cetak warna biru) function

Private Sub chkBold_Click()

If chkBold.Value = 1 Then: txtViewFont.FontBold = True: Else txtViewFont.FontBold = False

End Sub

Private Sub chkIntalic_Click()

If chkIntalic.Value = 1 Then: txtViewFont.FontItalic = True: Else txtViewFont.FontItalic = False

End Sub

Private Sub chkUnderline_Click()

If chkUnderline.Value = 1 Then: txtViewFont.FontUnderline = True: Else txtViewFont.FontUnderline = False

End Sub

Private Sub cboSizeFont_click()

txtViewFont.FontSize = cboSizeFont.Text

End Sub

Private Sub Form_Load()

Dim counter As Integer

  For counter = 0 To Screen.FontCount - 1

      ListFont.AddItem Screen.Fonts(counter)

  Next

  For I = 8 To 50

      cboSizeFont.AddItem I

  Next I

      cboSizeFont.Text = 12

      cboSizeFont.Enabled = False

      txtViewFont.Text = "Silahkan ketik diarea ini kemudian pilih font yang akan digunakan"

End Sub

Private Sub ListFont_Click()

  cboSizeFont.Enabled = True

  txtViewFont.Font.Name = ListFont.List(ListFont.ListIndex)

  txtViewFont.FontSize = cboSizeFont.Text

End Sub

Setelah selesai simpan project diatas kemudian RUN/F5 kemudian pilihlah style font yang tersedia pada form dan lihat perubahan tampilan font pada textBox. Untuk lebih jelasnya sourcode Merubah Style Font pada TextBox dengan Visual Basic 6.0 bisa didownload di LINK INI dan semoga bermanfaat