Ir para o conteúdo
ricafilipe

background transparente

Mensagens Recomendadas

jpaulino    106
jpaulino

Existe alguma maneira de o VB.net deixar utilizar transparente no Background?

Obrigado desde já.

Pergunta um pouco confusa ... se a imagem tiver o backgound transparente (tipo gif ou png), fica transparente.

Ou entendi mal ?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Joca    0
Joca

Realmente uma questão pouco clara...

Todos os controlos? Só a Form?

Outra alternativa é (por exemplo) alterar a opacidade (é parecido mas, não é o mesmo que transparência):

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With Me
            .Opacity = 0.5
        End With

    End Sub

Ou queres atribuir a transparência a algum controlo que não permita a transparência?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
ricafilipe    0
ricafilipe

Desculpem, fiz me entender mal.

Por exemplo, tenho uma imagem redonda, tiro a barra (form bord style) e o objectivo do programa é ficar redondo.

Mas como não posso por a backcolor da form a transparente, o programa vai ficar um quadrado com uma bola lá dentro.

Se puser opacidade a 0%, o programa fica todo invisível.

Alguém pode ajudar?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
zubimaster    0
zubimaster

Mas... por acaso, ninguem está a perceber a pergunta dele ou estão-se a armar em esquesitos e não sabem mesmo??? :)

É que por acaso também precisava disso :)

(Tentando melhorar a questão com um exemplo (suponho que seja isto): -Nero. O nero tem tudo transparente excepto os controles e isso,)

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Hellblazer    0
Hellblazer

Chama esta função no pageload

Public Sub InitializeMyForm()

        BackColor = Color.Red

        TransparencyKey = BackColor

    End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
zubimaster    0
zubimaster

Pois... obrigado de qualquer forma mas... senão é pedir muito podias por ai um exemplo, do género:

Numa form, existe um objecto que ao ser arrastado, arrasta tabém a form. Dá para fazer?

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
zubimaster    0
zubimaster

Por exemplo, se vires uma apliação que fiz ("EXE2exe") conseguirás ver que não consegues arrastar a form pelo ecrã visto que não tem nenhum objeto programado para isso.

O que eu gostavaera, que quando tentassem arrastar a title bar, arrastasse a form também.

cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
drake101    0
drake101

Por exemplo, se vires uma apliação que fiz ("EXE2exe") conseguirás ver que não consegues arrastar a form pelo ecrã visto que não tem nenhum objeto programado para isso.

O que eu gostavaera, que quando tentassem arrastar a title bar, arrastasse a form também.

cumps

eu ainda hoje fiz isso mas infelizmente o codigo n esta comigo mas eu amanha por volta das 9h posto aqui isso =)

btw a title bar e uma picture box certo?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
zubimaster    0
zubimaster

Obrigado ;) ,

btw a title bar e uma picture box certo?

Não, a imagem é toda junta. Mas penso que não á problema visto que basta carregar uma imagem qualquer e colocar 100% de transaperencia. (coloco a imagem nessa zona)

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
drake101    0
drake101

aqui vai o codigo entao:


Dim pX, pY As Integer
Private Sub pic_move_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic_move.MouseDown

        If e.Button = Windows.Forms.MouseButtons.Left Then
            pX = e.X
            pY = e.Y
        End If
    End Sub
    Private Sub pic_move_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic_move.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.DesktopLocation = New Point(Me.Left + (e.X - pX), Me.Top + (e.Y - pY))
        End If
    End Sub

pic_move é uma picture box.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
ricafilipe    0
ricafilipe

Chama esta função no pageload

Public Sub InitializeMyForm()

        BackColor = Color.Red

        TransparencyKey = BackColor

    End Sub

Tenho estado sem programar, vim agora aqui.

Funciona. Muito mas muito obrigado.  :cheesygrin:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade