Problem using pictureboxes as buttons...

[RudiF]

Hi, I am using pictureboxes as buttons in VB .net. The main reason is to have a background image and when clicked on it changes pictures and when the mouse button is released the image is changed back to default image. My problem is each time the button is clicked it uses more and more memory after a couple of clicks - i do use "cleanup" code for the objects used. The code for loading my images is in an class.

 

Friend Sub LoadImageFromRes(ByVal ImageResName As String, ByVal DestCanvas As Object)

Dim tmpResBitmap As Bitmap 'Temp Bitmap from resourced

Dim tmpBitmap As New Bitmap(CInt(DestCanvas.Width), CInt(DestCanvas.Height)) 'Temp bitmap to draw to for stretching

Dim tmpGraphics As Graphics = Graphics.FromImage(tmpBitmap) 'Graphics obj used to stretch the resource bitmap

 

'Resource to load the bitmap from

Dim ResManager As New Resources.ResourceManager("NewProfile.Data", System.Reflection.Assembly.GetExecutingAssembly)

 

tmpResBitmap = ResManager.GetObject(ImageResName) 'Get the temp bitmap from the resource to paint with

 

tmpGraphics.DrawImage(tmpResBitmap, 0, 0, CInt(DestCanvas.Width), CInt(DestCanvas.Height)) 'Stretch the resource bitmap to the temp bitmap

 

DestCanvas.image = tmpBitmap 'Draw the temp bitmap to destination

 

'Objects Cleanup

tmpGraphics.Dispose()

tmpResBitmap = Nothing

tmpBitmap = Nothing

ResManager = Nothing

DestCanvas = Nothing

End Sub

 

The code is called from mouse down and up events. The bitmap is loaded from the resource. The destcanvas argument is a picturebox.

 

A object of the class is created then this sub is called and the the instance of this class is cleared.

[PlausiblyDamp]

Try changing the end of the routine to

'Objects Cleanup
tmpGraphics.Dispose()
tmpResBitmap.Dispose()
tmpBitmap.Dispose()

 

Calling dispose should free up the non-managed memory etc. used by the bitmap objects, setting them to nothing won't have any impact on the memory being freed so there is no need to include those lines.