Ich versuche einen Text auf mehrere Seiten aufzuteilen je nach Notwendigkeit
Was mache ich hier falsch?
VB.NET-Quellcode
- Dim fontRegular As New Font("Calibri", 30, FontStyle.Regular)
- Dim Rect As New Rectangle(20, 20, 790, 500)
- e.Graphics.DrawRectangle(Pens.Black, Rect)
- e.Graphics.DrawString(Txt, fontRegular, Brushes.Black, Rect)
- Dim measureString As SizeF = e.Graphics.MeasureString(Txt, fontRegular, 500)
- Dim mString As String = measureString.Height.ToString
- Dim pages As Integer = CDbl(mString) / 500
- For i As Integer = 0 To pages
- If i < pages Then
- e.HasMorePages = True
- Continue For
- Else
- e.HasMorePages = False
- End If
- Next
Was mache ich hier falsch?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dr. Nick“ ()