javad2000
چهارشنبه 11 مهر 1386, 21:43 عصر
سلام
من از این کد برای نوشتن یک متن (راست به چپ) بر روی یک فایل عکس استفاده می کنم.
اما مشکلم اینجاست که اگه اون عکس بزرگتر یا کوچکتر از 800*600 dpi باشه متن مربوطه زیاد از حد بزرگ یا کوچیک روی عکس ظاهر میشه و یا این که قسمتی از اون خارچ از محدوده عکس می افته.
چطور می تونم Width و Height اون عکس رو قبل از ترسیم متن بر روی اون دقیقاً معادل 600*800 تنظیم کنم؟
با تشکر
Public Sub DrawOnPicture(ByVal StrInputFilePath As String, ByVal StrOutputFilePath As String, ByVal StrWaterMark As String)
Try
Dim F As Font = New Font("Tahoma", 8, FontStyle.Bold)
'Construct a Bitmap object from a jpg's filename:
Dim bmp As Bitmap = New Bitmap(StrInputFilePath)
bmp.SetResolution(96, 96)
'Obtain a Graphics object from & for that Bitmap:
Dim canvas As Graphics = Graphics.FromImage(bmp)
Label2.Text = strWaterMark
Dim Pt As Point = New Point(bmp.Width - Label2.Width, i * F.Height)
canvas.DrawString(H(i), _
F, _
New SolidBrush(Color.Black), Pt.X - 1, Pt.Y)
bmp.Save(StrOutputFilePath, Drawing.Imaging.ImageFormat.Bmp)
Catch ex As Exception
End Try
End Sub
من از این کد برای نوشتن یک متن (راست به چپ) بر روی یک فایل عکس استفاده می کنم.
اما مشکلم اینجاست که اگه اون عکس بزرگتر یا کوچکتر از 800*600 dpi باشه متن مربوطه زیاد از حد بزرگ یا کوچیک روی عکس ظاهر میشه و یا این که قسمتی از اون خارچ از محدوده عکس می افته.
چطور می تونم Width و Height اون عکس رو قبل از ترسیم متن بر روی اون دقیقاً معادل 600*800 تنظیم کنم؟
با تشکر
Public Sub DrawOnPicture(ByVal StrInputFilePath As String, ByVal StrOutputFilePath As String, ByVal StrWaterMark As String)
Try
Dim F As Font = New Font("Tahoma", 8, FontStyle.Bold)
'Construct a Bitmap object from a jpg's filename:
Dim bmp As Bitmap = New Bitmap(StrInputFilePath)
bmp.SetResolution(96, 96)
'Obtain a Graphics object from & for that Bitmap:
Dim canvas As Graphics = Graphics.FromImage(bmp)
Label2.Text = strWaterMark
Dim Pt As Point = New Point(bmp.Width - Label2.Width, i * F.Height)
canvas.DrawString(H(i), _
F, _
New SolidBrush(Color.Black), Pt.X - 1, Pt.Y)
bmp.Save(StrOutputFilePath, Drawing.Imaging.ImageFormat.Bmp)
Catch ex As Exception
End Try
End Sub