alswedi قام بنشر نوفمبر 4, 2003 مشاركة قام بنشر نوفمبر 4, 2003 بسم الله الرحمن الرحيم اخوتي الأعزاء تحيه طيبه للجمع وبعد . لقد قمت بعمل نموذج وادرجت فيه التالي : 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) والمشكلة هي أن الصورة التي يتم اختيارها لا تظهر في مربع الصورة - فما هو السبب ارجو مساعدي في ذلك ولكم جزيل الشكر 1 رابط هذا التعليق شارك More sharing options...
frozen قام بنشر نوفمبر 5, 2003 مشاركة قام بنشر نوفمبر 5, 2003 السلام عليكم ورحمة الله وبركاته اخى الكريم 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 وهذا ما اعلم والله عز وجل اعلى واعلم رابط هذا التعليق شارك More sharing options...
alswedi قام بنشر نوفمبر 7, 2003 الكاتب مشاركة قام بنشر نوفمبر 7, 2003 جزاك الله الف خير اخي العزيز وسأجرب كل ما قلته وسأحاول مرة ثانية . وسوف أرد عليك. لك مني كل الاحترام والتقدير على هذا التواضع وهذا الرد المميز . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.