Italian Proprieta' immagine in pixel

[maxware]

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]

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]

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