Mengetahui Semua Jenis Font System Dengan Menggunakan VB 6.0


Assalamualaikum

Posting kali ini saya akan share bagaimana cara menampilkan seluruh Font Yang ada di system Visual Basic dengan menggunakan VB 6.0 itu sendiri. Oke langsung z yah.

1. Buat Project baru 

2. Dalam Form tambahkan 2 label, 1 combox (untuk combo box disetting di propertisnya bagian stylenya diubah menjadi 1-simple combo) berikut tampilan desaign formnya. 3. Setelah itu kalian bisa berikan kode atau listing berikut

Private Sub Combo1_Click()
'jadi pada saat diklik di combo jenis Font yang kita pilih muncul
   Label2.Font = Combo1
End Sub

Private Sub Form_Load()
   Combo1.Clear
'melakukan perulangan untuk menampilkan seluruh jenis Font
'combo1.additem(screen.Font(i)) untuk menampilkan list Font dengan mengacu 
'pada variable "i" di perulangannya  
For i = 0 To Screen.FontCount - 1
      Combo1.AddItem (Screen.Fonts(i))
   Next i
End Sub


4.  Setelah itu coba di running atau tekan tombol “f5” maka tampilan Programnya akan seperti ini Nah tinggal kalian pilih jenis Fontnya nanti akan berubah sesuai dengan Font yang kalian pilih. Penjelasan di listingnya yang berwarna ijo yah semoga bermanfaat ^-^

 

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: