مساعده في مشروع سياحي

السلام عليكم انا لدي برنامج استخدم فيه combobox

واضفت فيه اسماء الدول المهم اضفت combobox ثاني عندما اختار من الاول اسم الدوله تظهر في الcombobox الثاني اسماء المدن الخاصه و combobox ثالث فيه فنادق ومطاعم واسواق ومتاحف ويعدين استخدمت Label اظهر فيه المعلومات مثلا لو اختر الدولة السعوديه المدينه جده واختار الفنادق الناتيج يكون اسماء الفنادق بس ارجو الرد

( أخي, أختي ) الكريم(ـة) .

عند التكلم عن أمور ممائلة للمذكور اي الذي ذكرته, عليك استخدام صيغة منطقية لإيصال الفكرة, لماذا ؟

1 - ستفهم الفكرة وتفكر أكثر >> ومن الممكن أن تكتشف الحل بنفسك .

2 - اختصار الوقت لنعطيك إجابة سريعة >> سيصعب عليك شرح الفكرة عندما تقرأ أسئلة متعددة الأشكال :S ( من هنا وهناك ) وتقول ( من أين آتيكم بالأجوبة لها !! ) .

لذلك, ماعليك فعله هو :

ذكر اسم كل ComboBox .

ذكر عمل كل ComboBox .

هل هناك مصدر بيانات محدد ؟ أي على سبيل المثال ( List( Of T بعد تحويل محتويات ملف نصي اليها) أو ( ملف XML ) أو ( SQL Server DB ) أو ( Access DB ) ) ؟

إذا كان مصدر البيانات إحدا الأنواع المذكورة للـ DataBases الرجاء إدراج اسم الجدول, والأعمدة المراد التعامل معها, وإذا كان بالإمكان إدراج الأوامر التي تستخدمها للإدخال والقراءة ) .

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

شكرا علي الرد السريع

المشكلة في الكود يظهر بس دوله واحده مع المنطقة وادا اختار فندق او مطعم

الدول والمناطق الاخرى ماتشتغل وهدا الكود

Dim choice As String

choice = ComboBox1.Text

choice = ComboBox2.Text

choice = ComboBox3.Text

If choice = "france" Then

ElseIf choice = "paris" Then

ElseIf choice = "Hotels" Then

Label4.Text = "5-star Hotls/ Grand Hotel/ Msnsuites Palazzo Uguccioni Hotel / Villa Medici Hotel /4-star Hotel/ "

ElseIf choice = "Shopping Area" Then

Label4.Text = "jjnjnjnj"

ElseIf choice = "Restaurants" Then

Label4.Text = "jjjuiii"

ElseIf choice = "Landmarks" Then

Label4.Text = "srtyyt"

ElseIf choice = "Museums" Then

Label4.Text = "sgh"

ElseIf choice = "Italia" Then هدي دوله اخرى بس ماتظهر المعلومات المتعلقه بالدوله عند الاختيار وضعت قيمة (الارقام بس عشان اختبر الكود بعدين اضع المعلومات الصح)

ElseIf choice = "Florence " Then

ElseIf choice = "Hotels" Then

" Label2.Text = "1"

ElseIf choice = "Shopping Area" Then

" Label2.Text = "2"

ElseIf choice = "Restaurants" Then

" Label2.Text = "3"

ElseIf choice = "Landmarks" Then

" Label2.Text = "4"

End If

End Sub

وهدا شكل البرنامج mis_102.rar

untitled.rar

المستخدم يختار الدوله وبعدين يختار المدينه مثلا عندو في الدول فرنسا وايطاليا وبرطانيا والمانيا وبعدين يرووح للمدن يختار المنطقه المتعلقه بهذي الدوله وبعدين يختار ايش يبغي يعرف من هذي المدينه فنادق يطلعلوا الناتيج اسماء الفنادق كلهااا في Label

ايوه انا احدد بعني (اضيف ) الدول والمناطق في combobox والمستخدم يختار الي يناسبو

هاذي بدايه الكود ..

كملي عليه نفس الطريقه ..

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		ComboBox1.Items.Add("country1")
		ComboBox1.Items.Add("country2")
		ComboBox1.Items.Add("country3")
		'أكتبي أسمآء الدول .. 
	End Sub

	Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
		If ComboBox1.SelectedItem = "country1" Then
			ComboBox2.Items.Add("city1")
			ComboBox2.Items.Add("city2")
			ComboBox2.Items.Add("city3")
		End If
	End Sub

