Mega Code Archive

 
Categories / VB.Net / 2D Graphics
 

Displaying font metric information

Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.Drawing.Text Public Class MainClass    Shared Sub Main()         Dim myform As Form = New FrmFontMetrics()         Application.Run(myform)    End Sub ' Main End Class Public Class FrmFontMetrics    Inherits System.Windows.Forms.Form #Region " Windows Form Designer generated code "    Public Sub New()       MyBase.New()       'This call is required by the Windows Form Designer.       InitializeComponent()       'Add any initialization after the InitializeComponent() call    End Sub    'Form overrides dispose to clean up the component list.    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)       If disposing Then          If Not (components Is Nothing) Then             components.Dispose()          End If       End If       MyBase.Dispose(disposing)    End Sub    'Required by the Windows Form Designer    Private components As System.ComponentModel.Container    'NOTE: The following procedure is required by the Windows Form Designer    'It can be modified using the Windows Form Designer.      'Do not modify it using the code editor.    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()       '       'frmFontMetrics       '       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)       Me.ClientSize = New System.Drawing.Size(920, 253)       Me.Name = "frmFontMetrics"       Me.Text = "Metrics"    End Sub #End Region    Protected Overrides Sub OnPaint( _     ByVal paintEvent As PaintEventArgs)       Dim graphicsObject As Graphics = paintEvent.Graphics       Dim brush As SolidBrush = New SolidBrush(Color.Red)       Dim pen As Pen = New Pen(brush, Convert.ToSingle(2.5))       ' Arial font metrics       Dim arial As Font = New Font("Arial", 12)       Dim family As FontFamily = arial.FontFamily       Dim sanSerif As Font = New Font("Microsoft Sans Serif", _          14, FontStyle.Italic)       pen.Color = brush.Color       brush.Color = Color.DarkBlue       ' display Arial font metrics       graphicsObject.DrawString("Current Font: " & arial.ToString, _          arial, brush, 10, 10)       graphicsObject.DrawString("Ascent: " & _          family.GetCellAscent(FontStyle.Regular), arial, brush, _           10, 30)       graphicsObject.DrawString("Descent: " & _          family.GetCellDescent(FontStyle.Regular), arial, brush, _          10, 50)       graphicsObject.DrawString("Height: " & family.GetEmHeight _          (FontStyle.Regular), arial, brush, 10, 70)       graphicsObject.DrawString("Leading: " & _          family.GetLineSpacing(FontStyle.Regular), arial, brush, _          10, 90)    End Sub  ' OnPaint End Class