[MOHAMED]

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

السلام عليكم ورحمة الله وبركاته
درسنا الثالث عن كيفية عمل عارض صور بسيط وصغير
بسم الله نبدأ ...
أولاً ندرج المشروع
ثانياً نضع الأدوات التالية
Button1 وحيكون Text الخاص بيه "فتح"
Button2 و Text الخاص بيه "حفظ"
PictureBox1 لعرض الصور
نرتبه بشكل جميل مش فارق نكمل الكود حيكون بسيط جداً
كود Button1 فتح يعنى حيكون

اقتباس Dim rg1 As New OpenFileDialog rg1.Title="فتح صورة" rg1.Filter="BMP Files|*.bmp|JPEG Files|*.jpg|PNG Files|*.png|Gif Files|*.gif" rg1.showDialog 'الكود التالى لتفادى حدوث خطأ وتوقف البرنامج فى حين لم يتم اختيار صورة If rg1.FileName="" Then Exit Sub PictureBox1.Image=Image.FromFile(rg1.Filename)

كود Button2 حفظ يعنى

اقتباس Dim rg2 As New SaveFileDialog rg2.Filter="BMP Files|*.bmp|JPEG Files|*.jpg|PNG Files|*.png|Gif Files|*.gif rg2.showDialog 'الكود التالى لتفادى حدوث خطأ وتوقف البرنامج فى حين التراجع عن الحفظ للصورة If rg2.FileName="" Then Exit Sub PictureBox1.image.save(rg2.Filename)

وبكده نكون عملنا برنامج بسيط لحفظ وفتح الصور ....
والسلام عليكم ورحمة الله وبركاته