[RESOLVED] TransparentBlt - Does nothing

[jmsrickland]

I'm using Windows XP/SP2 - VB6.0

On a Form I have two Pictureboxes, Picture1 and Picture2. The Form, Picture1, and Picture2 have their ScaleMode = vbPixels. Picture1 and Picture2 have their AutoRedraw = True. Picture1 has a multi-colored bitmap (red, blue, yellow, green, cyan, magenta) of circles. Picture2 has no bitmap.

The code line I run:

 TransparentBlt _
  Picture2.hdc, _
  0, 0, _
  Picture1.ScaleWidth, _
  Picture1.ScaleHeight, _
  Picture1.hdc, _
  0, 0, _
  Picture1.ScaleWidth, _
  Picture1.ScaleHeight, _
  RGB(255, 0, 0)

Picture2 is not changed.

Am I using the function incorrectly or doe it simply not work?

[dilettante]

Should work on Windows 98 and later, and in some cases even on Win95 and NT 4.0. I use it for a few things and it always seems to work fine here.

Ahh, you said you have AutoRedraw on. Turn it off in the destination.

[jmsrickland]

Yes, that made it work. I can see that the function needs to be executed in the Picture2.Paint() event in order to retain the results in case of things getting in the way.

Thanks, dilettante