Cara Menampilakn Daftar Font Yang Terinstall Di Komputer VB6

Berikut ini adalah cara menampilkan daftar/list font yang terinstall di komputer menggunakan visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 ListBox, dan 1 TextBox.

          'Ketika Anda mengklik salah satu font, jenis huruf pada listbox akan berubah sesuai dengan
          'jenis huruf yang diklik saat itu. Nama font yang diklik akan ditampilkan di textbox.

          Private Sub Form_Load() 'Tampilkan semua font ke dalam ListBox
          Dim counter As Integer
            For counter = 0 To Screen.FontCount - 1
                List1.AddItem Screen.Fonts(counter)
            Next
          End Sub

          Private Sub List1_Click() 'Jika salah satu font diklik...
          Static tempheight As Single
            If tempheight = 0 Then tempheight = List1.Height
            Text1.Text = List1.List(List1.ListIndex)     'Tampilkan namanya di textbox
            List1.Font.Name = List1.List(List1.ListIndex)
            List1.Height = tempheight
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module