تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الربط بين الاثنين الكمبوبكس ليعطيني النتيجه
#1
Rainbow 
المشروع عبارة عن اثنين ComboBox بالاضافة الى PictureBox

اريد ان اربط الكمبوبكس رقم واحد مع الكمبو بوكس 2 بحيث اضغط على القارة مثل اسياء يطلع لي في الكمبوبوكس 2 الدول الاسيوية فقط وكذلك صورة خريطة الدول او العلم مباشرة , وبنفس الطريقة للبقية .

الشكر مقدماً للجميع وتحياتي لكم احبتي.
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#2
ليس بالشئ الصعب ..
سيربط عن طريق Select Case
او جملة الشرط في حدث Combo1_ِClick

مثلا
PHP كود :
'--------------- ملئ الكومبو

Combo2.Clear
If Combo1.text = "آسيا" Then
 Combo2.Items.Add "الصين"
 Combo2.Items.Add "يابان"
'
---------------- وضع الصورة
        Dim file_name 
As String Application.ExecutablePath
        file_name 
file_name.Substring(0file_name.LastIndexOf("\bin")) & _
            
"\Map Asia.jpg"
     '-------------- على أساس أن Map Asia.jpg هو إسم صورة خريطة آسيا و موجود في مجلد البرنامج

        ' 
Load the picture into a Bitmap.
        
Dim bm As New Bitmap(file_name)

        
' Display the results.
        picImage.Image = bm
        picImage.SizeMode = PictureBoxSizeMode.AutoSize

End If 
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة: محمد مسافر
#3
حاولت استخدم جملة الشرط في حدث Combo1_ِClick
بس ما قبل ممكن لو تكرمت توضح لي عن طريق التعديل في المشروع وارسالة الى اكون شاكر لك لاانة سيفيدني كثير
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#4
هذا هو الكود كامل
فقط ألصقه في برنامجك و حاول فهمه
PHP كود :
Public Class Form1

    
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged
        
'--------------- ملئ الكومبو

        ComboBox2.Items.Clear()
        If ComboBox1.Text = "اسياء" Then
            ComboBox2.Items.Add("الصين")
            ComboBox2.Items.Add("يابان")
            '
---------------- وضع الصورة
            Dim file_name 
As String Application.ExecutablePath
            file_name 
file_name.Substring(0file_name.LastIndexOf("\bin")) & _
                
"\Map Asia.png"
            '-------------- على أساس أن Map Asia.jpg هو إسم صورة خريطة آسيا و موجود في مجلد البرنامج

            ' 
Load the picture into a Bitmap.
            
Dim bm As New Bitmap(file_name)


            
PictureBox1.Image bm
            PictureBox1
.SizeMode PictureBoxSizeMode.StretchImage

        End 
If
    
End Sub
End 
Class 

أنظر مرفق مثالك بعد التعديل


الملفات المرفقة
.rar   الدول.rar (الحجم : 90.47 ك ب / التحميلات : 117)
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة: hoob computer , محمد مسافر , Easy4ever
#5
شكراً جزيلاً
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#6
(14-12-13, 08:14 PM)mamas1 كتب : هذا هو الكود كامل
فقط ألصقه في برنامجك و حاول فهمه
PHP كود :
Public Class Form1

    
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged
        
'--------------- ملئ الكومبو

        ComboBox2.Items.Clear()
        If ComboBox1.Text = "اسياء" Then
            ComboBox2.Items.Add("الصين")
            ComboBox2.Items.Add("يابان")
            '
---------------- وضع الصورة
            Dim file_name 
As String Application.ExecutablePath
            file_name 
file_name.Substring(0file_name.LastIndexOf("\bin")) & _
                
"\Map Asia.png"
            '-------------- على أساس أن Map Asia.jpg هو إسم صورة خريطة آسيا و موجود في مجلد البرنامج

            ' 
Load the picture into a Bitmap.
            
Dim bm As New Bitmap(file_name)


            
PictureBox1.Image bm
            PictureBox1
.SizeMode PictureBoxSizeMode.StretchImage

        End 
If
    
End Sub
End 
Class 

