USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Imagem/Som/Multimídia)

Título da Dica:  Salvando e Pintando em cima de figuras
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
A propriedade IMAGE permite pintar com os métodos (PRINT, PSET, LINE e CIRCLE) em tempo de execução. Para imcorporar uma imagem à picture, basta fazer:

  Picture1.Picture = Picture1.image
Esta linha de comando atribui o resultado dos gráficos à imagem principal. No exemplo abaixo, serve para riscar um arquivo:

Dim X As Integer
Dim Y As Integer
Picture1.Picture = LoarPicture("C:\Windows\Logo.ico")
X = Picture1.ScaleWidth
Y = Picture1.ScaleHeight
Picture1.Line (0, 0)-(X, Y), RGB(255, 0, 0)
Picture1.Picture = Picture1.Image
SavePicture Picture1, "C:\Windows\Logo.bmp"
No exemplo acima, a picture somente converte o traço após receber a image.
Detalhe: independente do formato da imagem contida em picture, a propriedade image contém sempre um bitmap. Assim, o truque acima é uma ótima forma de converter ICO e WMF em BMP.

Ícones e metafiles podem possuir um fundo transparente. Quando transformamos em bitmaps incorporam os pontos (e a cor) de fundo. Veja o exemplo:

'*** CONVERTENDO ICO EM BMP ***

  Picture1.Picture = LoadPicture("C:\Icons\Mylogo.ico")

'ATRIBUINDO COR DE FUNDO
Picture1.BackColor = RGB(255, 255, 255)
Picture1.Picture = Picture1.Image

'CONVERTENDO EM BMP
  SavePicture Picture1, "C:\Windows\Mylogo.bmp"
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página