Coding Melihat dan Menampilkan Semua Font pada Komputer dengan VB 6.0

Pada Belajar VB 6.0 kali ini akan dibahas mengenai cara untuk Melihat Semua Font Pada Komputer Dengan VB 6.0

Berikut langkah-langkahnya :
Buatlah Project VB 6.0 dan tambahkan Form1
Buatlah design seperti gambar dibawah ini :
Pada Form diatas hanya menambahkan List1 dan Text1
Kemudian masukan Koding dibawah ini :

Private Sub Form_Load()
Dim counter As Integer
  For counter = 0 To Screen.FontCount - 1
      List1.AddItem Screen.Fonts(counter)
  Next
End Sub

Private Sub List1_Click()
Static tempheight As Single
  If tempheight = 0 Then tempheight = List1.Height
  Text1.Text = List1.List(List1.ListIndex)
  List1.Font.Name = List1.List(List1.ListIndex)
  List1.Height = tempheight
End Sub

Silahkan Run Project VB 6.0 anda

Download Source Code Program