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:  Dimensões de um bitmap
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
Você pode utilizar o controle PictureBox com a propriedade AutoSize=True. Carregue o bitmap no PictureBox, usando a função LoadPicture. O controle irá ajustar o seu tamanho automaticamente, para que o bitmap caiba nele. As propriedades Height e Width deste controle contém as dimensões do bitmap. Note que os valores destas propriedades estão em Twips.

Uma outra forma, é utilizar a API GetObject. Esta função retorna a estrutura do Bitmap em dois membros, bmWidth e bmHeight representando as dimensões do bitmap em pixels. Veja o exemplo abaixo:

Coloque o seguinte código em um módulo:

Type BITMAP '14 bytes
  bmType As Integer
  bmWidth As Integer
  bmHeight As Integer
  bmWidthBytes As Integer
  bmPlanes As String * 1
  bmBitsPixel As String * 1
  bmBits As Long
End Type

Declare Function GetObjectAPI% Lib "GDI" Alias _
        "GetObject"(ByVal hObject%, ByVal nCount%, _
        lpObject As Any)
Coloque o seguinte código aonde você quer obter as dimensões do bitmap. (O Bitmap deve ser carregado em um PictureBox chamado Picture1):

Dim bmp As BITMAP, ret%
ret = GetObjectAPI(picture1.Picture, Len(bmp), bmp)
Print "Width = " & Str$(bmp.bmWidth) & ", Height = " & _
Str$(bmp.bmHeight)
 


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