VB.Net by API/System.Drawing

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

FontFamily.GetCellAscent

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System Imports System.Windows.Forms Imports System.Drawing.Text public class FontMetricsDisplay

  public Shared Sub Main
       Application.Run(New FrmFontMetrics)
  End Sub

End class

Public Class FrmFontMetrics

  Inherits System.Windows.Forms.Form
  1. 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.ruponentModel.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
  1. 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
     graphicsObject.DrawString("Current Font: " & arial.ToString, arial, brush, 10, 10)
     Console.WriteLine("Ascent: " & family.GetCellAscent(FontStyle.Regular))
     Console.WriteLine("Descent: " & family.GetCellDescent(FontStyle.Regular))
     Console.WriteLine("Height: " & family.GetEmHeight(FontStyle.Regular))
     Console.WriteLine("Leading: " & family.GetLineSpacing(FontStyle.Regular))
     family = sanSerif.FontFamily
     Console.WriteLine("Current Font: " & sanSerif.ToString())
     Console.WriteLine("Ascent: " & family.GetCellAscent(FontStyle.Italic))
     Console.WriteLine("Descent: " & family.GetCellDescent(FontStyle.Italic))
     Console.WriteLine("Height: " & family.GetEmHeight(FontStyle.Italic))
     Console.WriteLine("Leading: " & family.GetLineSpacing(FontStyle.Italic))
  End Sub

End Class


 </source>


FontFamily.GetCellDescent

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System Imports System.Windows.Forms Imports System.Drawing.Text public class FontMetricsDisplay

  public Shared Sub Main
       Application.Run(New FrmFontMetrics)
  End Sub

End class

Public Class FrmFontMetrics

  Inherits System.Windows.Forms.Form
  1. 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.ruponentModel.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
  1. 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
     graphicsObject.DrawString("Current Font: " & arial.ToString, arial, brush, 10, 10)
     Console.WriteLine("Ascent: " & family.GetCellAscent(FontStyle.Regular))
     Console.WriteLine("Descent: " & family.GetCellDescent(FontStyle.Regular))
     Console.WriteLine("Height: " & family.GetEmHeight(FontStyle.Regular))
     Console.WriteLine("Leading: " & family.GetLineSpacing(FontStyle.Regular))
     family = sanSerif.FontFamily
     Console.WriteLine("Current Font: " & sanSerif.ToString())
     Console.WriteLine("Ascent: " & family.GetCellAscent(FontStyle.Italic))
     Console.WriteLine("Descent: " & family.GetCellDescent(FontStyle.Italic))
     Console.WriteLine("Height: " & family.GetEmHeight(FontStyle.Italic))
     Console.WriteLine("Leading: " & family.GetLineSpacing(FontStyle.Italic))
  End Sub

End Class


 </source>


FontFamily.GetEmHeight

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System Imports System.Windows.Forms Imports System.Drawing.Text public class FontMetricsDisplay

  public Shared Sub Main
       Application.Run(New FrmFontMetrics)
  End Sub

End class

Public Class FrmFontMetrics

  Inherits System.Windows.Forms.Form
  1. 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.ruponentModel.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
  1. 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
     graphicsObject.DrawString("Current Font: " & arial.ToString, arial, brush, 10, 10)
     Console.WriteLine("Ascent: " & family.GetCellAscent(FontStyle.Regular))
     Console.WriteLine("Descent: " & family.GetCellDescent(FontStyle.Regular))
     Console.WriteLine("Height: " & family.GetEmHeight(FontStyle.Regular))
     Console.WriteLine("Leading: " & family.GetLineSpacing(FontStyle.Regular))
     family = sanSerif.FontFamily
     Console.WriteLine("Current Font: " & sanSerif.ToString())
     Console.WriteLine("Ascent: " & family.GetCellAscent(FontStyle.Italic))
     Console.WriteLine("Descent: " & family.GetCellDescent(FontStyle.Italic))
     Console.WriteLine("Height: " & family.GetEmHeight(FontStyle.Italic))
     Console.WriteLine("Leading: " & family.GetLineSpacing(FontStyle.Italic))
  End Sub

End Class


 </source>


FontFamily.GetLineSpacing

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System Imports System.Windows.Forms Imports System.Drawing.Text public class FontMetricsDisplay

  public Shared Sub Main
       Application.Run(New FrmFontMetrics)
  End Sub

End class

Public Class FrmFontMetrics

  Inherits System.Windows.Forms.Form
  1. 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.ruponentModel.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
  1. 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
     graphicsObject.DrawString("Current Font: " & arial.ToString, arial, brush, 10, 10)
     Console.WriteLine("Ascent: " & family.GetCellAscent(FontStyle.Regular))
     Console.WriteLine("Descent: " & family.GetCellDescent(FontStyle.Regular))
     Console.WriteLine("Height: " & family.GetEmHeight(FontStyle.Regular))
     Console.WriteLine("Leading: " & family.GetLineSpacing(FontStyle.Regular))
     family = sanSerif.FontFamily
     Console.WriteLine("Current Font: " & sanSerif.ToString())
     Console.WriteLine("Ascent: " & family.GetCellAscent(FontStyle.Italic))
     Console.WriteLine("Descent: " & family.GetCellDescent(FontStyle.Italic))
     Console.WriteLine("Height: " & family.GetEmHeight(FontStyle.Italic))
     Console.WriteLine("Leading: " & family.GetLineSpacing(FontStyle.Italic))
  End Sub

