surface properties

I use the following code to create a surface from a file:

Code:

---

Public imgDesc As DDSURFACEDESC2  'image surface description

'in a sub
imgDesc.lFlags = DDSD_CAPS
imgDesc.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
Set imgBuffer = DDraw.CreateSurfaceFromFile(FileName, imgDesc)

'change the size of the picture box so it is the same size as the picture
picMain.Width = picMain.ScaleX(imgDesc.lWidth, vbPixels, vbTwips)
picMain.Height = picMain.ScaleY(imgDesc.lHeight, vbPixels, vbTwips)

'then the blitting is done

---

The code works fine the first time round. However when I run it the second time in the life time of the program (with a different file), the dimensions of imgDesc (lwidth and lheight) don't seem to change at all...they remain in the same dimensions as the first picture loaded. I'm probably missing something to reset the surface or something similar, but I have no idea what it is!

imgdesc should be nulled before next use, simplest would be to declare it procedure scope in the sub where the surface is loaded.

Do you mean just imgDesc = Null?

I'm getting this when it runs:

Quote:

---

Only UDTs defined in public object modules can be coerced to or from a variant or passed to late-bound functions

---

If it means anything, the code I use is in a class module. Declaring it in one procedure isn't really an option in my case. :(

No i meant that you should have a blank UDT, all values 0 that is. You can do this by declaring an unused ddsurfacedesc2 and assign imgDesc it.
Null is a value you can only assign variants.

cool stuff, thanks kedaman! :cool: