Ir ao conteúdo
  • Cadastre-se
Cambalinho

como usar a AlphaBlend() em Visual Basic 6?

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×