تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة علامة مائية لـPictrueBox في vb.net
#1

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

الرد
#2
السلام عليكم

جزاك الله خير

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

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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم