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

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

رابط لعلامة مائية
الرد }}}
تم الشكر بواسطة:
#2
ايش اللي مانعك؟
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة ادوات لفيجوال بيسك خالد20 10 1,976 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  [سؤال] كيفية اضافة في اكثر من جدول ahmed_king2023 0 364 29-07-23, 12:03 PM
آخر رد: ahmed_king2023
  اقتناص حدث تحديث او حذف او اضافة ملف ابو محمد محمد محمد 6 560 21-04-23, 05:49 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  مشكلة فى اضافة عناصر فى الداتا جريد فيو خالد كامل1 14 1,616 16-02-23, 03:10 AM
آخر رد: خالد كامل1
  [VB.NET] اضافة كرستال ريبورت MOHAMMED ALZWI 2 373 20-12-22, 11:19 AM
آخر رد: MOHAMMED ALZWI
  [VB.NET] خطأ عند اضافة فاتورة مشتريات MOHAMMED ALZWI 2 441 10-12-22, 12:25 PM
آخر رد: MOHAMMED ALZWI
  [VB.NET] خطأ عند اضافة فاتورة مشتريات 0 152 10-12-22, 02:30 AM
آخر رد: MOHAMMED ALZWI
  مساعدة في اضافة زر داخل خلية في الداتا جريد فيو MustafaShaker 4 2,188 22-10-22, 09:13 PM
آخر رد: MORA

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


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