منتدى رياض الجنة - Riad Al-Ganah

منتدى رياض الجنة - Riad Al-Ganah (https://montada.khaledbelal.com/index.php)
-   روضة البرمجة ولغاتها (https://montada.khaledbelal.com/forumdisplay.php?f=53)
-   -   كيفية عمل برنامج بسيط جداً يعرض الصور بـ vb.net 2005 (https://montada.khaledbelal.com/showthread.php?t=1044)

MOHAMED 04-15-2010 12:06 AM
كيفية عمل برنامج بسيط جداً يعرض الصور بـ vb.net 2005
 
بسم الله الرحمن الرحيم

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


جزاك الله كل خير


الساعة الآن 11:00 AM.

Powered by vBulletin® v3.8.4, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. , TranZ By Almuhajir
النسخة الفضية

Ads Management Version 3.0.1 by Saeed Al-Atwi

a.d - i.s.s.w