Italian Proprieta' immagine in pixel

maxware

Well-Known Member
Licensed User
Longtime User
Ciao raga
Sono alle prese con il rifacimento di AlfaDesk e + precisamente con la tabbela tipologia documenti
Avrei la necessita di sapere le proprietà di una immagine
Quello che mi serve e' sapere le dimensioni in pixel in quanto l'utente non deve selezionarmi una immagine + grande
Avete qualche idea ??
Ciaoo e grazie a tutti
Mamo
 

Dominex

Active Member
Licensed User
Longtime User
Direi che puoi procedere in due modi.

Il primo consiste nell'usare il comando LoadBitmapSample che ridurrà qualunque immagine alle massime dimensioni che desideri, in questo modo l'utente può selezionare anche immagini grandi.

Il secondo è caricare normalmente l'immagine e poi verificare se le dimensioni rispettano i tuoi requisiti con le proprietà Width e Height.
 

maxware

Well-Known Member
Licensed User
Longtime User
Dominex non conoscevo loadbitmapsample. ottimo risolto il tutto
carico l'immagine e la salvo con le impostazioni che mi servono
Sub testa_immagine(v_path As String , v_file As String )
Dim out As OutputStream
Dim bmp As Bitmap
bmp=LoadBitmapSample(v_path, v_file,280,150)
out = File.OpenOutput(Main.dbFilePathPanPDF, s.Trim(txtCodice.Text) & ".Jpg", False)
bmp.WriteToStream(out, 100, "JPEG")
bmp.w
lblNomeImmgine.Text =s.Trim(txtCodice.Text) & ".Jpg"
End Sub

Garzieeeee 10*10*10
Mamo
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…