أنظر مرفق مثالك بعد التعديل
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#7
طيب
برجاء أن تفهم الأكواد
سأبسط لك
ComboBox2.Items.Clear
نمسح الكومبو الخاص بالدول
If ComboBox1.Text = "اسياء" Then
يعني إذا كانت ComboBox1 الخاصة بالقارات فيها آسيا
إذن نفس الشيء
سوف تضع أسفل الأكواد الخاصة بآسيا
If ComboBox1.Text = "أوروبا" Then
ثم
If ComboBox1.Text = "إفريقيا" Then
.... إلخ
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة:
#8
الله يبارك فيك اخي وماقصرت اناء فاهم الاكواد ولكن مااقصدة اخي الحبيب اريد اول ما يسشتغل الفورم تطلع القارة الاولي مثلاً اسياء ومقابلة الدول, وعنما انتقل الى القارة الثانية تطلع الدول مباشرة حق القارة التانية وتختفي الدولة الاولى الخاصة بالقارة الاول اتمنى ان تكون فكرتي واضحة

بحيث يكون الانتقال مباشرة وتلقائي تظهر دول القارة عند الانتقال من قارة الى اخرى وتختفي الدولة الاولي الخاصة بالقارة السابقة فقط ولك مني اجمل الشكر والمحبة .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#9
نعم
وذلك بالكود أعلاه
عندما تكون كومبو 1 فيها آسيا يتم مسح كومبو 2
ComboBox2.Items.Clear()
ثم ملئها
ComboBox2.Items.Add("الصين")
ComboBox2.Items.Add("يابان")
ثم وضع الصورة
Dim file_name As String = Application.ExecutablePath
file_name = file_name.Substring(0, file_name.LastIndexOf("\bin")) & _
"\Map Asia.png"
'-------------- على أساس أن Map Asia.jpg هو إسم صورة خريطة آسيا و موجود في مجلد البرنامج

' Load the picture into a Bitmap.
Dim bm As New Bitmap(file_name)


PictureBox1.Image = bm
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

أي أن هذا ما تريده
لكني لا أفهم ....
أول ما تشتغل الفورم تملئ الأكواد و أنت قلتها
يعني
أول ما تشتغل الفورم Form_Load
تملئ الكومبو 1 بالقارات

ComboBox1.Items.Add("آسيا")
ComboBox1.Items.Add("أوروبا") ...

ثم عند تغير القيمة التي في ComboBox1 أي
ComboBox1_SelectedIndexChanged
يتم ملئ كومبو 2 بالدول المناسبة
أي بالضبط مسحها
ComboBox2.Items.Clear()
ثم ملئها
كمثال إذا كان ComboBox1 = "آسيا"

If ComboBox1.Text = "اسياء" Then
ComboBox2.Items.Add("الصين")
ComboBox2.Items.Add("يابان")
end If
أتمنى أن تتمكن من فهمي
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة: محمد مسافر
#10
هذا ربط ثابت فماذا لو أردنا إضافة دول أخرى أو قارات أخري
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الربط للمرحله الثانيه لهيئة الزكاة والدخل للفواتير xml Kit909 23 5,770 01-06-23, 12:09 PM
آخر رد: mohamed abdelkawy
  كيفية الربط بين textbox و listbox timgad 2 3,648 27-03-23, 01:59 PM
آخر رد: sanyor77
  الربط بين جدولين فى سيكوال سيرفر حماده ممدوح البحيرى 2 485 28-12-22, 04:22 PM
آخر رد: حماده ممدوح البحيرى
  الفاتوره الاكترونيه للمرحله الثانية الربط Kit909 6 1,621 29-10-22, 09:19 PM
آخر رد: Marayrezdh
  اى معلومة تخص الربط مع هيئة الزكاه والدخل talaattito 1 896 26-10-22, 02:30 AM
آخر رد: AmrSobhy
Rainbow [كود] حساب تاريخ +عدد ايام لتكون النتيجه بعد الحساب =تاريخ محمد مسافر 1 472 14-09-22, 12:05 AM
آخر رد: Taha Okla
  الربط مع قاعدة البيانات SQL mohamedassim 1 948 13-06-22, 02:27 PM
آخر رد: DR.YASER
  [سؤال] مشكلة عند الاختيار من الكمبوبكس تختفي الداتا جريد safralfahd 5 1,469 11-02-22, 01:14 AM
آخر رد: ابراهيم ايبو
  [VB.NET] ماسبب عدوم الربط abomandel 0 804 31-05-21, 07:38 PM
آخر رد: abomandel
  [سؤال] سؤال عن ListView و الربط مع قاعدة البيانات alims 1 1,289 18-03-21, 01:59 AM
آخر رد: alims

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم