تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اظهار ضوء علي صورة
#1
السلام عليكم ورحمة الله
عندي صورة داخل PictureBox الصورة لون واحد فقط مثال

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

وجزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#2
(25-04-14, 03:39 PM)ali.alfoly كتب : السلام عليكم ورحمة الله
عندي صورة داخل PictureBox الصورة لون واحد فقط مثال

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

وجزاكم الله خيرا

مثال على السريع باستغلال PictureBox مع وضع الصور التي في المرفقات في Resources

(مع ملاحظة أن الصورة لا يكون لها هوامش فارغة - لذا قمت بتعديل الصورة التي منك إلى صورة بدون هوامش)

أضف أداة PictureBox
الإعدادت الهامة:
أضف الصورة main.png في BackgroundImage
عدل مقاس الأداء PictureBox إلى نفس مقاس الصورة mail.png وهنا المقاس Size: 48; 34
عدل الخاصية SizeMode إلى StretchImage

كود :
Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        ' حدث النقر
    End Sub

#Region "CustomButton"
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Me.PictureBox1.Image = My.Resources.black
    End Sub
    Private Sub PictureBox1_MouseEnterMouseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter, PictureBox1.MouseUp
        Me.PictureBox1.Image = My.Resources.white
    End Sub
    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
        Me.PictureBox1.Image = Nothing
    End Sub
#End Region

End Class


الملفات المرفقة
.zip   Images.zip (الحجم : 16.31 ك ب / التحميلات : 30)
الرد }}}}
تم الشكر بواسطة: سعود , Sniper.ps , ali.alfoly
#3
img الصورة
col لون الضوء
opacity النسبة المئوية لمدى شفافية الضوء (رقم من 1 إلى 100)

كود :
Public Shared Function Light(ByVal img As System.Drawing.Image, ByVal col As System.Drawing.Color, ByVal opacity As Single) As System.Drawing.Image
        Dim rectangle As Rectangle
        Dim image As New Bitmap(img.Width, img.Height)
        Using graphics As Graphics = graphics.FromImage(image)
            rectangle = New Rectangle(0, 0, img.Width, img.Height)
            graphics.FillRectangle(New SolidBrush(col), rectangle)
        End Using
        Using graphics2 As Graphics = Graphics.FromImage(img)
            Dim imageAttr As New Imaging.ImageAttributes
            Dim newColorMatrix As Single()() = New Single()() {New Single() {2.0!, 0.0!, 0.0!, 0.0!, 0.0!}, New Single() {0.0!, 1.0!, 0.0!, 0.0!, 0.0!}, New Single() {0.0!, 0.0!, 1.0!, 0.0!, 0.0!}, New Single() {0.0!, 0.0!, 0.0!, opacity / 100, 0.0!}, New Single() {0.2!, 0.2!, 0.2!, 0.0!, 1.0!}}
            Dim matrix As New Imaging.ColorMatrix(newColorMatrix)
            imageAttr.SetColorMatrix(matrix, Imaging.ColorMatrixFlag.Default, Imaging.ColorAdjustType.Bitmap)
            rectangle = New Rectangle(0, 0, img.Width, img.Height)
            graphics2.DrawImage(image, rectangle, 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imageAttr)
        End Using
        Return img
    End Function
الرد }}}}
تم الشكر بواسطة: Sniper.ps , سعود , ali.alfoly
#4
جزاكم الله خيرا اخواني
انا اقصد مثل هذا الموضوع
لاكني مش عارف انفذ الفكرة
http://helpdotnetvision.nevron.com/Prese...ilter.html
الرد }}}}
تم الشكر بواسطة:
#5
(25-04-14, 08:58 PM)ali.alfoly كتب : جزاكم الله خيرا اخواني
انا اقصد مثل هذا الموضوع
لاكني مش عارف انفذ الفكرة
http://helpdotnetvision.nevron.com/Prese...ilter.html

