[vb2008] Afbeelding grote?

[Dummy1912]

Hallo,

Ik wil graag een afb laten kiezen door de gebruiker maar het mag niet groter zijn dan 200x200
hoe kan ik dit weten als de afb groter is dan ik vraag?

dus als ik met openfiledialog werk
en als ze een bestand selecteren.

iemand een idee aub.

bedankt

Dummy1912

 

[The Mighty Atom]

        If ofd.ShowDialog = DialogResult.OK Then

            If Image.FromFile(ofd.FileName).Width >= 200 Or Image.FromFile(ofd.FileName).Height >= 200 Then

                MessageBox.Show("Bestandsafmeting is te groot! (>= 200*200)" & vbCrLf & _
                                ofd.FileName & ": " & Image.FromFile(ofd.FileName).Width & "*" & Image.FromFile(ofd.FileName).Height)
            End If

        End If

 

[Dummy1912]

:shocked:

Cool

wist niet dat dit kon

bedankt The Mighty Atom

:thumb:

Dummy1912

 

[geertd]

Als je nou een invisible PictureBox maakt:

Dim pb As New PictureBox
pb.Image = selectedFile
Dim hoogte As Integer = PictureBox1.Image.Height
Dim breedte As Integer = PictureBox1.Image.Width
If hoogte OR breedte > 200 Then
MsgBox("De afbeelding is te groot")
Else
MsgBox("Afbeelding geregistreerd")
End If

Geert

 

[Dummy1912]

Hoi Geertd,

Ja maar dan moet ik weer een andere picturebox gebruiken
en dat vraagt weer meer geheugen.

toch bedankt

Dummy1912