blitting into a DC

[cyborg]

im having some problems....is it possible do do this?:

Dim PicCount As Single
 
Private Type SavedPics
    DC As Long
End Type
 
Dim SavedPictures(10) As SavedPics
 
Private Sub Command1_Click()
PicCount = PicCount + 1
BitBlt SavedPictures(PicCount).DC, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture2.hdc, 0, 0, vbSrcCopy
End Sub
 
Private Sub Command2_Click()
BitBlt Picture3.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, SavedPictures(Text1).DC, 0, 0, vbSrcCopy
Picture3.Refresh
End Sub

[joey o.]

Why are you not using hdc for SavedPictures(PicCount).DC? I think you might be trying to save to memory? If so create an array of memory dc objects and use those. Should be lots of examples here. Otherwise you can't assign a dc to something that isn't an object. SavedPics appears to be user defined and you must define it somewhere, right? Post more info.

[cyborg]

yes...im trying to save it to memory...
why cant i assign a dc to something that isn't an object?
i have no idea how to store this otherwise...

[Shell]

Heya!

You can do this, but you'll have to create those dc's first. If you use the function below and store the result in your array you can use them. But be sure to delete the dc's when the program closes using the DeleteDc api.

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Public Function GenerateDc(iWidth As Variant, iHeight As Variant) As Long
Dim MyDc As Long
Dim hBitMap As Long

MyDc = CreateCompatibleDC(Me.hdc)
hBitMap = CreateCompatibleBitmap(Me.hdc, iWidth, iHeight)

SelectObject MyDc, hBitMap

GenerateDc = MyDc
End Function

-Shell-

[cyborg]

ok! thanks!

[cyborg]

when i create the first dc, it gets *****ed up!
whats wrong with this code?

[Electroman]

Add this line to the command1 click event.

BitBlt SavedPictures(PicCount - 1).DC, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture2.hdc, 0, 0, vbSrcCopy

[cyborg]

ok! thanks!

[joey o.]

Look up "deleting DC's". If you don't release your objects when done you will crash when you expend all your resources.