Create a transparant bitmap

[edderic]

Ho create i a transparant bitmap ?

example : two pictureboxs and the picturebox2 make transparant with picturebox1

Eric De Decker
vbg.be@vbgroup.nl

License And Copy Protection AxtiveX.

Download Demo version on my Site:

http://www.createsoftware2000.com

 

[snyderj]

Transparency is not supported by bitmaps (though I swear I've seen one before). You could use GIF format though.

A simple product such as Microsoft Photo Editor allows you to add transparancy to a particular color and save it as a GIF. Most all major photo and graphic applications support transparency.

 

[Alt255]

Here are a couple of links:

http://support.microsoft.com/support/kb/articles/Q94/9/61.asp

http://www.mvps.org/vbnet/code/bitmap/transparent.htm

Alt255@Vorpalcom.Intranets.com
​

 

[edderic]

Alt255

The first Link is not 32 bits programming of Api's

The Link 2 is Transparent with a Form background and not with a picturebox

Eric
Eric De Decker
vbg.be@vbgroup.nl

License And Copy Protection AxtiveX.

Download Demo version on my Site:

http://www.createsoftware2000.com

 

[tsa]

Just wanted to mention that you can mask a bitmap, searching on any site (ie planetsourcecode.com) will give you an example program of this. The mask requires what you want transparent and what not based on black and white values.

 

[Alt255]

Sorry about that Eric. I shouldn't have posted the links without trying the code.

Alt255@Vorpalcom.Intranets.com
​

 

[edderic]

No problems Alt255

The answer to do it :

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

Const cWidth = 361 'Sprite width
Const cHeight = 416 'Sprite height
Const cMidX = 181 'Central horizontal point of sprite
Const cMidY = 233 'Cebtral vertical point of sprite

Private Sub PicDest_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'If Working Then Exit Sub 'Prevent multiple-redraws causing stack overflows

'Working = True
With PicDest
.Cls 'Clear old image and draw new one
PicDest.PaintPicture PicSrce, X - cMidX, Y - cMidY, cWidth, cHeight, , , , , vbSrcAnd
.Refresh
End With
'Working = False
End Sub

Eric De Decker
vbg.be@vbgroup.nl

License And Copy Protection AxtiveX.

Download Demo version on my Site:

http://www.createsoftware2000.com