Ir ao conteúdo
  • Cadastre-se

como usar a AlphaBlend() em Visual Basic 6?


Posts recomendados

como posso usar a AlphaBlend() em Visual Basic 6?

eu consigo usar a transparencia entre 0 e 255. mas estou com dificuldade sobre nao perder a cor de fundo, pois esta esta transparente.

alguem me pode ajudar?

 

Dim BF As Long
    BF = 128 * &H10000  'semi transparent ignoring bitmaps alpha channel
    BF = 255 * &H10000 Or USE_BITMAP_ALPHA 'fully opaque using bitmaps alpha channel

Dim AO As AlphaOptions
        With AO
            .AlphaOption = AC_SRC_OVER
            .AlphaFlags = 0
            .SourceConstantAlpha = 255
            .AlphaFormat = AC_SRC_ALPHA
        End With
        Dim AlphaPointer As Long
        RtlMoveMemory AlphaPointer, AO, 4
        AlphaBlend DestinationHDC, 0, 0, lngwidth, lngheight, ImageHDC, 0, 0, lngwidth, lngheight, AlphaPointer Or BF

a imagem é impressa no form, mas com fundo preto em vez de branco. porque a cor de fundo é transparente.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...