Merubah Style Font Pada Textbox Dengan Visual Basic 6.0

10 views
Style font sering dipakai dalam pengetikan sebuah dokumen apapun itu menyerupai goresan pena tebal (Bold), goresan pena miring (Italic), goresan pena bergaris bawah (Underline) dan masih banyak yang lainnya. Hampir semua aplikasi di PC menyediakan akomodasi style font hanya saja kelengkapan dari akomodasi tersebut agak sedikit berbeda antar aplikasi dan kali ini admin akan mencoba menerapkan style font pada Microsoft Visual Basic 6.0 pribadi saja buatlah sebuah project dan form lalu tambahkan beberapa komponen pendukung seperti
1. TextBox
2. Label
3. CheckBox
4. ComboBox
5. ListBox


Designlah komponen-komponen pada form menyerupai gambar diatas dengan beberapa properties komponen menyerupai 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 mekanisme (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 lalu 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 final simpan project diatas lalu RUN/F5 lalu 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 dapat didownload di LINK INI dan biar bermanfaat


Author: 
    author
    No related post!