[RESOLVED] Copying image

[greythej]

i wondered if it was possible to copy an image in code each time it was clicked on for example.

eg, the user clicks on a picture of a face, the code copies the image and positions somewhere on the form (unimportant where).

basically i need to be able to copy an image an infinite number of times if needed, so i can't just create another image and make it visible when the first image is clicked.

Thanks for any reply

GTJ

[Disiance]

Name a form "Form1" and set it's ScaleMode to Pixels (#3).

Add a picture box, name it "Picture1".

Option Explicit
 
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
 
Private Sub Picture1_Click()
    Randomize Timer
    Dim NewX As Long, NewY As Long
    NewX = Int(Rnd * Form1.ScaleWidth)
    NewY = Int(Rnd * Form1.ScaleHeight)
    BitBlt Form1.hDC, NewX, NewY, Picture1.Width, Picture1.Height, Picture1.hDC, 0, 0, SRCCOPY
End Sub

[greythej]

when i do this code i just get white lines in this shape:

_/ (the slash is vertical in the program i just couldn't type a vertical line!)

any help?

cheers

GTJ

[Disiance]

can you paste the full code you are using?

[greythej]

urrr, i just copied what you wrote in post #2

[Disiance]

Download the attatched project and see if that works for you.

[greythej]

do i set the position of the picture using the 'newx' and 'newy' variables?

[Disiance]

That is correct.