[VB6] Controllo PictureBox e risoluzione immagine

[andreaciao_22]

salve a tutti...

volevo un'informazione...

c'è una proprietà del controllo picturebox o image di visual basic che mi dica che risoluzione ha un'immagine(per intenderci: i pixel per pollice)???

se si come faccio a recuperare tale informazione????

grazie

[alka]

Parliamo di Visual Basic 6, VBScript, VBA...?

[andreaciao_22]

visual basic 6... alka

[alka]

Originariamente inviato da andreaciao_22
visual basic 6... alka

Ok.

Modifico il titolo in modo opportuno e sposto la discussione nell'area apposita...ma in futuro pensa a tutto tu.

Ciao!

[andreaciao_22]

nessuno mi dà una mano?

ieri ho notato che andando nelle proprietà di un file jpg e andando nella scheda riepilogo, ci sono due voci: Risoluzione Orizzontale, Risoluzione verticale...

sapete dirmi come prelevare queste informazioni con visual basic???

grazie

[oregon]

A partire dal file, potresti scrivere

Dim XDPI As Integer
Dim YDPI As Integer
Open "File.jpg" For Binary As #1
Seek #1, 16
Get #1, , XDPI
Get #1, , YDPI
Close #1
Debug.Print "Ris. Orizz. " & XDPI; " dpi"
Debug.Print "Ris. Vert. " & YDPI; " dpi"

[andreaciao_22]

ho provato con un immagine di 300 dpi di risoluzione sia verticale che orizzontale...

le tue istruzioni mi restituiscono 100 dpi....

x'????

[oregon]

Sicuro che sia 300 x 300 ? Lo leggi anche nelle proprieta' ?

Puoi farmi avere il file ?

[oregon]

Fai i test con questo codice

Dim BH As Byte, BL As Byte
Dim XDPI As Integer
Dim YDPI As Integer
Open "File.jpg" For Binary As #1
Seek #1, 15
Get #1, , BH
Get #1, , BL
XDPI = BH * 256& + BL
Get #1, , BH
Get #1, , BL
YDPI = BH * 256& + BL
Close #1
Debug.Print "Ris. Orizz. " & XDPI; " dpi"
Debug.Print "Ris. Vert. " & YDPI; " dpi"

[andreaciao_22]

è un file di windows, si chiama acqua.jpg... se non ce l'hai prendi castello.jpg sempre negli sfondi predefiniti di windows che anch'esso ha 300 dpi... tanto il risultato è lo stesso....
si, lo leggo anche nel riepilogo delle proprietà del file...