ما الخطأ في هذا الكود - كود اضافة صورة في نموذج

[alswedi]

بسم الله الرحمن الرحيم

اخوتي الأعزاء تحيه طيبه للجمع وبعد .

لقد قمت بعمل نموذج وادرجت فيه التالي :

1- أداة Microsoft Common Dialog Control وأسميتها CD1

2- مربع صورة وأسميته Image1

3- زر أمر وكتبت فيه الكود التالي عند حدث النقر

cd1.FileName = ""

cd1.Filter = "Jpeg Files (*.jpg)|*.jpg| Bitmap Files (*.bmp)|*.bmp| Gif Files (*.gif)|*.gif|"

cd1.ShowOpen

If cd1.FileName = "" Then Exit Sub

Image1.Picture = LoadPicture(cd1.FileName)

والمشكلة هي أن الصورة التي يتم اختيارها لا تظهر في مربع الصورة - فما هو السبب

ارجو مساعدي في ذلك ولكم جزيل الشكر

[frozen]

السلام عليكم ورحمة الله وبركاته

اخى الكريم alswedi

اولا

cd1.Filter يجب ان تقوم بالغاء العلامة | الموجودة فى اخر العبارة لتكون

"cd1.Filter = "Jpeg Files(*.jpg)|*.jpg|Bitmap Files(*.bmp)|*.bmp|Gif Files (*.gif)*|.gif

ثانيا جملة if غير مكتملة يجب ان تقوم بتعديلها لتكون

If cd1.FileName = "" Then Exit Sub

Else

(Image1.Picture = LoadPicture(cd1.FileName

end if

ملحوظة ليس من المهم هذا الشرط لعدم ادراج الصورة فى مربع الصورة عند اختيار Cancel

استخدم

cd1.CancelError = False

ولا تستخدم جملة الشرط

ثالثا

استخدام Loadpicture يكون مع الكائن Microsoft Forms 2.0 Image

أما مع مربع الصورة فقم بالغاء تلك الكلمة لتكون

Image1.Picture = cd1.FileName

وهذا ما اعلم والله عز وجل اعلى واعلم

[alswedi]

جزاك الله الف خير اخي العزيز وسأجرب كل ما قلته وسأحاول مرة ثانية . وسوف أرد عليك.

لك مني كل الاحترام والتقدير على هذا التواضع وهذا الرد المميز .