MENAMPILKAN FONT SYSTEM PADA COMBO BOX

MENAMPILKAN FONT SYSTEM PADA COMBO BOX

Assalamualaikum, wr, wb..

Kali ini saya akan bahas tutorial memasukan dan menampilkan seluruh font system yang ada pada komputer anda dan ditampilkan pada ComboBox sekaligus menampilkannya.

Simak Trik manampilkan seluruh font system pada ComboBox dibawah ini.

1. Buka program Visual Basic, dan mulai dengan form baru
2. Masukan 2 objek Label dan 1 objek ComboBox
3. Untuk Label2 propertis font size nya ganti dengan yang lebih besar misalnya 20
4. Pilih propertis ComboBox lalu rubah propertis Style menjadi 1-Simple Combo.
   
5. Double klik pada area form lalu masukan listing kode dibawah ini pada Form_Load.
6. Private Sub Form_Load()
   Combo1.Clear
   For i = 0 To Screen.FontCount - 1
       Combo1.AddItem (Screen.Fonts(i))
   Next i
   End Sub
7. Double klik pada Combo1 dan masukan listing kode dibawah ini pada Combo1_Click.
8. Private Sub Combo1_Click()
   Label2.Font = Combo1
   End Sub
9. Jalankan dengan menekan tombol F5 pada keyboard anda
   
10. Wassalam.. n smoga bermanfaat...