[Basil Abdallah]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim NF As New Font("Impact", 36, FontStyle.Italic)
   Dim NB As New SolidBrush(Color.FromArgb(64, 192, 255, 255))
   NB.Color = Color.FromArgb(128, 0, 0, 0)
   PictureBox1.CreateGraphics.DrawString(TextBox1.Text, NF, NB, 15, 135)
End Sub

[مساعدة]

السلام عليكم

جزاك الله خير

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

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

كود :

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