تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف أحول System.Drawing.Graphics إلى System.Drawing.Image ؟
#1
السلام عليكم و رحمة الله و بركاته
الس[SIZE=4]ؤال واضح من العنوان، كيف أ[SIZE=4]حول System.Drawing.Graphics إلى System.Drawing.Image ؟[/SIZE]

أكثر توضيحاً:
كيف أحول الكائن الناتج عن Me.CreateGraphics() إلى System.Drawing.Image
أنا أعرف الكود:
كود :
[SIZE=4][SIZE=4]Dim bmp As New Bitmap(50, 50)
Di[SIZE=4]m gfcs As Graphics = Graphics.FromImage(bmp)
gfcs.DrawImage([SomeImageObject][SIZE=4])[/SIZE][/SIZE]
[/SIZE][/SIZE][/b][/SIZE][/COLOR][b]
[COLOR=#000000]
لكن هذ[SIZE=4]ا لرسم صورة على ا[SIZE=4]لـBitmap bmp
[SIZE=4]و أعرف أيضاً الكود:
كود :
Dim bmp As[SIZE=4] New Bitmap(50, 50)[/SIZE]
Me.DrawTo[SIZE=4]Bitmap(bmp, New Rectangle(0, 0, 50, 50)
[/SIZE]
[/SIZE]لكن هذا يرسم الـForm بالـControls التي فوقها

فهل من حل لرسم الـForm بالتأثيرات التي عليها [SIZE=4]و بدون [SIZE=4]رسم الـControls التي عليها[/SIZE][/SIZE][/SIZE][/SIZE]
على كائن من ن[SIZE=4]وع System.Drawing.Image ؟[/SIZE]
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

لتحويل كائن الBitmap الى كائن الImage استخدم هذا الكود:

Dim img As Image
Dim bmp As Bitmap
img = bmp
الرد }}}
تم الشكر بواسطة:
#3
كود :
Dim bound As Rectangle              
        Dim screenshot As Bitmap
        Dim gravic As Graphics

        bound = Screen.PrimaryScreen.Bounds
        screenshot = New Bitmap(bound.Width, bound.Height, System.Drawing.Imaging.PixelFormat.Format64bppArgb)
        gravic = gravic.FromImage(screenshot)
        gravic.CopyFromScreen(bound.X, bound.Y, 0, 0, bound.Size, CopyPixelOperation.SourceCopy)

        PictureBox1.Image = screenshot
الرد }}}
تم الشكر بواسطة:
#4
sajad كتب :السلام عليكم

لتحويل كائن الBitmap الى كائن الImage استخدم هذا الكود:

Dim img As Image
Dim bmp As Bitmap
img = bmp
عفواً أخي، لم أرد تحويل Bitmap إلى Image
SaLoOoMX كتب :
كود :
Dim bound As Rectangle              
        Dim screenshot As Bitmap
        Dim gravic As Graphics

        bound = Screen.PrimaryScreen.Bounds
        screenshot = New Bitmap(bound.Width, bound.Height, System.Drawing.Imaging.PixelFormat.Format64bppArgb)
        gravic = gravic.FromImage(screenshot)
        gravic.CopyFromScreen(bound.X, bound.Y, 0, 0, bound.Size, CopyPixelOperation.SourceCopy)

        PictureBox1.Image = screenshot
عفواً أخي، لم أرد تصوير الشاشة
الرد }}}
تم الشكر بواسطة:
#5
أخي الكريم
جرب هذه الطريقة
فهي أولا ستلغي الـ CONTROLS من أعلى الإطار
ثم يخفي الأدوات الموجودة على الفورم
وبعدها يقوم بأخذ صورة للفورم ثم يعيد كل شيء كما كان

كود :
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        For Each A In Me.Controls
            A.visible = False
        Next
        Dim bmp As New Bitmap(Me.Size.Width, Me.Size.Height)
        Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Size.Width, Me.Size.Height))
        PictureBox1.Image = bmp
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        For Each A In Me.Controls
            A.visible = True
        Next


