Прозрачность

[Мамонт]

Подскажите как сделать чтобы рисунок на форме был прозрачный!

[Amed]

Поищи по форуму на тему TransparentBlt.

[Мамонт]

искал! То что надо не нашол!

[Sirik]

если полностью прозрачный, но зачем его вобще рисовать

а если серъёзно, то вот пример:

[kif]

вырежи его

[Amed]

А что значит - прозрачный? С заданным коэффициентом (1-100%)?

[Мамонт]

не неполностью! надо чтобы задний фон смотрелся хорошо!

[Мамонт]

ну например на прямоугольном сером рисунке нарисован человек! инадо чтобы серого фона небыло!

[Amed]

TransparentBlt

[Мамонт]

А поподробнее! Я ваще с этим первый раз столкнулся!

[Amed]

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

'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 TransparentBlt Lib "msimg32.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 1999
    '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
    TransparentBlt Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, vbWhite
End Sub

[GSerg]

Так.
Почему используем TransparentBlt? В ней же баг, уже выясняли

Кроме того, человеку нужно AlphaBlend

[Amed]

Тогда

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

'This project requires two picture boxes
'Both picture boxes should contain a picture
Const AC_SRC_OVER = &H00
Private Type BLENDFUNCTION
  BlendOp As Byte
  BlendFlags As Byte
  SourceConstantAlpha As Byte
  AlphaFormat As Byte
End Type
Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim BF As BLENDFUNCTION, lBF As Long
    'Set the graphics mode to persistent
    Picture1.AutoRedraw = True
    Picture2.AutoRedraw = True
    'API uses pixels
    Picture1.ScaleMode = vbPixels
    Picture2.ScaleMode = vbPixels
    'set the parameters
    With BF
        .BlendOp = AC_SRC_OVER
        .BlendFlags = 0
        .SourceConstantAlpha = 128
        .AlphaFormat = 0
    End With
    'copy the BLENDFUNCTION-structure to a Long
    RtlMoveMemory lBF, BF, 4
    'AlphaBlend the picture from Picture1 over the picture of Picture2
    AlphaBlend Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, lBF
End Sub


[Мамонт]

ребята вы меня не поняли! Мне не нужно наложение одного рисунка на другой с прозрачностью рисунка мне нужно чтобы например чёрный квадрат где внутри него белый круг исчез и остался только круг!

[GSerg]

А тогда-таки TransparentBlt, но не системная, а своя
Я выкладывал тут где-то

[Мамонт]

Ничаго ненахожу...