COMO PEGAR A RESOLU?ÃO DE UMA IMAGEM PELO VB-6

DANLEONHART 17/03/2016 23:47:16
#459407
Pessoal, alguém pode me dizer como consigo pegar a resolução de uma imagem?!
No meu projeto necessito que a imagem tenha um padrão de resolução...por isso quero pegar o tamanho da imagem e confrontar com o padrão de tamanho que irei determinar. A imagem é carregada em um controle [Ô]Image[Ô].
DANLEONHART 30/03/2016 08:49:14
#460120
Já descobri.
Fiz utilizando a biblioteca Microsoft Windows Image Acquisition Library v2.0 ([txt-color=#0000f0]wiaaut.dll[/txt-color]).

Private Sub cmd1_Click()

 Dim imaF     As New WIA.ImageFile
 Dim imaFile  As String
 Dim nHgt     As Integer
 Dim nWdt     As Integer
 Dim sExt     As String
  
  imaFile = App.Path & [Ô]\Imagem.jpg[Ô]
  
  With imaF
          .LoadFile (imaFile)
   nHgt = .Height
   nWdt = .Width
   sExt = .FileExtension
          
  End With

  MsgBox [Ô]Largura: [Ô] & nWdt & vbNewLine _
       & [Ô]Altura: [Ô] & nHgt & vbNewLine _
       & [Ô]Formato: [Ô] & sExt
  
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar