Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

traboku

Aumento do form

Mensagens Recomendadas

traboku    0
traboku

Boas estou com uma duvida, tenho um programa com uma imagem e gostava que ao carregar no botão a imagem aparecesse e o form aumenta-se conforme a imagem.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Gooden    0
Gooden

isso e um cado easy :P

1º Border da Form = None

2º abrir imagem

3 redimencionar Form e picturebox

4. posicionar. :P

5 codigo :P

Dim imagem As Image = Image.FromFile("c:\23261.bmp")
        Me.Width = imagem.Width
        Me.Height = imagem.Height
        PictureBox1.Width = imagem.Width
        PictureBox1.Height = imagem.Height
        PictureBox1.Location = New Point(0, 0)
        PictureBox1.Image = imagem

espero ter ajudado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
traboku    0
traboku

imcsb6.th.jpg

Ajudou bastante só que a eu cria que aparecesse como esta na imagem de baixo, na de cima os labels e os textbox desaparecem por causa da imagem

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Gooden    0
Gooden

mexe onde diz location.

ai mudas a localizaçao da picturebox.

e depois ao with e height da form adicionas a posiçao actual da picturebox1

tenta isto

Dim imagem As Image = Image.FromFile("c:\23261.bmp")
        Me.Width = imagem.Width
        Me.Height = imagem.Height
        PictureBox1.Width = imagem.Width
        PictureBox1.Height = imagem.Height
        PictureBox1.Location = New Point(PictureBox1.location.x, PictureBox1.location.y)
        PictureBox1.Image = imagem

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
traboku    0
traboku

Como tu me mandas te mudava a posição da imagem mas a form aumentava

Esta maneira e mais simples

Dim imagem As Image = Image.FromFile("c:\23261.bmp")

        Me.Size = New Size(800, 600)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
traboku    0
traboku

Como tu me mandas te mudava a posição da imagem mas a form aumentava

Obrigado pelas ajudas

Esta maneira e mais simples

Dim imagem As Image = Image.FromFile("c:\23261.bmp")
        Me.Size = New Size(800, 600)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
traboku    0
traboku

sou novo aqui e ainda estou meio as aranhas de como se trabalha com este forum.

Nao sei o que e isso do PM, Private mensage, por mail????

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 a nossa Política de Privacidade