مشكلة تحميل الصورة - نسخة قابلة للطباعة

كود :

Dim bm As New Bitmap(Prd_Photos.Image)

        Dim x As Int32 = 70

        Dim y As Int32 = 64

        Dim width As Integer = Val(x)

        Dim height As Integer = Val(y)



        Dim thumb As New Bitmap(width, height)



        Dim g As Graphics = Graphics.FromImage(thumb)

        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

        g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, _

         bm.Height), GraphicsUnit.Pixel)

        g.Dispose()

        If IO.Directory.Exists(Application.StartupPath & "\Pics") = True Then

            thumb.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG", _

       System.Drawing.Imaging.ImageFormat.Png)

            Prd_Photos.Load(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")

            g.Dispose()

            bm.Dispose()

            thumb.Dispose()

        Else

            IO.Directory.CreateDirectory(Application.StartupPath & "\Pics")

            thumb.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG", _

            System.Drawing.Imaging.ImageFormat.Png)

            Prd_Photos.Load(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")



        End If

        bm.Dispose()

        thumb.Dispose()

        g.Dispose()

كود :

               Dim MS As New MemoryStream



                Prd_Photos.Image.Save(MS, Prd_Photos.Image.RawFormat)

                Dim Pic() As Byte = MS.ToArray

                Parma(8) = New SqlParameter("@Prd_Photos", SqlDbType.Image) With {.Value = Pic}

كود :

An unhandled exception of type 'System.Runtime.InteropServices.ExternalException' occurred in System.Drawing.dll



Additional information: حدث خطأ عام في +GDI.

كود :

IO.Directory.CreateDirectory(Application.StartupPath & "\Pics")

كود :

thumb.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG", _

            System.Drawing.Imaging.ImageFormat.Png)

كود :

 Private Sub BtnBrowse_Click(sender As Object, e As EventArgs) Handles BtnBrowse.Click

        'Try

        ChoosePitcerBox(Prd_Photos, Code_Prd.Text)

        Dim bm As New Bitmap(Prd_Photos.Image)

        Dim x As Int32 = 70

        Dim y As Int32 = 64

        Dim width As Integer = Val(x)

        Dim height As Integer = Val(y)



        Dim ID As String = Guid.NewGuid.ToString





        Dim thumb As New Bitmap(width, height)



        Dim g As Graphics = Graphics.FromImage(thumb)

        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

        g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width,

         bm.Height), GraphicsUnit.Pixel)

        g.Dispose()

        If IO.Directory.Exists(Application.StartupPath & "\Pics") = True Then

            thumb.Save(Application.StartupPath & "\Pics\" & ID + ".PNG",

       System.Drawing.Imaging.ImageFormat.Png)

            Prd_Photos.Load(Application.StartupPath & "\Pics\" & ID + ".PNG")

            g.Dispose()

            bm.Dispose()

            thumb.Dispose()

        Else

            IO.Directory.CreateDirectory(Application.StartupPath & "\Pics")

            thumb.Save(Application.StartupPath & "\Pics\" & ID + ".PNG",

            System.Drawing.Imaging.ImageFormat.Png)

            Prd_Photos.Load(Application.StartupPath & "\Pices\" & ID + ".PNG")



        End If

        bm.Dispose()

        thumb.Dispose()

        g.Dispose()

        'Catch ex As Exception

        '    MessageBox.Show(ex.Message.ToString())

        'End Try



    End Sub