VB.Net Tutorial/2D Graphics/StringTrimming

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

StringTrimming.Character

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

  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 txt As String
       Dim the_font As New Font("Times New Roman", 30, FontStyle.Bold, GraphicsUnit.Pixel)
       Dim layout_rect As RectangleF
       e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
       layout_rect = New RectangleF(50, 0, 500, 70)
       txt = "ABC\DEF\GHI\JKL\MNO\PQR\STU\VWX\YZ ABC DEF GHI JKL MNO PQR STU VWX YZ"
       Dim string_format As New StringFormat
       string_format.Trimming = StringTrimming.Character
       e.Graphics.DrawString(string_format.Trimming.ToString, Me.Font, Brushes.Black, 0, layout_rect.Y + 5)
       e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format)
       e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect))
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(700, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class</source>

StringTrimming.EllipsisCharacter

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

  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 txt As String
       Dim the_font As New Font("Times New Roman", 30, FontStyle.Bold, GraphicsUnit.Pixel)
       Dim layout_rect As RectangleF
       e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
       layout_rect = New RectangleF(50, 0, 500, 70)
       txt = "ABC\DEF\GHI\JKL\MNO\PQR\STU\VWX\YZ ABC DEF GHI JKL MNO PQR STU VWX YZ"
       Dim string_format As New StringFormat
       string_format.Trimming = StringTrimming.EllipsisCharacter
       e.Graphics.DrawString(string_format.Trimming.ToString, Me.Font, Brushes.Black, 0, layout_rect.Y + 5)
       e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format)
       e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect))
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(700, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class</source>

StringTrimming.EllipsisPath

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

  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 txt As String
       Dim the_font As New Font("Times New Roman", 30, FontStyle.Bold, GraphicsUnit.Pixel)
       Dim layout_rect As RectangleF
       e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
       layout_rect = New RectangleF(50, 0, 500, 70)
       txt = "ABC\DEF\GHI\JKL\MNO\PQR\STU\VWX\YZ ABC DEF GHI JKL MNO PQR STU VWX YZ"
       Dim string_format As New StringFormat
       string_format.Trimming = StringTrimming.EllipsisPath
       e.Graphics.DrawString(string_format.Trimming.ToString, Me.Font, Brushes.Black, 0, layout_rect.Y + 5)
       e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format)
       e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect))
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(700, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class</source>

StringTrimming.EllipsisWord

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

  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 txt As String
       Dim the_font As New Font("Times New Roman", 30, FontStyle.Bold, GraphicsUnit.Pixel)
       Dim layout_rect As RectangleF
       e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
       layout_rect = New RectangleF(50, 0, 500, 70)
       txt = "ABC\DEF\GHI\JKL\MNO\PQR\STU\VWX\YZ ABC DEF GHI JKL MNO PQR STU VWX YZ"
       Dim string_format As New StringFormat
       string_format.Trimming = StringTrimming.EllipsisWord
       e.Graphics.DrawString(string_format.Trimming.ToString, Me.Font, Brushes.Black, 0, layout_rect.Y + 5)
       e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format)
       e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect))
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(700, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class</source>

StringTrimming.None

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

  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 txt As String
       Dim the_font As New Font("Times New Roman", 30, FontStyle.Bold, GraphicsUnit.Pixel)
       Dim layout_rect As RectangleF
       e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
       layout_rect = New RectangleF(50, 0, 500, 70)
       txt = "ABC\DEF\GHI\JKL\MNO\PQR\STU\VWX\YZ ABC DEF GHI JKL MNO PQR STU VWX YZ"
       Dim string_format As New StringFormat
       string_format.Trimming = StringTrimming.None
       e.Graphics.DrawString(string_format.Trimming.ToString, Me.Font, Brushes.Black, 0, layout_rect.Y + 5)
       e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format)
       e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect))
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(700, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class</source>

StringTrimming.Word

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

  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 txt As String
       Dim the_font As New Font("Times New Roman", 30, FontStyle.Bold, GraphicsUnit.Pixel)
       Dim layout_rect As RectangleF
       e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
       layout_rect = New RectangleF(50, 0, 500, 70)
       txt = "ABC\DEF\GHI\JKL\MNO\PQR\STU\VWX\YZ ABC DEF GHI JKL MNO PQR STU VWX YZ"
       Dim string_format As New StringFormat
       string_format.Trimming = StringTrimming.Word
       e.Graphics.DrawString(string_format.Trimming.ToString, Me.Font, Brushes.Black, 0, layout_rect.Y + 5)
       e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format)
       e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect))
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(700, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class</source>