أرجو لك التوفيق
الرد }}}
تم الشكر بواسطة:
#6
sooriaty03 كتب :أخي الكريم
جرب هذه الطريقة
فهي أولا ستلغي الـ CONTROLS من أعلى الإطار
ثم يخفي الأدوات الموجودة على الفورم
وبعدها يقوم بأخذ صورة للفورم ثم يعيد كل شيء كما كان

كود :
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        For Each A In Me.Controls
            A.visible = False
        Next
        Dim bmp As New Bitmap(Me.Size.Width, Me.Size.Height)
        Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Size.Width, Me.Size.Height))
        PictureBox1.Image = bmp
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        For Each A In Me.Controls
            A.visible = True
        Next


أرجو لك التوفيق

شكراً لك أخي، لكن ماذا لو أردت تحويل كائن الـGraphics الناتج عن Me.CreateGraphics() إلى صورة؟
الرد }}}
تم الشكر بواسطة:
#7
سؤلك غامض اخي
هل تقصد الكائنات مثل المربع والمثلث المنشاء تريد تحفظة على اساس صورة ولكن ليس الى ملف بل الى البرنامج وضح لنا اكثر
الرد }}}
تم الشكر بواسطة:
#8
كود :
Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        ' تعريف الصورة
        Dim bmp As New Bitmap(150, 150)

        ' تعريف متغيرات للجرافكس
        Using gr As Graphics = Graphics.FromImage(bmp)

            Dim rect As Rectangle = New Rectangle(0, 0, 150, 150)
            Dim lgb As New LinearGradientBrush(rect, Color.Blue, Color.Azure, 90)
            ' إرسم شيئا علي الصورة
            gr.FillRectangle(lgb, rect)
        End Using

        'إرسم الصورة علي سطح الفورم
        Using g As Graphics = Me.CreateGraphics
            g.DrawImage(bmp, 10, 10)
        End Using

    End Sub

End Class
الرد }}}
تم الشكر بواسطة:
#9
silverlight كتب :
كود :
Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        ' تعريف الصورة
        Dim bmp As New Bitmap(150, 150)

        ' تعريف متغيرات للجرافكس
        Using gr As Graphics = Graphics.FromImage(bmp)

            Dim rect As Rectangle = New Rectangle(0, 0, 150, 150)
            Dim lgb As New LinearGradientBrush(rect, Color.Blue, Color.Azure, 90)
            ' إرسم شيئا علي الصورة
            gr.FillRectangle(lgb, rect)
        End Using

        'إرسم الصورة علي سطح الفورم
        Using g As Graphics = Me.CreateGraphics
            g.DrawImage(bmp, 10, 10)
        End Using

    End Sub

End Class

شكراً لك أخي، و لكل من حاول مساعدتي Smile
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] تابع_ الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 3 1,769 21-08-21, 06:32 PM
آخر رد: mmaalmesry
Star [SQL] الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 7 2,384 14-08-21, 10:05 AM
آخر رد: mmaalmesry
  طلب المساعدة لحل مشكلة هذه الرسالة System Argument Exception abutalal2020 1 1,060 18-06-21, 10:42 AM
آخر رد: alfaiz678
  [كود] Imports System.Data.OleDb Public Class Form1 Public con As New OleDbConnection("P رضوان الجماعي 1 974 27-03-21, 04:56 AM
آخر رد: علي بنيان
  حفظ الصورة بخصائص الاثنين Backgroudimage و Image sherf 1 1,056 01-12-20, 03:50 AM
آخر رد: Anas Mahmoud
  [سؤال] كيفيه استخدام مكتبه system.speech منه 1 1,264 25-08-20, 11:01 AM
آخر رد: منه
  من اين احصل على ملف system.management.dll بسام محمدغانم 1 1,245 18-02-20, 04:21 AM
آخر رد: kiki
  سؤال في Windows Image Acquisition aftfm 3 2,180 08-12-19, 02:15 AM
آخر رد: محمد كريّم
  [VB.NET] System.InvalidCastException amrmosa673@gmail.com 12 3,555 04-12-19, 12:00 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] بخصوص مشكله System.NullReferenceException dubai.eig 2 2,087 05-09-19, 05:38 PM
آخر رد: dametucorazon

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


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