فيلتر كردن حجم عكس ورودي توسط common dialog

[unforgiven]

سلام
به چه صورت ميتونيم به Common Dialog اجازه بديم فقط عكس هايي رو كه كمتر از k 500 حجم دارند در PictureBox نمايش داده بشن ؟
چند تا كد Get File Size از سايت Pscode دانلود كردم ولي يه بار فيلتر مي كنه, يه بار نمايش ميده !

اگه كد يا سورسي در اين زمينه داريد لطفا دريغ نكنيد .
با تشكر

[مهران رسا]

CommonDialog1.Filter = "Image Files|*.jpg;*.bmp;*.png;*.gif;"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
If FileLen(CommonDialog1.FileName) < (500 * 1024) Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If

[unforgiven]

سلام
كد شما رو تست كردم خطاي OverFlow ميده . بعد از تغيير قسمت هاييش باز فايل هايي با بيش از 500 هم نشون ميده .اين كد ناقص نيست ؟!
سورس جامع تري اگر ممكنه بذاريد .
ممنونم

[butterfly8528]

این هم کد تصحیح شده .


Private Sub Command1_Click()

CommonDialog1.Filter = "Image Files|*.jpg;*.bmp;*.png;*.gif;"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
' baraye 500 kb
If FileLen(CommonDialog1.FileName) < 512000 Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Sub


موفق باشید .

[مهران رسا]

خوب من (500 * 1024) رو جدا نوشتم که متوجه بشید چه اتفاقی افتاده .



بعد از تغيير قسمت هاييش باز فايل هايي با بيش از 500 هم نشون ميده

یعنی چی ؟