PDA

View Full Version : چاپ متن روی عکس



Hossis
پنج شنبه 11 اردیبهشت 1393, 19:44 عصر
من می خوام روی عکس های یک پوشه، یک متنی رو بچسبونم(مثل حدیث یا جملات پند آموز) تا روی دسک تاپ نمایش داده بشه
راهی هست که به صورت کد نویسی این کار رو انجام بدم؟؟

majidnazari65
پنج شنبه 11 اردیبهشت 1393, 23:50 عصر
شما میتونید از کلاس Drawing.Graphics استفاده کنید. بطور کلی به روش زیر:

Using myImage As Drawing.Image = Drawing.Image.FromFile("c:\im.jpg")
Using myGraphic As Drawing.Graphics = Drawing.Graphics.FromImage(myImage)
Dim x As Integer = 100
Dim y As Integer = 100
myGraphic.DrawString("your-string", Me.Font, Brushes.Black, x, y, New StringFormat(StringFormatFlags.DirectionRightToLef t))
myImage.Save("c:\new-image.hpg", Drawing.Imaging.ImageFormat.Jpeg)
End Using
End Using