السلام عليكم ورحمة الله وبركاته
اتمنى منكم مساعدتي في هذا الكود لاني وضعته ولم يعمل ماهي المشكلة في الكود لماذا لا يعمل
كود التكبير
Dim x As Bitmap
x = PictureBox1.Image.GetThumbnailImage(PictureBox1.Width + 100, PictureBox1.Height + 100, Nothing, Nothing)
كود التصغير
Dim x As Bitmap
x = PictureBox1.Image.GetThumbnailImage(Width - 100, Height - 100, Nothing, Nothing)
اختي الكريمه
عليكي تجديد مكان الصوره Bitmap مثلا يمكن اضافة الصوره الي Resources الخاصه بالمشروع ثم تعديل الكود كالاتي
Dim x As New Bitmap(My.Resources.Resource1.Winter)
حيث ان الكلمه ًWinter هي اسم الملف الموجود في Resources المشروع
ويمكن اضافة الصوره باي طريقه تريديها
وبعدين استخدمي الكود عادي
اخوك عمر
تم تعديل هذه المشاركة بواسطة a_pess في 30 أبريل 2008 في 09:31
اخي العزيز عمر انت لم تفهم قصدي انا عندي بيكتشر بوكس وحاطة فيها صورة اريد مثلا عند الضغط على زر التكبير تكبر هي ماتتحرك نهائيا ولا زر التصغير كانه في شي خاطي في الكود ارجو منك الرد
اختي الكريمه
بعد توضيحك للامر فهمت ما تريدين حسب ما افهم انت تريدين انه بالضغط علي باتون التصغيير يتم تصغيير الصوره لحجم معين وعند الضغط علي باتون التكبير يتم تكبيير الصوره لحجم معين
عموما مقاس صندوق الصور ليس له علاقه بالامر كل ما عليكي هو استخدام عملية النسبه والتناسبا عموما انا كنت عملت برنامج شبيه بسرعه ها يناسب احتياجاتك مثلا لو المستخدم ضغط علي باتون التصغيير سيصبح مقاس الصوره نصف المقاس الاصلي المعروض داخل صندوق الصور وعند الضغط علي باتون التكبيير يترجع الصوره الي المقاس الاصلي التي عرضت به
الكود بالمرفقات بنسخة 2008الفيجوال استوديو و ايضا نسخة 2005 استخدمي ما يتناسب مع النسخه الموجوده لديكي
طبعا يمكن تعديل الكود مثلا بعمل كومبو بوكس فيه معدل تصغيير الصوره وكومبو بوكس اخر به نسب تكبيير الصوره وعند الضغط علي اخيتار منهم تصبح الصوره بالمقاس المطلوب وكله باستخدام النسبه والتناسب
اتمني يكون ده اللي انتي محتاجاه
بالتوفيق
اخوك عمر