منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Basil Abdallah

مساعدة