المساعده في الخطاء out of memory - نسخة قابلة للطباعة

PHP كود :

   Private ReadOnly Property Images As IEnumerable(Of Bitmap)
        Get
            Dim result As IEnumerable(Of Bitmap) = Nothing
            If result Is Nothing Then
                Dim images As List(Of Bitmap) = New List(Of Bitmap)()
                images.Add(My.Resources.minimize_white_32) '0
                images.Add(My.Resources.server_connection_blue_64) ' 1

                result = images.ToList
            End If
            Return result
        End Get
    End Property

PHP كود :

   Private Sub SetPicture(ByVal imgSrc As Bitmap, ByRef target As PictureBox)
        Using imgDest As Bitmap = New Bitmap(target.ClientSize.Width, target.ClientSize.Height)
            Dim source_aspect, dest_aspect, k_aspect, K As Double
            source_aspect = imgSrc.Width / imgSrc.Height
            dest_aspect = imgDest.Width / imgSrc.Height
            k_aspect = dest_aspect / source_aspect
            If (k_aspect > 1) Then
                K = imgSrc.Height / imgDest.Height
            Else
                K = imgSrc.Width / imgDest.Width
            End If
            Dim x_new, y_new, w_new, h_new As Integer
            w_new = CInt(imgSrc.Width / K)
            h_new = CInt(imgSrc.Height / K)
            x_new = CInt(imgDest.Width / 2 - w_new / 2)
            y_new = CInt(imgDest.Height / 2 - h_new / 2)
            Using g As Graphics = Graphics.FromImage(imgDest)
                g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                g.DrawImage(imgSrc, New Rectangle(x_new, y_new, w_new, h_new))
            End Using
            target.Image = imgDest

        End Using

    End Sub

PHP كود :

Imports System.Runtime.InteropServices

Public Class ImageBuffer
    Implements IDisposable

    Private _handle As IntPtr
    Private _source As Bitmap
    Private _valid As Integer

    Public Sub New(source As Bitmap)
        Me._source = source
        Me._valid = If(Not source Is Nothing, 1, 0)
        Me.Assign()
    End Sub

    Public ReadOnly Property Valid() As Boolean
        Get
            Return (Me._handle <> IntPtr.Zero) AndAlso (Not _valid)
        End Get
    End Property

    Public ReadOnly Property Handle As IntPtr
        Get
            Return Me._handle
        End Get
    End Property

    Public Sub Dispose()
        Me.Release()
        If Me._source IsNot Nothing Then
            Me._source.Dispose()
            Me._source = Nothing
        End If
    End Sub

    Private Sub Assign()
        If Me._valid Then
            Me.Assign(Me._source)
        End If
    End Sub

    Private Sub Assign(source As Bitmap)
        If source IsNot Nothing Then
            Me.Release()
            Me._handle = source.GetHbitmap
        End If
    End Sub

    Private Sub IDisposable_Dispose() Implements IDisposable.Dispose
        Me.Dispose()
    End Sub

    Private Sub Release()
        If Not _handle.Equals(IntPtr.Zero) Then
            Me._handle = New IntPtr(0)
            Marshal.FreeHGlobal(Me._handle)
        End If
    End Sub

End Class

PHP كود :

       Using buffer As ImageBuffer = New ImageBuffer(CType(My.Resources.dest, Bitmap))
            If buffer.Valid Then
                PictureBox1.Image = Image.FromHbitmap(buffer.Handle)
            End If
        End Using

PHP كود :

       Using buffer As ImageBuffer = New ImageBuffer(New Bitmap(".\dest.jpg"))
            If buffer.Valid Then
                PictureBox1.Image = Image.FromHbitmap(buffer.Handle)
            End If
        End Using