1.5-نموذج عرض المنتجات
المثال الخامس نموذج عرض المنتجات
الغرض من التطبيق هو عرض صورة لأحد المنتجات عند التأشير علية بالماوس أو استدعاؤة من أحد القوائم
قم بعمل مجلد وقم بتسميتة أى اسم Source مثلا وضع فية عدد 12 صورة بصيغة Bmp وضعة فى دليل ما وليكن /:C مثلا يمكنكم الإستعانة بالصور المرفقة
مشروع جديد والفورم من اليمين إلى اليسار ثم نقوم بإدراج المكونات التالية فى الفورم
PictureBox عدد6
List Box عدد1
ComboBox عدد1
GroupBox عدد2
Radio Button عدد3
CheckBox عدد3
Button عدد1
Lable عدد1
ثم نقوم بوضعها فى شكل ملائم



التسمية
Form1=نموذج عرض المنتجات
Lable1=أدوات منزلية
ComboBox1=أجهزة كمبيوتر
GroupBox1 = أجهزة محمولة
RadioButton1=جهاز محمول 1
RadioButton2=جهاز محمول 2
RadioButton3=جهاز محمول 3
GroupBox2= ألعاب أطفال
CheckBox1=ميكى
CheckBox2=بلوتو
CheckBox3=بامبى
يراعى عند إعادة التسمية التغيير من الخاصية Text فقط
الخصائص
سنقوم بتغيير خصائص صندوق الصورة بنفس الطريقة المتبعة فى الأمثلة السابقة
ثم نقوم بترتيبها بشكل مناسب



نقوم بإدراج قائمة بعدد من المنتجات فى كلا من List Box1 و ComboBox1 كالتالى
قم بالتأشير على List Box1 واذهب إلى Edit Item أسفل صندوق الخصائص Properties كما هو موضح وقم بعمل قائمة بالعناصر التى تريد إظهارها وقم بنفس الخطوات مع ComboBox1



إذا لم تجد Edit Item أسفل قائمة الخصائص قم بعمل كليك يمين بالماوس فى المنطقة الخالية أسفل صندوق الخصائص ثم اختر Commands ستظهر لك Edit Item
الكود
أولا :RadioButtons
دبل كليك على RadioButton1 ثم

كود:

PictureBox1.Image = System.Drawing.Image.FromFile _
("C:\Source\Mob1.bmp")
دبل كليك على RadioButton2 ثم

كود:

PictureBox1.Image = System.Drawing.Image.FromFile _
("C:\Source\Mob2.bmp")
دبل كليك على RadioButton3 ثم

كود:

PictureBox1.Image = System.Drawing.Image.FromFile _
("C:\Source\Mob3.bmp")
ثانيا:CheckBoxs
دبل كليك على CheckBox1 ثم

كود:

If CheckBox1.CheckState = 1 Then
PictureBox4.Image = System.Drawing.Image.FromFile _
("C:\Source\Mickey.bmp")
PictureBox4.Visible = True
Else
PictureBox4.Visible = False
End If
دبل كليك على CheckBox2 ثم

كود:

If CheckBox2.CheckState = 1 Then
PictureBox5.Image = System.Drawing.Image.FromFile _
("C:\Source\Pluto.bmp")
PictureBox5.Visible = True
Else
PictureBox5.Visible = False
End If
دبل كليك على CheckBox3 ثم

كود:
If CheckBox3.CheckState = 1 Then
PictureBox6.Image = System.Drawing.Image.FromFile _
("C:\Source\Bamby.bmp")
PictureBox6.Visible = True
Else
PictureBox6.Visible = False
End If
-**-
ثالثا:ListBox1
دبل كليك على ListBox1 ثم

كود:
Select Case ListBox1.SelectedIndex
Case 0
PictureBox2.Image = System.Drawing.Image.FromFile _
("c:\Source\Hom1.bmp")
Case 1
PictureBox2.Image = System.Drawing.Image.FromFile _
("c:\Source\Hom2.bmp")
Case 2
PictureBox2.Image = System.Drawing.Image.FromFile _
("c:\Source\Hom3.bmp")
End Select

-**-
رابعا:ComboBox1
دبل كليك......الخ

كود:
Select Case ComboBox1.SelectedIndex
Case 0
PictureBox3.Image = System.Drawing.Image.FromFile _
("c:\Source\PC1.bmp")
Case 1
PictureBox3.Image = System.Drawing.Image.FromFile _
("c:\Source\PC2.bmp")
Case 2
PictureBox3.Image = System.Drawing.Image.FromFile _
("c:\Source\PC3.bmp")
End Select

يجب مراعاة كتابة الدليل الذى ستضع بة الصور بصورة صحيحة
هذة صورة التطبيق


يــــــــــــــــــــتبع,,,,,,,,

__________________



كثر الله خير و جمل الله حالك ياهبشان
لو أنني كنت شاعراً لكتبت معلقة غزل في روعة و جمال هذى النظام
أضغط على الصورة

كم هي جميلة شبكتنا .. وكم هي كبيره بكم
فشبكة قحطان بكم ولكم
فلننهظ بها
بصدق وأمانه
وبلا تذمر