시스템에 설치된 폰트목록 보기
*
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
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
* 시스템에 설치된 폰트 목록을 보여준다
* 미리보기 창에는 선택한 폰트가 작용된 글자를 볼수 있다
*중간중간 변경 안되는 폰트가 있는데...왜 그런지 원인을 찾아보자
이 게시물을
댓글'1'
번호
제목
136
135
132
131
130
127
126
125
123
122
121
120
119
* 지원하지 않는 폰트 적용시 에러에 대한 예외처리
Try
Dim n_font As New Font(CStr(ListBox1.SelectedItem), 20, FontStyle.Regular) '폰트미리보기에 있는 글자를 선택한 폰트로 변경
TextBox1.Font = n_font
Catch ex As Exception
MsgBox(ex.Message)
End Try
이 댓글을