Storing images in memory

[fugigoose]

How would I load several bitmaps from file and store them in an array? What type of array would it be? I need to be able to bitblt them onto my form as i need to. I tried using an stdPicture array, but bitblt won't copy them.

 

[CCLINT]

Dim pic(5) As StdPicture

Set pic(0)= LoadPicture("C:\SomePicture.Bmp&quot

 

[CCLINT]

You could also use:

Dim pic(5) As Picture

 

[strongm]

Or, just to complete the set:

Dim pic(5) as IPicture

 

[Hypetia]

If you are using an array of StdPicture objects, then BitBlt won't work as it accepts two hDC arguments, both for source and destination.

You should use the [tt]PaintPicture[/tt] method of the form instead, which accepts a picture object as the argument and performs the BitBlt operation (infact the StretchBlt operation) on the form.

 

[strongm]

If you really want to use bitblt, then IPicture is probably the easiest starting point out of the the three. eg:
[tt]
Dim wombat As IPicture
Dim hDC As Long

Set wombat = LoadPicture("c:\demo.bmp&quot
wombat.SelectPicture Form1.hDC, hDC, 0& ' just gives wombat an hDC. Form needs to be autoredraw to stop VB eating the picture...
BitBlt Picture1.hDC, 0, 0, 100, 100, wombat.CurDC, -10, -10, SRCCOPY

 

[CCLINT]

Sorry, I was thinking of something simplier/different (below) and only read the first sentence:
[blue]

    Dim pic(5) As StdPicture
    Dim iOrigScaleMode  As Integer
    Me.AutoRedraw = True

    iOrigScaleMode = Me.ScaleMode
    Me.ScaleMode = vbPixels
    Set pic(0) = LoadPicture("H:\Graphics\MyPict.bmp")

    pic(0).Render Me.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, pic(0).Height, pic(0).Width, -pic(0).Height, 0
    
    Me.ScaleMode = iOrigScaleMode