[resolved] Help: StretchBlt results in empty .Picture property

[BeerBaron]

Private Sub Command2_Click()
 
 z = 2
 pic2.Height = pic1.Height / z
 pic2.Width = pic1.Width / z
 
 
For x = 0 To pic2.Width
 For y = 0 To pic2.Height
  
 StretchBlt pic2.hdc, x, y, z, z, pic1.hdc, x * z, y * z, z, z, &HCC0020
 
 Next y
Next x
 
 pic2.Refresh
 Clipboard.SetData pic2.Picture
 
End Sub

What the code above does is first resize the picturebox pic2 to be half the size of pic1, then copy the picture from pic1 to pic2 at half size. I use the for next loop rather than one StretchBlt because it yields better looking results.

My problem is when I want to copy the resulting picture to the clipboard pic2.Picture = 0. I don't think I full understand what StretchBlt is doing with the picture and/or video memory. Is there a way I can copy the result in pic2 to the clipboard.

any suggestions?

thanks

[Microbasic]

Private Sub Command2_Click()
    z = 2
    pic2.Height = pic1.Height / z
    pic2.Width = pic1.Width / z
    For x = 0 To pic2.Width
        For y = 0 To pic2.Height
            StretchBlt pic2.hdc, x, y, z, z, pic1.hdc, x * z, y * z, z, z, &HCC0020
        Next y
    Next x
    pic2.Refresh
    Clipboard.SetData pic2.[b]Image[/b]
End Sub

[BeerBaron]

son of a ***** it worked! thanks a lot!

so what is the difference between the .picture and the .image properties?

[Microbasic]

Picture specifies the Picture FILE currently under display. It only specifies the picture loaded from a file and doesn't give you anything painted on the picturebox while Image does.

BTW, you really need to cut down on the swearing, especially if you are helped. Many people on the forums would get annoyed at your attitude and leave.