• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ricafilipe

background transparente

19 mensagens neste tópico

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

Obrigado desde já.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Chama esta função no pageload

Public Sub InitializeMyForm()

        BackColor = Color.Red

        TransparencyKey = BackColor

    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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:

0

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