VB.Net by API/System.Drawing.Text

Материал из VB Эксперт
Перейти к: навигация, поиск

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>