Вставление одной картинки в другую

[Unstat]

Привет всем!!!
У меня такой вопрос как можно вставить одну картинку(так чтобы один цвет у нее был как прозрачный) в другую. Зарание благодарен

[GM]

Что имеется в смысле вставить?
Если нарисовать то:

Код: Выделить всё

Private Declare Function GdiTransparentBlt Lib "gdi32.dll" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal crTransparent As Long) As Boolean

[/code]

[Unstat]

Как ею пользоваться то чото не понял я

[GM]

Вот из API-Guide:

Код: Выделить всё

'This project needs 2 pictureboxes
'Picturebox1 must contain a picture with a lot of white pixels (we're going to use white as transparent color)
Private Declare Function GdiTransparentBlt Lib "gdi32.dll" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal crTransparent As Long) As Boolean
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Picture1.AutoSize = True
    'API uses pixels
    Picture1.ScaleMode = vbPixels
    Picture2.ScaleMode = vbPixels
End Sub
Private Sub Picture2_Paint()
    'If we don't call DoEvents first, our transparent image will be completely wrong
    DoEvents
    GdiTransparentBlt Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, vbWhite
End Sub


[A.A.Z.]

Можно вопрос не в тему: в чем отличие GdiTransparentBlt из gdi32.dll и TransparentBlt из msimg32.dll?

[GM]

Первое что попалось в Api guide

[alibek]

A.A.Z., gdi32.dll как-то роднее Зато msimg32.dll будет работать и в Win95/98 с установленными сервис-паками

[A.A.Z.]

А, т.е. совместимость с ОС? Понятно.