BitBlt and Memory

[Technocrat]

I have this problem that I am sure is cause by this

Dim SButtons As Long
Dim SkinTop As Long
Dim SBody As Long
Dim hBitmap As BITMAP
Dim ButtonsBitmap As BITMAP

SButtons = CreateCompatibleDC(0)
SkinTop = CreateCompatibleDC(0)
SBody = CreateCompatibleDC(0)

imgTemp = LoadImage(ByVal 0&, bmpName, 0, 0, 0, LR_LOADFROMFILE Or LR_CREATEDDIBSECTION)
SelectObject SBody, imgTemp
GetObjectAPI imgTemp, Len(hBitmap), hBitmap
DeleteObject imgTemp
BitBlt frmTechAmp.picBody.hdc, 0, 0, me.picBody.ScaleWidth, me.picBody.ScaleHeight, SBody, 0, 0, vbSrcCopy

DeleteDC SButtons
DeleteDC SkinTop
DeleteDC SBody

It doesn't happen right away but after a bunch of compiles VB will give me an out of memory error. Any ideas why? Or is there away to be sure that while unloading that everything that is taking up memory gets released?

[Sam Finch]

Dim SButtons As Long
Dim SkinTop As Long
Dim SBody As Long
Dim hBitmap As BITMAP
Dim ButtonsBitmap As BITMAP

SButtons = CreateCompatibleDC(0)
SkinTop = CreateCompatibleDC(0)
SBody = CreateCompatibleDC(0)

imgTemp = LoadImage(ByVal 0&, bmpName, 0, 0, 0, LR_LOADFROMFILE Or LR_CREATEDDIBSECTION)
SelectObject SBody, imgTemp
GetObjectAPI imgTemp, Len(hBitmap), hBitmap
DeleteObject imgTemp
BitBlt frmTechAmp.picBody.hdc, 0, 0, me.picBody.ScaleWidth, me.picBody.ScaleHeight, SBody, 0, 0, vbSrcCopy

DeleteDC SButtons
DeleteDC SkinTop
DeleteDC SBody

when you use select object it replaces the object attatched to the DC with the new object and returns the old object's handle

change this to

Dim SButtons As Long
Dim SkinTop As Long
Dim SBody As Long
Dim hBitmap As BITMAP
Dim ButtonsBitmap As BITMAP

SButtons = CreateCompatibleDC(0)
SkinTop = CreateCompatibleDC(0)
SBody = CreateCompatibleDC(0)

imgTemp = LoadImage(ByVal 0&, bmpName, 0, 0, 0, LR_LOADFROMFILE Or LR_CREATEDDIBSECTION)
DeleteObject SelectObject(SBody, imgTemp)
GetObjectAPI imgTemp, Len(hBitmap), hBitmap
DeleteObject imgTemp
BitBlt frmTechAmp.picBody.hdc, 0, 0, me.picBody.ScaleWidth, me.picBody.ScaleHeight, SBody, 0, 0, vbSrcCopy

DeleteDC SButtons
DeleteDC SkinTop
DeleteDC SBody

and that should solve your problem

[Technocrat]

That seems to have worked thanks