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

traboku

Aumento do form

10 mensagens neste tópico

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

mandame o projecto via PM ok? eu resolvote isso rapidamente.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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????

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