System.Runtime.InteropServices.ExternalException generic error in GDI+ help wanted.

[j-a-oliver]

Hi ALL,

In trying to answer the post by forum member makko in this thread.>>

http://www.vbforums.com/showthread.p...89#post3265789

I have the following code be I keep get the above EXCEPTION, would low hard-drive disc space cause this problem?

Would I need to add images in the PAINT event as well, if so how?
I am trying to use the

My.Computer.FileSystem.SpecialDirectories.Temp

directory too as I feel adding an image is a singular event, it does not need to happen continuously.

Any help for makko and I would be much appreciated. :-)

Public Class Form1

Friend WithEvents PictureBox1 As New PictureBox
Friend WithEvents btnAdd As New Button
Friend WithEvents btnSave As New Button
Friend WithEvents ofd As New OpenFileDialog

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.WindowState = FormWindowState.Maximized
PictureBox1.Location = New Point(5, 50)
PictureBox1.Size = New Size(2110, 600)
Me.Controls.Add(PictureBox1)
btnAdd.Location = New Point(5, 5)
btnAdd.Size = New Size(150, 30)
btnAdd.Text = "Add Image"
Me.Controls.Add(btnAdd)
btnSave.Location = New Point(btnAdd.Width + 25, 5)
btnSave.Size = New Size(150, 30)
btnSave.Text = "Save Picture"
Me.Controls.Add(btnSave)

Dim newBitmap As System.Drawing.Bitmap = New Bitmap(2110, 600, Imaging.PixelFormat.Format32bppRgb)
Dim g As System.Drawing.Graphics = Graphics.FromImage(newBitmap)
g.FillRectangle(New SolidBrush(Color.White), New Rectangle(0, 0, 2110, 600))

Dim myPath As String = My.Computer.FileSystem.SpecialDirectories.MyPictures
ofd.InitialDirectory = myPath
ofd.Filter = "Jpeg files|*.jpg;*.jpeg|Bitmap files|*.bmp|PNG files|*.png|All picture files|*.jpg;*.jpeg;*.bmp;*.png"

'newBitmap.Save(myPath & "/aaa.jpg")
'PictureBox1.Image = Image.FromFile(myPath & "/aaa.jpg")

End Sub

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



End Sub

Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click

Static imageWidth As Integer
Dim img As Image
Try
ofd.ShowDialog()
img = Image.FromFile(ofd.FileName)
PictureBox1.CreateGraphics.DrawImage(img, imageWidth, 0)
'Save to the temporary folder.>>
img.Save(My.Computer.FileSystem.SpecialDirectories.Temp & "/tempImage.jpg")
'Retrieve the temporary image.>>
PictureBox1.Image = Image.FromFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/tempImage.jpg")
imageWidth += img.Width
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

End Sub

Private Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click

Dim sfd As New SaveFileDialog
Try
sfd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures
sfd.Filter = "Jpeg files|*.jpg;*.jpeg|Bitmap files|*.bmp|PNG files|*.png|All picture files|*.jpg;*.jpeg;*.bmp;*.png"
sfd.ShowDialog()
Dim img As Image
img = PictureBox1.Image
Me.Text = sfd.FileName
img.Save(sfd.FileName)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

End Sub
End Class

Regards,

John