StringTrimming.Character : StringTrimming « System.Drawing « VB.Net by API






StringTrimming.Character

  
Imports System.Drawing.Drawing2D
Imports System
Imports System.Drawing.Text
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Math

Public Class MainClass

   Shared Sub Main()
       Dim form1 As Form = New Form1()
       Application.Run(form1)
   End Sub 

End Class
 
Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ResizeRedraw = True
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        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(100, 0, 180, 70)
        txt = "Today is Monday. Tomorrow is Friday"

        Dim string_format As New StringFormat
        string_format.Trimming = StringTrimming.Character

        e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format)
        e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect))

    End Sub

End Class
 

   
    
  








Related examples in the same category

1.StringTrimming.EllipsisCharacter
2.StringTrimming.EllipsisPath
3.StringTrimming.EllipsisWord
4.StringTrimming.None
5.StringTrimming.Word