الرابط فيه مشكلة
عامتاً الفكرة إنك في الحدث MouseMove تغير الصورة بالصورة المضائة و في MouseLeave ترجع الصورة الطبيعية
الرد }}}}
تم الشكر بواسطة:
#6
في WPF ماتاخذ معاك ثانية وحدة
الرد }}}}
تم الشكر بواسطة:
#7
نعم اخي انا فهمت الدالة الي حدرتك طرحتها وهي ممتازة
لاكن طلب الضوء يكون من جهة معينة
وده الرابط اسف علي الرابط القديم
كود :
http://helpdotnetvision.nevron.com/Presentation_Graphics_AppearanceStyles_ImageFiltersStyle_Lighting_Image_Filter.html
اخي محمد الله يسامحك هههه
انا نفسي انتقل للـ WPF لاكن مشروعي انتهي ومستحيل اعدل مشروعي بالكامل
الرد }}}}
تم الشكر بواسطة:
#8
(26-04-14, 04:14 PM)ali.alfoly كتب : نعم اخي انا فهمت الدالة الي حدرتك طرحتها وهي ممتازة
لاكن طلب الضوء يكون من جهة معينة

كود :
Public Shared Function Light(ByVal img As System.Drawing.Image, ByVal col As System.Drawing.Color, ByVal opacity As Single, Optional ByVal direction As Drawing2D.LinearGradientMode = Drawing2D.LinearGradientMode.ForwardDiagonal) As System.Drawing.Image
        Dim rectangle As Rectangle
        Dim image As New Bitmap(img.Width, img.Height)
        Using graphics As Graphics = graphics.FromImage(image)
            rectangle = New Rectangle(0, 0, img.Width, img.Height)
            Dim brush As New Drawing2D.LinearGradientBrush(rectangle, col, Color.Transparent, direction)
            graphics.FillRectangle(brush, rectangle)
        End Using
        Using graphics2 As Graphics = Graphics.FromImage(img)
            Dim imageAttr As New Imaging.ImageAttributes
            Dim newColorMatrix As Single()() = New Single()() {New Single() {2.0!, 0.0!, 0.0!, 0.0!, 0.0!}, New Single() {0.0!, 1.0!, 0.0!, 0.0!, 0.0!}, New Single() {0.0!, 0.0!, 1.0!, 0.0!, 0.0!}, New Single() {0.0!, 0.0!, 0.0!, opacity / 100, 0.0!}, New Single() {0.2!, 0.2!, 0.2!, 0.0!, 1.0!}}
            Dim matrix As New Imaging.ColorMatrix(newColorMatrix)
            imageAttr.SetColorMatrix(matrix, Imaging.ColorMatrixFlag.Default, Imaging.ColorAdjustType.Bitmap)
            rectangle = New Rectangle(0, 0, img.Width, img.Height)
            graphics2.DrawImage(image, rectangle, 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imageAttr)
        End Using
        Return img
    End Function
الرد }}}}
تم الشكر بواسطة: kslawy
#9
تمام 100 100 جزاك الله خيرا
كتير علينا ده واللهHeartHeart
الرد }}}}
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة لقص صورة في الpictureBox1 CLARO 7 113 منذ 4 ساعة مضت
آخر رد: CLARO
  حفظ صورة الموظف في جدول مستقل أبووسم 3 184 18-11-16, 03:56 PM
آخر رد: أبووسم
  اظهار او اخفاء الرسائل للمستخدم العواد الصغير 11 156 09-11-16, 06:43 PM
آخر رد: العواد الصغير
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 110 09-11-16, 12:32 PM
آخر رد: نوريس
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 274 05-11-16, 12:00 PM
آخر رد: Adrees
  ;كيف اضع صورة لخلفية ريتش بوكس samira20 3 132 27-10-16, 07:22 AM
آخر رد: samira20
Information [VB.NET] طريقة عمل مربع حوار يعمل على ادخال صورة إلى قاعدة البيانات thevirus 1 75 24-10-16, 01:49 PM
آخر رد: Adrees
Smile [VB.NET] كيف يمكن عمل كشف حساب بشكل تفصيلي مرفق صورة توضيحية MH mekawy 0 109 16-10-16, 07:12 PM
آخر رد: MH mekawy
  هام وعاجل .... كيف يمكن عمل كشف حساب بشكل تفصيلي مرفق صورة توضيحية MH mekawy 0 137 16-10-16, 04:40 PM
آخر رد: MH mekawy
  [سؤال] عرض صورة في كريستال ريبورت crystal repoet اليوم مبتدئة وغداً محترفة 2 120 07-10-16, 06:59 AM
آخر رد: اليوم مبتدئة وغداً محترفة

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


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