MENAMPILKAN
SELURUH FONT SISTEM
Ingin menampilkan semua
jenis font yang terdapat didalam komputer anda tanpa harus mengetikkan satu
persatu. Dengan trik berikut ini anda dapat menampilkan semua font yang ada
pada sistem komputer.
1.
Bukalah program Visual Basic dan
mulailah dengan Form yang baru.
2.
Masukkan du komponen Label dan sebuah komponen Combobox menjadi 1-Simple Combo sehingga tampak seperti gambar dibawah ini :
3.
Klik ganda di dalam area form, kemudian
ketiklah perintah di bawah ini ke dalam prosedur Form_Load.
1
2
3
4
5
6
|
Private
Sub Form_Load()
Combo1.Clear
For i = 0 To Screen.FontCount - 1
Combo1.AddItem (Screen.Fonts(i))
Next i
End
Sub
|
Keterangan
Kode
2
3-5
|
Memberikan
semua teks yang terdapat di dalam komponen Combo1.
Melakukan
perintah pengulangan dari nilai minimum 0 (nol) sampai banyaknya nilai font
yang tersedia, kemudian menampilkannya kedalam combo.
|
4.
Kembali ke tampilan desain form,
selanjutnya klik ganda komponen Combo1.
Ubahlah event Change menjadi event Click dan ketiklah perintah di bawah ini
untuk mengubah font pada komponen Label2
sesuai dengan font yang anda pilih pada komponen Combo1.
1
2
3
|
Private
Sub Combo1_Click()
Label2.Font = Combo1
End Sub
|
Kembali untuk melihat
hasilnya klik tombol F5 pada
keyboadr anda.
EmoticonEmoticon