• Home
 · 
• Graphics
 · 
• Custom word wrapping using DrawString and MeasureString from the Graphics object

Custom word wrapping using DrawString and MeasureString from the Graphics object

Custom word wrapping using DrawString and MeasureString from the Graphics object

API Declarations



Public Sub PrintLine(ByRef pObj As Object, ByVal psText As String, ByVal X As Long, ByVal Y As Long, ByRef pBounds As System.Drawing.Rectangle)
Dim lX As Long
Dim lY As Long
Dim lSize As System.Drawing.Size
Dim lGraphics As Graphics
Dim lFont As Font
Dim lBreak As Long
Dim lText As String
Dim lCheck As Long
Dim lChar As String
Dim lStrip As Integer
Dim lDraw As String
Dim lBrush As Brush
Dim lColor As Color
Dim lbStop As Boolean

lGraphics = pObj.creategraphics
lFont = pObj.font

lX = X - pBounds.Left
lY = Y - pBounds.Top

lCheck = 1
lText = psText.Substring(0, lCheck)
lSize = lGraphics.MeasureString(lText, lFont).ToSize

Do While Len(psText) > 0
Do While lSize.Width < pBounds.Width - lX And lbStop = False
lChar = lText.Substring(Len(lText) - 1, 1)
If lChar = " " Or lChar = "-" Or lChar = vbLf Then
If lChar = "-" Then
lStrip = 0
ElseIf lChar = " " Then
lStrip = 1
ElseIf lChar = vbLf Then
lStrip = 2
End If
lBreak = lCheck
End If
lCheck = lCheck + 1
If lCheck <= Len(psText) Then
lText = psText.Substring(0, lCheck)
Else
lText = psText
lbStop = True
End If
lSize = lGraphics.MeasureString(lText, lFont).ToSize
Loop

lbStop = False

If lBreak = 0 Then
lBreak = lCheck - 1
lStrip = 0
End If

If lBreak > Len(lText) Then
lBreak = Len(lText)
End If

lDraw = lText.Substring(0, lBreak - lStrip)
psText = psText.Substring(lBreak)
lStrip = 0

lColor = pObj.forecolor
lBrush = New Pen(lColor).Brush

lGraphics.DrawString(lDraw, lFont, lBrush, X, Y)
Y = Y + lSize.Height
lY = Y - pBounds.Left

lCheck = 1
If Len(psText) > 0 Then
lText = psText.Substring(0, lCheck)
lSize = lGraphics.MeasureString(lText, lFont).ToSize
End If
Loop
End Sub



Rate Custom word wrapping using DrawString and MeasureString from the Graphics object

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'put the following on a form with a button named Button1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lSize As System.Drawing.Rectangle

        lSize = New Rectangle(1, 1, 40, 125)
        PrintLine(Me, "This is another test of the word-wrap function!", 1, 1, lSize)
    End Sub