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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اضافة الصور لقاعدة البيانات SQL m.farag87 1 13 منذ 1 ساعه مضت
آخر رد: khodor1985
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 121 18-10-17, 09:49 PM
آخر رد: سعود
  اضافة 0 قبل العلامه العشريه فى التكست بوكس نبيل فتحى 6 120 08-10-17, 03:21 AM
آخر رد: نبيل فتحى
  مساعده فى اضافة "0" قبل" ." نبيل فتحى 0 41 06-10-17, 01:57 AM
آخر رد: نبيل فتحى
  [سؤال] عند اضافة حالة جديدة naden 2 97 01-10-17, 12:54 AM
آخر رد: naden
  اضافة عدد الايام + التاريخ الاول = التاريخ الثانى nabil.1710 3 130 15-09-17, 05:10 AM
آخر رد: طـلال
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 1 92 12-09-17, 02:05 AM
آخر رد: hglogtd
  كيفية اضافة حقل CheckBox لعنوان العمود المتألق9 6 161 24-08-17, 04:18 PM
آخر رد: سعود الشامان
  طلب كود اضافة العلامات العشريه للتكست بوكس نبيل كونكت 7 176 20-08-17, 12:48 AM
آخر رد: محمود بكرى
  اضافة حقل الى جدول برمجيا كرم ابوهشام 1 110 31-07-17, 08:44 PM
آخر رد: سعود

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


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