المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كيفية عمل برنامج بسيط جداً يعرض الصور بـ vb.net 2005


MOHAMED
04-15-2010, 12:06 AM
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته
درسنا الثالث عن كيفية عمل عارض صور بسيط وصغير
بسم الله نبدأ ...
أولاً ندرج المشروع
ثانياً نضع الأدوات التالية
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)

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

الباشا الكبير
06-30-2011, 11:16 PM
جزاك الله كل خير