[مساعدة]

السلام عليكم

جزاك الله خير

مشكلة الكود السابق لا يسمح بالاحتفاظ بالنتيجة

هذه مشاركة لتحسين الكود ووضعها في دالة مع بعض الخيارات

كود :

PictureBox1.Image=AddWaterMark(PictureBox1.Image,"BMW")

كود :

Function AddWaterMark(img As Image, txt As String, Optional bottom As Boolean = True) As Image
   Using bmp As New Bitmap(img)
       Using grp As Graphics = Graphics.FromImage(bmp)
           Dim NF As New Font("Impact", 36, FontStyle.Italic)
           Dim NB As New SolidBrush(Color.FromArgb(64, 192, 255, 255))
           Dim NS As Size = TextRenderer.MeasureText(txt, NF)
           grp.DrawString(txt, NF, NB, 0, If(bottom, img.Height - NS.Height, 0))
           Return bmp.Clone
       End Using
   End Using
End Function