VB.Net by API/System.Drawing.Text
Версия от 19:40, 26 мая 2010; (обсуждение)
InstalledFontCollection.Families
<source lang="vbnet"> Imports System.Globalization Imports System.Text Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Drawing Imports System.Drawing.Text Imports System
public class Tester
public Shared Sub Main Dim family As FontFamily Dim installedFonts As InstalledFontCollection = New InstalledFontCollection() For Each family In installedFonts.Families Console.WriteLine(family.Name) Next family End Sub
End class
</source>
PrivateFontCollection.AddFontFile
<source lang="vbnet">
Imports System Imports System.Drawing Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Drawing.Text public class CreateFontFromTTFFile
public Shared Sub Main Application.Run(New Form1) End Sub
End class public class Form1
Inherits System.Windows.Forms.Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim g As Graphics = e.Graphics Dim pointF As New PointF(10, 20) Dim fontName As String Dim pfc As New PrivateFontCollection pfc.AddFontFile("tekhead.ttf") pfc.AddFontFile("DELUSION.TTF") pfc.AddFontFile("HEMIHEAD.TTF") pfc.AddFontFile("C:\WINNT\Fonts\Verdana.ttf") " Return all font families from the collection Dim fontFamilies As FontFamily() = pfc.Families Dim j As Integer While j < fontFamilies.Length fontName = fontFamilies(j).Name If fontFamilies(j).IsStyleAvailable(FontStyle.Italic) And fontFamilies(j).IsStyleAvailable(FontStyle.Bold) And fontFamilies(j).IsStyleAvailable(FontStyle.Underline) And fontFamilies(j).IsStyleAvailable(FontStyle.Strikeout) Then Dim newFont As New Font(fontName, 20, FontStyle.Italic Or FontStyle.Bold Or FontStyle.Underline, GraphicsUnit.Pixel) g.DrawString(fontName, newFont, New SolidBrush(Color.Red), pointF) pointF.Y += newFont.Height End If End While g.Dispose() End Sub Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub
End Class
</source>