سؤال بسيط وارجو الاجابه لاني تعبت (vb)

[tofaan87]

السلام عليكم ورحمة الله وبركاته

اخواني اتمني بالله الاجابه لاني كلما طلبت طلب لا يوجد رد

علي سبيل المثال: لو عامل برنامج صغير بالفجول بيسك

باستخدام اداة List او Combo وادخلت بيانات بهذه الاداة مثلا
1
2
3

ازاي كلما اخترت بيان معين من البيانات الي ادخلتها بهذه الاداة مثلا البيان 1
تظهر لي صوره معينه ولتكن صوره hh
ومع عدم ظهور باقي الصور

يارب اكون وضحت وانتظر الرد

[آسيهي]

Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
End Sub

Private Sub List1_Click()
If List1.Text = "1" Then
Image1.Visible = True
Image2.Visible = False
Else
Image1.Visible = False
Image2.Visible = True
End If


End Sub
واي استفسار او سؤال فلا تتردد

[Aboud Aboud]

انشئ مشروع وضع فيه
Combo box 1
3 Picture box

وضع خاصية Visible لل Picture تساوي False
وضع داخل كل Picture box صورة

واكتب الكود



Private Sub Combo1_Click()
If Combo1.Text = "1" Then Picture1.Visible = True: Picture2.Visible = False: Picture3.Visible = False
If Combo1.Text = "2" Then Picture2.Visible = True: Picture1.Visible = False: Picture3.Visible = False
If Combo1.Text = "3" Then Picture3.Visible = True: Picture1.Visible = False: Picture2.Visible = False
End Sub

[tofaan87]

Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
End Sub

Private Sub List1_Click()
If List1.Text = "1" Then
Image1.Visible = True
Image2.Visible = False
Else
Image1.Visible = False
Image2.Visible = True
End If


End Sub
واي استفسار او سؤال فلا تتردد

اشكرك اخي الحبيب
بس الله يكرمك عاوز توضيح بسيط

انا بطعا عامل مثلا باداة لست قائمه باسماء
كل اسم لما تدوس عليه يطلع رقم الاسم ده في تيكست
عاوز بقي مع ظهور الرقم يظهر صوره معينه لكل اسم انا بختاره

[tofaan87]

وكذلك اخي عبود
الله يكرمكم حاولو تفهموني

[tofaan87]

طيب ياخواني هذا مثال للبرنامج الي عاوز عليه التعديل

تحميل (http://up.m5zn.com/149853638502/New Folder.rar)

عاوز عند الضغط علي كل اسم يطلع صوره معينه

[Aboud Aboud]

انتظرني ....................

[Aboud Aboud]

تفضل اخي هذا الملف (http://www.4shared.com/file/41262885/ade63424/By_Aboud.html)ويحوي على مثالين

[tofaan87]

والله اخي عبودي مش عارف اشكرك ازاي وجميلك ما انساه ابداا
الله يكرمك ياشيخ ويحميك ويسترك ويزيدك

[tofaan87]

طيب ياخي عاوز اعرف ليه انت كتبت الارقام بالترتيب ده ؟
الي باللون الاحمر علشان لو ضفت اكثر من اربع صور!؟

Select Case List1.Text
Case "ãÍãÏ"
Text1.Text = "1"
Picture1.Visible = True: Picture2.Visible = False: Picture3.Visible = False: Picture4.Visible = False
Case "Úáí"
Text1.Text = "2"
Picture2.Visible = True: Picture1.Visible = False: Picture3.Visible = False: Picture4.Visible = False
Case "Óáíã"
Text1.Text = "3"
Picture3.Visible = True: Picture1.Visible = False: Picture2.Visible = False: Picture4.Visible = False
Case "ÓíÏ"
Text1.Text = "4"
Picture4.Visible = True: Picture1.Visible = False: Picture2.Visible = False: Picture3.Visible = False
End Select

[Ahmed_ghanam]

Select Case List1.Text
Case "ãÍãÏ"
Text1.Text = "1"
Picture1.Visible = True: Picture2.Visible = False: Picture3.Visible = False: Picture4.Visible = False
Case "Úáí"
Text1.Text = "2"
Picture2.Visible = True: Picture1.Visible = False: Picture3.Visible = False: Picture4.Visible = False
Case "Óáíã"
Text1.Text = "3"
Picture3.Visible = True: Picture1.Visible = False: Picture2.Visible = False: Picture4.Visible = False
Case "ÓíÏ"
Text1.Text = "4"
Picture4.Visible = True: Picture1.Visible = False: Picture2.Visible = False: Picture3.Visible = False
End Select

السلام عليكم ورحمه الله وبركاته

هذا شرح الكود اخى الغالى

Picture1.Visible = True: Picture2.Visible = False: Picture3.Visible = False: Picture4.Visible = False

الرقم 3 دا هو ترتيب الاداه

مثلا الاداه الاولى و الثانيه و الثالثه و هكذا فالرقم 3 يعنى هنا الاداه رقم ثلاثه

فى الكود السابق يقول للبرنامج

اظهر اداه عرض الصور الاولى (Picture1) و اخفى الادوات (Picture2) (Picture4) (Picture3) و هكذا

اذا فى اى شىء اخر اكتب و ان شاء الله تجد كل العون من الاخوه الاعضاء

و السلام عليكم ورحمه الله وبركاته

[Aboud Aboud]

شكرا لك اخي Ahmed_ghanamعلى توضيحها عوضا عني

[tofaan87]

استاذي الكريم احمد غناااااااااااام
الرجل المحترم والشخص الطيب
بارك الله فيك وانا اسف اني مقصر في
سؤالي عن حضرتك واشكرك لمساعدتي

وبارك الله في اخونا عبود قايم بالواجب
والله يجازيه كل خير ويعطيه كل ما يتمني

[Aboud Aboud]

تفضل اخي

هذه الطريقة الأولى (http://www.4shared.com/file/41478799/329324ba/_online.htm)

هذه الطريقة الثانية (http://www.4shared.com/file/42231181/4ee7f1b1/1__online.html)

كلمة السر للاثنين : Aboud-bramjnet