시스템에 설치된 폰트목록 보기

V닉맨 2014.06.17 00:10:40 *: Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim ff As FontFamily '변수 ff를 폰트그룹으로 정의함

For Each ff In System.Drawing.FontFamily.Families
ListBox1.Items.Add(ff.Name) '시스템에 설치된 폰트 이름을 List박스에 추가
Next

Label1.Text = "설치된 폰트 갯수는 " & CStr(ListBox1.Items.Count) & "개 입니다"

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim n_font As New Font(CStr(ListBox1.SelectedItem), 20, FontStyle.Regular) '폰트미리보기에 있는 글자를 선택한 폰트로 변경
TextBox1.Font = n_font
End Sub
End Class

2.png

* 시스템에 설치된 폰트 목록을 보여준다

 

* 미리보기 창에는 선택한 폰트가 작용된 글자를 볼수 있다

 

*중간중간 변경 안되는 폰트가 있는데...왜 그런지 원인을 찾아보자