تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة استعلامات جديدة rabeh.ram 10 182 22-05-17, 03:59 AM
آخر رد: rabeh.ram
  اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل khaled12345 9 226 18-05-17, 12:34 AM
آخر رد: khaled12345
  [سؤال] ممكن طريقة اضافة سنوات في التاريخ Abdulaziz Hazazi 2 89 06-05-17, 09:59 PM
آخر رد: أسامة السالمي
  كيفية اضافة ملف صوتى الى برنامجى OakenShield 2 73 25-04-17, 02:33 PM
آخر رد: tarek
  طلب مساعدة في اضافة save & restore trakktour 10 467 22-04-17, 06:00 PM
آخر رد: sambro
  ,اضافة تكست للريبورت alma_fandi 6 176 22-04-17, 05:59 PM
آخر رد: alma_fandi
Photo [سؤال] بخصوص اضافة تمرير بيناتا للداتا قريد فيو من تيكست بوكس diab4diab 1 84 20-04-17, 05:26 AM
آخر رد: أسامة السالمي
  مشكلة في اضافة كافة حقول الـ DGV الى قاعدة البيانات كود برمجي 11 316 18-04-17, 11:03 PM
آخر رد: كود برمجي
Wink اضافة اعلان ادسينس على واجهة البرنامج Basel_hmd 0 71 11-03-17, 04:48 PM
آخر رد: Basel_hmd
  كيف اضافة جميع item list فى subitem Mohamed20 3 94 11-03-17, 01:34 AM
آخر رد: مساعدة

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


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