منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اضافة علامة مائية لـPictrueBox في vb.net - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : اضافة علامة مائية لـPictrueBox في vb.net (/showthread.php?tid=18811)

اضافة علامة مائية لـPictrueBox في vb.net - Basil Abdallah - 15-01-17


كود :
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


RE: اضافة علامة مائية لـPictrueBox في vb.net - مساعدة - 16-01-17

السلام عليكم

جزاك الله خير

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

هذه مشاركة لتحسين الكود ووضعها في دالة مع بعض الخيارات
كود :
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