Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsCallback Then
Dim fontName As String = String.Empty
Dim ffs As FontFamily() = FontFamily.Families
For Each ff As FontFamily In ffs
fontName &= ff.Name() & vbCrLf
Next
Me.TextBox1.Text = fontName
End If
End Sub
Aharoni
Andalus
Angsana New
AngsanaUPC
Arabic Typesetting
Arial
Arial Black
Batang
BatangChe
Browallia New
BrowalliaUPC
Calibri
Cambria
Cambria Math
Candara
Comic Sans MS
Consolas
Constantia
Corbel
Cordia New
CordiaUPC
Courier New
DaunPenh
David
DFKai-SB
DilleniaUPC
DokChampa
Dotum
DotumChe
Estrangelo Edessa
EucrosiaUPC
Euphemia
FangSong
Franklin Gothic Medium
FrankRuehl
FreesiaUPC
Gautami
Georgia
Gisha
Gulim
GulimChe
Gungsuh
GungsuhChe
Impact
IrisUPC
Iskoola Pota
JasmineUPC
KaiTi
Kalinga
Kartika
KodchiangUPC
Latha
Leelawadee
Levenim MT
LilyUPC
Lucida Console
Lucida Sans Unicode
Malgun Gothic
Mangal
Marlett
Meiryo
Microsoft Himalaya
Microsoft JhengHei
Microsoft Sans Serif
Microsoft Uighur
Microsoft YaHei
Microsoft Yi Baiti
MingLiU
MingLiU-ExtB
MingLiU_HKSCS
MingLiU_HKSCS-ExtB
Miriam
Miriam Fixed
Mongolian Baiti
MoolBoran
MS Gothic
MS Mincho
MS PGothic
MS PMincho
MS UI Gothic
MV Boli
Narkisim
NSimSun
Nyala
Palatino Linotype
Plantagenet Cherokee
PMingLiU
PMingLiU-ExtB
Raavi
Rod
Segoe Print
Segoe Script
Segoe UI
Shruti
SimHei
Simplified Arabic
Simplified Arabic Fixed
SimSun
SimSun-ExtB
Sylfaen
Symbol
Tahoma
Times New Roman
Traditional Arabic
Trebuchet MS
Tunga
Verdana
Vrinda
Webdings
Wingdings