[sniperjawadino]

السلام عليكم إخواني

ممكن أن أجد أي مساعدة في فهم هذا الكود

ما دور MeasureString
ولمادا تم إستخدام Mid
وما مهمة currentChar
  و أيضا   chars    line    format


أنا جديد في Graphics
إعدروني

        Static currentChar As Integer

 

        Dim format As StringFormat = New StringFormat(StringFormatFlags.LineLimit)

        Dim chars As Integer

        Dim line As Integer

 

        e.Graphics.MeasureString(Mid(TextToPrint, currentChar + 1), New Font("Lucida Console", 10, FontStyle.Bold), New SizeF(0, 0), format, chars, line)

        e.Graphics.DrawString(TextToPrint.Substring(currentChar, chars), New Font("Lucida Console", 10, FontStyle.Bold), Brushes.Black, New Rectangle(0, 0, 0, 0), format)

 

        currentChar = currentChar + chars

        If currentChar < TextToPrint.Length Then

            e.HasMorePages = True

        Else

            e.HasMorePages = False

            currentChar = 0

        End If