Draw String Control Tab : Tab Stops « 2D Graphics « VB.Net Tutorial






  1. VB.Net Tutorial
  2. 2D Graphics
  3. Tab Stops
Draw String Control Tab
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Math

public class DrawStringControlTab
   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 = "The" & vbTab & "quick" & vbCrLf & _
            "brown" & vbTab & "fox" & vbCrLf & _
            "jumps" & vbTab & "over" & vbCrLf & _
            "the" & vbTab & "lazy" & vbCrLf & _
            "dog."
        Dim big_font As New Font("Times New Roman", 30, FontStyle.Bold)
        e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
        e.Graphics.DrawString(txt, big_font, Brushes.Black, 10, 10)
        e.Graphics.DrawEllipse(Pens.Black, 8, 8, 4, 4)
    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








17.34.Tab Stops
17.34.1.Draw String Control TabDraw String Control Tab
17.34.2.StringFormat.SetTabStopsStringFormat.SetTabStops