Melihat Semua Font Pada Komputer Dengan VB 6.0

8:30:00 AM
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 :
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

Salam,
BelajarVB.com

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan