Imagens

[ZL* 0]

Olá a todos

Preciso de fazer um trabalho e gostaria de saber, no vb, como ir buscar uma imagem ao windows e colocala na form e depois fazer zoom http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

 

xau

[sauloluz 0]

Olá,

 

1) Crie um form e insira nele uma picture box (ex.: picture1).

2) carregue a imagem que você. quiser na picturebox (picture1.Picture = LoadPicture("c:\caminho")

3)use a opção paintpicture para preencher seu form com a figura (PaintPicture .picture1.Picture, 0, 0, ScaleWidth, ScaleHeight)

4) pronto!!!

5) Para dar o zoom coloque o comando do paintpicture no sub form_resize.

6) Experimente ,aximizar o form.

 

Espero que ajude.

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Cypher 0]

para fazer o Zoom não é necessário fazer tanto coisa tambem dá é claro mas uma maneira alternativa é multiplicar o tamanho(comprimento e largura) da imagem por um numero (pequeno, por exemplo 1.2) e para diminuir dividir (comprimento e largura) por um numero tambem pequeno (por exemplo 1.2)

[Erich VB 0]

Eu quero fazer o zoom em um Image, usando o MouseDown para que o zoom se aproxime da área que eu clicar. Tudo o que eu fiz não deu certo. Um amigo na NET falo sobre os PaintPicture, StrechBlt, BitBlt mas com o PaintPicture eu só consegui alterar a posição da imagem no form. Podem dar um exemplo não sou muito forte no VB e o meu VB não tem Help.

[Heitor Andrade 0]

Olá,1) Crie um form e insira nele uma picture box (ex.: picture1).2) carregue a imagem que você. quiser na picturebox (picture1.Picture = LoadPicture("c:\caminho")3)use a opção paintpicture para preencher seu form com a figura (PaintPicture .picture1.Picture, 0, 0, ScaleWidth, ScaleHeight)4) pronto!!!5) Para dar o zoom coloque o comando do paintpicture no sub form_resize.6) Experimente ,aximizar o form.Espero que ajude. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

isso quem faz é quem programa...e pra habilitar o cliente a fazer isso por modo grafico?

[Erich VB 0]

Ola amigo eu não consegui vaser o zoom com o PaintPicture tive que mudar as propriedades do image top, left, Height, Width. Mesmo assim não fico como eu queria.