[RESOLVED] Image to Buffer
Hello all, I'm making an application when once the image is changed from (picImage), which is a PictureBox; the Picture from picImage is saved into Buffered Memory (stdPicture in my choice) to be used as Checkpoints incase the user decides to relay back to another one.
Here is parts of my code so far:
Code:
Private History(255) As New StdPicture
Private CurrentHistoryNumber As Long 'what history point we are at.
Function MakeHistoryPoint(ByVal HistoryReason As String)
If CurrentHistoryNumber& < 255 Then
Set History(CurrentHistoryNumber&) = retrieveImage(picImage)
CurrentHistoryNumber& = CurrentHistoryNumber& + 1
lstHistory.AddItem HistoryReason$
End If
End Function
Private Function retrieveImage(ByVal SrcDC As PictureBox) As StdPicture
Dim tempPicture As New StdPicture
Call BitBlt(testOBJ.Handle, 0, 0, SrcDC.Width, SrcDC.Height, SrcDC.hDC, 0, 0, vbSrcCopy)
Set retrieveImage = tempPicture
End Function
My code works and all, but it when I try to retrieve the image from the History it does not show anything, this is the code I use to show the image into another picturebox (picSnapshot):
Code:
Call BitBlt(picSnapshot.hDC, 0, 0, History(lstHistory.ListIndex).Width, _
History(lstHistory.ListIndex).Height, History(lstHistory.ListIndex), 0, 0, vbSrcCopy)
I do notice that History(?) whatever's value is always at 0, meaning no picture was copied or something...does anyone have any clue what i'm doing wrong? Thanks,
RsT