Coding Melihat dan Menampilkan Semua Font pada Komputer dengan VB 6.0

Pada kesempatan ini Mycoding.net berbagi artikel tentang yang berjudul .

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 :

Kategori artikel yang terkait dengan Visual Basic 6.0

Visual Basic 6.0, Panduan VB6, Belajar VB6 Lengkap, Tutorial VB6, Belajar VB6 Pdf, Pemrograman VB6
Untuk mendapat notifikasi artikel terbaru, masukkan e-mail anda disini :
Selanjutnya cek e-mail untuk verifikasi.
Kincai Coding Panduan Belajar Database dan Tutorial Pemrograman Terlengkap di Indonesia. Dapatkan Kumpulan Source Code Program Aplikasi dan Ebook Secara Gratis. Ikuti kami di Facebook, Instagram & Sosial Media Lainnya.