|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Imagem/Som/Multimídia)
|
|
 |
Título da Dica: Dimensões de um bitmap
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
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)
|
|
|
|
|
