[VB6]: Commondialog e Dimensioni Immagini

[vr-claudio]

Ciao carissimi,
qui sotto vi posto un codice che utilizzo per acquisire delle immagini JPEG in una Picture:
CommonDialog1.DialogTitle = "Apri"
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Immagini JPEG (*.jpg*)|*.jpg*"
CommonDialog1.ShowOpen
CommonDialog1.InitDir = ("C:\...\IMG\")

If Len(CommonDialog1.FileName) = 0 Then
Else
Immagine.AutoRedraw = True
Immagine.Picture = LoadPicture(TXT_TEST_LOGO.text)
End If

e fin qui tutto bene, io vorrei che quando l'utente sceglie un'immagine con il pulsante
Ok dalla finestra di dialogo, se le misure dell'img superano queste impostazioni 230x230 dia errore!

Spero di essermi spiegato abbastanza bene
vr-claudio

[gibra]

Non puoi.

Per leggere le dimensioni in pixels devi per forza caricare l'immagine in un PictureBox nascosto impostando:
- AutoSize = True
- ScaleMode = vbPixels

Altrimenti invece di usare il controllo CommonDialog.OCX, puoi fare tutto con le funzioni API e subclassando la libreria CommonDialog.dll puoi intercettare addirittura il clic sul nome del file.
Vedi questo mio esempio:

Common Dialogs Advanced
http://nuke.vbcorner.net/Progetti/VB...T/Default.aspx