查看完整版本: .net字体问题

.net字体问题

谁懂得vb.net怎样获取计算机上的所有字体? :(
vb6的screen.fonts在.net不行:'(

Dim fntCollection As InstalledFontCollection = New InstalledFontCollection()
Dim fntFamily() As FontFamily
fntFamily = fntCollection.Families
ListBox1.Items.Clear()
Dim i As Integer = 0
For i = 0 To fntFamily.Length - 1
ListBox1.Items.Add(fntFamily(i).Name)
Next