End Class


 </source>


FontFamily.IsStyleAvailable

<source lang="vbnet">

Imports System Imports System.Drawing Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Globalization

public class Tester

  public Shared Sub Main
       Dim family As FontFamily
       For Each family In FontFamily.Families
           If family.IsStyleAvailable(FontStyle.Bold) = False Then Exit For
           Console.WriteLine(family.Name)
       Next family
  End Sub

End class


 </source>


FontStyle.Bold

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FontStyleBoldItalicUnderlineStrikout

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Inherits System.Windows.Forms.Form
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim canvas As Graphics = e.Graphics
       
       Dim mainFont As Font
       Dim textStyle As New FontStyle
       textStyle = FontStyle.Regular
       textStyle = textStyle Or FontStyle.Bold
       textStyle = textStyle Or FontStyle.Italic Or FontStyle.Underline Or FontStyle.Strikeout
       mainFont = New Font("Arial", 40, textStyle)
       
       Dim brush1 As New SolidBrush(Color.DarkBlue)
       canvas.DrawString("www.vbex.ru",mainFont, brush1, 120, 70)        
       
       canvas = Nothing
   End Sub

End Class


 </source>


FontStyle.Italic

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FontStyleBoldItalicUnderlineStrikout

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Inherits System.Windows.Forms.Form
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim canvas As Graphics = e.Graphics
       
       Dim mainFont As Font
       Dim textStyle As New FontStyle
       textStyle = FontStyle.Regular
       textStyle = textStyle Or FontStyle.Bold
       textStyle = textStyle Or FontStyle.Italic Or FontStyle.Underline Or FontStyle.Strikeout
       mainFont = New Font("Arial", 40, textStyle)
       
       Dim brush1 As New SolidBrush(Color.DarkBlue)
       canvas.DrawString("www.vbex.ru",mainFont, brush1, 120, 70)        
       
       canvas = Nothing
   End Sub

End Class


 </source>


FontStyle.Regular

<source lang="vbnet">

Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FontStyleCreate

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Inherits System.Windows.Forms.Form
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim canvas As Graphics = e.Graphics
       
       Dim mainFont As Font
       Dim textStyle As New FontStyle
       textStyle = FontStyle.Regular
       mainFont = New Font("Arial", 40, textStyle)
       
       Dim brush1 As New SolidBrush(Color.DarkBlue)
       canvas.DrawString("www.vbex.ru",mainFont, brush1, 120, 70)        
       
       canvas = Nothing
   End Sub

End Class


 </source>


FontStyle.Strikeout

<source lang="vbnet">

Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FontStyleBoldItalicUnderlineStrikout

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Inherits System.Windows.Forms.Form
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim canvas As Graphics = e.Graphics
       
       Dim mainFont As Font
       Dim textStyle As New FontStyle
       textStyle = FontStyle.Regular
       textStyle = textStyle Or FontStyle.Bold
       textStyle = textStyle Or FontStyle.Italic Or FontStyle.Underline Or FontStyle.Strikeout
       mainFont = New Font("Arial", 40, textStyle)
       
       Dim brush1 As New SolidBrush(Color.DarkBlue)
       canvas.DrawString("www.vbex.ru",mainFont, brush1, 120, 70)        
       
       canvas = Nothing
   End Sub

End Class


 </source>


FontStyle.Underline

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FontStyleBoldItalicUnderlineStrikout

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Inherits System.Windows.Forms.Form
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim canvas As Graphics = e.Graphics
       
       Dim mainFont As Font
       Dim textStyle As New FontStyle
       textStyle = FontStyle.Regular
       textStyle = textStyle Or FontStyle.Bold
       textStyle = textStyle Or FontStyle.Italic Or FontStyle.Underline Or FontStyle.Strikeout
       mainFont = New Font("Arial", 40, textStyle)
       
       Dim brush1 As New SolidBrush(Color.DarkBlue)
       canvas.DrawString("www.vbex.ru",mainFont, brush1, 120, 70)        
       
       canvas = Nothing
   End Sub

End Class


 </source>


New Font(String name, Int size,FontStyle textStyle)

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FontStyleCreate

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Inherits System.Windows.Forms.Form
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim canvas As Graphics = e.Graphics
       
       Dim mainFont As Font
       Dim textStyle As New FontStyle
       textStyle = FontStyle.Regular
       mainFont = New Font("Arial", 40, textStyle)
       
       Dim brush1 As New SolidBrush(Color.DarkBlue)
       canvas.DrawString("www.vbex.ru",mainFont, brush1, 120, 70)        
       
       canvas = Nothing
   End Sub

End Class


 </source>