Coding Melihat dan Menampilkan Semua Font pada Komputer dengan VB 6.0

Pada kesempatan ini kami akan mengulas tentang dengan judul artikel .

Artikel Terkait Visual Basic 6 Lainnya
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 :
Coding Melihat dan Menampilkan Semua Font pada Komputer 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 :

Penelusuran terkait Visual Basic 6

Berlangganan artikel
Daftarkan e-mail Anda dibawah ini
Selanjutnya cek e-mail untuk verifikasi.
Kategori Terpopuler

0/Posting Komentar/Komentar