تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اضافة علامة مائية للفورم
#1
Bug 
اريد اضافة علامة مائية للفورم 

رابط علامة مائية

رابط لعلامة مائية
الرد }}}}
تم الشكر بواسطة:
#2
ايش اللي مانعك؟
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#3
ارسمها علي الفورم في الحدث التالي مع مراعاة عمل Invalidate لعملية الرسم حين تتغير ابعاد الفورم او مكانه علي شاشة الكمبيوتر

كود :
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint

   End Sub
الرد }}}}
تم الشكر بواسطة: سعود
#4
الي مانعني طريقة جعل اليبل يميل لوضع التيكست بداخلة
الرد }}}}
تم الشكر بواسطة:
#5
ماذا تقصد بإنك لا تستطيع ان تجعل Label يميل؟
وإن كنت تقصد انك تريد أن يظهر التكست مائلا داخل Label فهذا يحتاج الي إلمام ب الجرافكس

عموما العلامة المائية ممكن أن تكون تكست أو صورة او تكست مع صورة في نفس الوقت و غالبا يتم رسمها في خلفية الكونترول بحيث انها لا تظهر بشكل واضح أي أن الألوان المستخدمة لرسم التكست غالبا ما تكون شفافة قليلا و نفس الشئ بالنسبة للصور يجب ان تكون لها درجة من الشفافية

سأحاول أن أكتب لك الفكرة لاحقا
الرد }}}}
تم الشكر بواسطة: سعود
#6
جرب وضعها على شكل خلفية للفورم 

او عن طريق
كود :
Dim x As Boolean = False
   Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
       If x = False Then
           e.Graphics.DrawImage(picturebox1.Image, 0, 0)
       End If
   End Sub
الرد }}}}
تم الشكر بواسطة: سعود
#7
ممكن تشرحون لي معنى علامة مائية؟
هل المقصود بها ان اضع ايقونة ثابتة لصورة او لفيديو؟
بارك الله فيكم جميعا.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
العلامة المائية تكون عادة نص او صورة او الاثنين معاً .. وغالباً تكون بخط مائل 45 درجة وبلون غير واضح

مثل كلمة Draft هنا

الرد }}}}
تم الشكر بواسطة:
#9
الكود التالي يوضح كيف ترسم علامة مائية عبارة عن تكست علي سطح الفورم
كود :
Public Class Form1

   Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
       If Me.Width < 0 AndAlso Me.Height < 0 Then
           Return
       End If

       Dim rect As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
       Dim bmp As Bitmap = New Bitmap(CInt(Width), CInt(Height), Imaging.PixelFormat.Format32bppArgb)
       Dim inclination As Integer = 315

       If inclination < 0 Then
           inclination = 0
       End If
       If inclination > 360 Then
           inclination = 360
       End If

       Using g As Graphics = Graphics.FromImage(bmp)
           g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
           g.Clear(Me.BackColor)

           Dim watermark As String = "Visual Basic For Arab"
           Dim maxFontSize As Integer = 70
           Dim minFontSize As Integer = CInt(Me.Font.Size)
           Dim maxWidth As Integer = bmp.Width
           Dim controlFont As Font = Me.Font
           Dim drawingFont As Font = CType(Nothing, Font)
           Dim bestFitFont As Font = CType(Nothing, Font)
           For i As Integer = minFontSize To maxFontSize Step 1
               drawingFont = New Font(controlFont.Name, i, controlFont.Style)
               Dim textSize As SizeF = g.MeasureString(watermark, drawingFont)
               If maxWidth > CInt(textSize.Width) Then
                   bestFitFont = drawingFont
               End If
           Next

           Dim watermarkTextSize As SizeF = g.MeasureString(watermark, bestFitFont)
           g.TranslateTransform(bmp.Width / 2, bmp.Height / 2)
           g.RotateTransform(inclination)
           g.DrawString(watermark, bestFitFont, New SolidBrush(ControlPaint.LightLight(Me.BackColor)), -(watermarkTextSize.Width / 2), -(watermarkTextSize.Height / 2))
       End Using

       e.Graphics.DrawImage(bmp, 0, 0)
   End Sub

   Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
       Invalidate()
   End Sub


End Class
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 1 56 أمس, 03:36 AM
آخر رد: elhon.tec
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 73 08-12-16, 09:07 PM
آخر رد: محمد كريّم
  [VB.NET] اضافة التاريخ في الطباعة في الريبورت فيور hglogtd 8 92 08-12-16, 08:35 PM
آخر رد: ابراهيم النعيمي
  اضافة عمود من نوع image ل bound datagridview noway 1 72 17-11-16, 12:08 PM
آخر رد: Genius Live
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 72 15-11-16, 10:30 PM
آخر رد: السرور
  اضافة الاصناف جديد بشرط %Eman% 5 234 09-11-16, 01:39 PM
آخر رد: walkady
Thumbs Up اضافة كود جمع و طرح في داتا قريد ص hglogtd 4 103 27-10-16, 03:15 AM
آخر رد: hglogtd
  اضافة الليست بوكس علي هيئة تيكست اللي قاعدة البيانات makky 3 162 16-10-16, 06:09 PM
آخر رد: makky
  اضافة وقت الى وقت Mohamed20 5 127 02-10-16, 04:51 AM
آخر رد: ممدوح
  اضافة اكثر من ليست بوكس الي قاعدة البيانات makky 1 112 26-09-16, 09:57 PM
آخر رد: سعود

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


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