|
[Visual Basic]
Dim fontname As String
Dim gs As New Gestalt
gs.TextCharset = "Symbol"
Response.Write("List of Symbol Fonts<br>")
For Each fontname In gs.Fonts
Response.Write(fontname + "<br>")
Next
[C#]
Gestalt gs = new Gestalt();
gs.TextCharset = "Symbol";
Response.Write("List of Symbol Fonts<br>");
foreach (string fontname in gs.Fonts) {
Response.Write(fontname + "<br>");
}
The above will produce something like the following output - depending
on the fonts you have installed:
List of Symbol Fonts
Marlett
Wingdings
Symbol
Webdings
MS Outlook
Wingdings 2
Wingdings 3
|