C
Christian O'Connell
Hi, please excuse this, my third posting today. It is my last I
promise.
When I past this into form1, I am expecting to see
"Start0Start01Start012Start0123". But what I see is "Start0 Start01
Start012 Start0123". Where is the extra 'space' coming from?
Thank you again.
Chris
Protected Overrides Sub OnPaint(ByVal vpe As PaintEventArgs)
MyBase.OnPaint(vpe)
Dim g As Graphics = vpe.Graphics
Dim b As SolidBrush = New SolidBrush(Color.Black)
Dim YCoord As Single = 100
Dim XCoord As Single = 100
Dim f As New Font("Times New Roman", 12, _
FontStyle.Regular, GraphicsUnit.Pixel)
Dim s As String = "Start"
For i As Integer = 0 To 3
s += Integer.Parse(i).ToString
g.DrawString(s, f, b, XCoord, YCoord)
XCoord += g.MeasureString(s, f).Width
Next i
End Sub
promise.
When I past this into form1, I am expecting to see
"Start0Start01Start012Start0123". But what I see is "Start0 Start01
Start012 Start0123". Where is the extra 'space' coming from?
Thank you again.
Chris
Protected Overrides Sub OnPaint(ByVal vpe As PaintEventArgs)
MyBase.OnPaint(vpe)
Dim g As Graphics = vpe.Graphics
Dim b As SolidBrush = New SolidBrush(Color.Black)
Dim YCoord As Single = 100
Dim XCoord As Single = 100
Dim f As New Font("Times New Roman", 12, _
FontStyle.Regular, GraphicsUnit.Pixel)
Dim s As String = "Start"
For i As Integer = 0 To 3
s += Integer.Parse(i).ToString
g.DrawString(s, f, b, XCoord, YCoord)
XCoord += g.MeasureString(s, f).Width
Next i
End Sub