Contact Us

Nama

Email *

Pesan *

Melihat Semua Font Pada Komputer Dengan VB 6.0

Melihat Semua Font Pada Komputer Dengan VB 6.0

Panduan lengkap mining bitcoin
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

Cara Menghasilkan Bitcoin



Tidak ada komentar:

Posting Komentar

Back To Top