معليش بس اضفت الدوله الثانية بنفس الطريقه لما يختار الدوله الثانية ويختار city يطلع عندو city تبع الدولتين

وبعدين كيف اربط معاهم الفنادق ..>>>>>> so on

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.Items.Add("france")

ComboBox1.Items.Add("Italia")

ComboBox1.Items.Add("England")

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

If ComboBox1.SelectedItem = "france" Then

ComboBox2.Items.Add("paris")

ComboBox2.Items.Add("k")

ComboBox2.Items.Add("h")

End If

If ComboBox1.SelectedItem = "Italia" Then

ComboBox2.Items.Add("rome")

ComboBox2.Items.Add("florence")

ComboBox2.Items.Add("bnde")

End If

End Sub

كذا سويتوا

كيف ارفق الشروع والله مرررره اسفه بتعبك معاااايه

طيب اوكي select case

مو مشكله اهم شيء يشتغل التسليم يوم السبت

وهدا المشروع WindowsApplication1.rar

إشراقــه فجــر كتب:

والله لو أعــرف كآن قلت لك بس مآ أعرف :blush:

..

شوفي أنآ جربت مشرووعك بس ع الـ select case

ما أحب أستخدم if :wink:

..

لا كن جربي هالكود إن شاء الله يضبط معاك ..

ComboBox1.Items.Add("country1")
ComboBox1.Items.Add("country2")
ComboBox1.Items.Add("country3")
'أكتبي أسمآء الدول ..
End Sub

Private Sub ComboBox1_SelectedIndexChanged
If ComboBox1.SelectedItem = "country1" Then

ComboBox2.Items.Add("city1")
ComboBox2.Items.Add("city2")
ComboBox2.Items.Add("city3")

ElseIf ComboBox1.SelectedItem = "country2" Then

ComboBox2.Items.Add("city11")
ComboBox2.Items.Add("city22")
ComboBox2.Items.Add("city33")

ElseIf ComboBox1.SelectedItem = "country3" Then

ComboBox2.Items.Add("city111")
ComboBox2.Items.Add("city222")
ComboBox2.Items.Add("city333")

End If
End Sub

Private Sub Form1_Load

طيب اوكي كدا الكود بس كيف اربط

Label يحتوي علي الفنادق والمطاعم والمتاحف)اذا ختار الفنادق او المطاعم او التاحف يظهر في ) ComboBox3

مثلا فيCom 3 Hotels

Restaurants

Shopping Area

Landmarks

Museums

المستخدم ايش يبغي معلوما يختارهااا وتظهر في Label وطبعا هذا الاختيار تابع للدوله والمدينه انشاء اكون عرفت اشرح

ايوه صح الله يفتح عليك وينور طريقك يارب ويسعدك يارب لانك صراحه ماقصرتي معايه ويعطيك علي قد نيتك يارب

اعتقد أن في الحالات المشابهة = يحبذ استخدام SelectedIndex وتعامل مع بعض القوائم وبعض الصفوفات, طبعاً هذا سيبتر شجرة الـ ( If, Else, ElseIf, Then ) أو شجرة الـ ( Select Case, Case(s) ) >

جرب المثال المرفق وشاهد كم سهل وقصير Code الربط بين أسماء البلدان و أسماء مدنهم وأسماء فنادق كل من المدن .

ستجد في بداية المشروع عملية تدعى ( SetInfo ) تستخدم هذه العملية لإضافة, وإعداد كل من البلدان المضافة .

بالتوفيق .

UsingOOPComb.zip

thanks so much

nice idea but little different

Yeah, It's kinda different, because we always look forward for a better solution :P .

If you want to use one of ( If Then, Select Case ) Statements, You'll have to write a long long code :D .

Something like the following :

If ComboBox1.SelectedItem.ToString = "CUTName" Then

If ComboBox2.SelectedItem.ToString = "CITName" Then

If ComboBox3.SelectedItem.ToString = "HTLName" Then

ElseIf ComboBox3.SelectedItem.ToString = "AnotherHTLName" Then

It woulda take the whole day long to be done :S .

طيب ياقلبي في اي طريقه اخر علي الاساس الي عملنا