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 :

Artikel Terkait Tutorial VB6

• Memahami Objek di Visual Basic 6.0 serta Properti, Event dan Metode-nya
• Tutorial Membuat Efek Menarik Saat Form di Close Menggunakan VB 6.0
• Code Melihat Resolusi Komputer/Laptop dengan VB 6.0

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

Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :

Download Source Code Program

Rekomendasi Web Hosting

1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini.
2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini.
3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini.