الغرض من التطبيق هو عرض صورة لأحد المنتجات عند التأشير علية بالماوس أو استدعاؤة من أحد القوائم
قم بعمل مجلد وقم بتسميتة أى اسم 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=بامبى
يراعى عند إعادة التسمية التغيير من الخاصية **** فقط
الخصائص
سنقوم بتغيير خصائص صندوق الصورة بنفس الطريقة المتبعة فى الأمثلة السابقة
ثم نقوم بترتيبها بشكل مناسب
نقوم بإدراج قائمة بعدد من المنتجات فى كلا من 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
يجب مراعاة كتابة الدليل الذى ستضع بة الصور بصورة صحيحة
هذة صورة التطبيق
وهذا رابط لتحميل مجلد الصور
http://www.zshare.net/download/2329804eeb76e4/
آة نسيت شىء مهم
إحنا سوينا زر ونسينا إن هذا الزر لة وظيفة مهمة جدا وهى
إنتهى
نموذج عرض المنتجات فيجول 2005
