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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة عمود من نوع image ل bound datagridview noway 1 68 17-11-16, 12:08 PM
آخر رد: Genius Live
  [VB.NET] مشكلة فى Dim g As Graphics رسم نص وصور من اداة ريتش تكست بوكس الماجيك مسعد 24 574 24-10-16, 08:06 AM
آخر رد: الماجيك مسعد
  [سؤال] لا استطيع استورد المرجع System.IO.Compression.FileSystem medoddd 2 85 10-09-16, 12:28 AM
آخر رد: medoddd
  [سؤال] (How To Solve (System.out of memory Exception anasmoner 1 61 05-09-16, 01:55 PM
آخر رد: Adrees
  [VB.NET] ممكن مساعدة في فهم هذا الكود Graphics sniperjawadino 6 233 18-08-16, 01:10 PM
آخر رد: sniperjawadino
  [كود] Read Text From image أسامة 0 326 16-01-15, 04:35 AM
آخر رد: أسامة
  [سؤال] عندى مشكلة مع System.Net.Dns alims 0 298 30-10-14, 08:39 PM
آخر رد: alims
  [سؤال] مجال الاسماء system.Net mohmedhosen 0 302 07-04-14, 10:07 PM
آخر رد: mohmedhosen
  تعطيل/تفعيل system restore في الوندز Mr.ILI 1 663 22-02-14, 06:46 PM
آخر رد: Genius Live
  Image viewer 0.1 مساعده ه eng.khalidvb 3 500 07-07-13, 09:46 PM
آخر رد: kslawy

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


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