فيلتر كردن حجم عكس ورودي توسط 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 هم نشون ميده

یعنی چی ؟