فرید نجفلو
شنبه 06 خرداد 1391, 15:21 عصر
سلام
نظرتون درباره این تابع چیه:
''' <summary>
''' رسم متن در تصویر
''' </summary>
''' <param name="Grph">شئی گرافیک</param>
''' <param name="TextToDrow">متن جهت رسم</param>
''' <param name="DrawFont">فونت متن</param>
''' <param name="Location">مختصات رسم</param>
''' <param name="IsRightToLeft">تعیین رسم از راست به چپ(فارسی)</param>
''' <param name="ForeBrush">نوع قلمو</param>
''' <remarks></remarks>
Public Shared Sub DrawTextToGraph(ByRef Grph As Graphics, TextToDrow As String, DrawFont As Font, Location As PointF, _
Optional IsRightToLeft As Boolean = True, Optional ForeBrush As Brush = Nothing)
Dim textSize As SizeF
If ForeBrush Is Nothing Then ForeBrush = Brushes.Red
textSize = Grph.MeasureString(TextToDrow, DrawFont)
Grph.TranslateTransform(Location.X, Location.Y)
Dim strfrm As New StringFormat
If IsRightToLeft Then
strfrm.Alignment = StringAlignment.Far
Else
strfrm.Alignment = StringAlignment.Near
End If
Grph.DrawString(TextToDrow, DrawFont, ForeBrush, 0, 0, strfrm)
End Sub