كيف استطيع استخدام الكمبو بوكس في الvb.net ?

بسم الله الرحمن الرحيم

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

؟

؟

؟

ألا يوجد أحد يرد على الأقل بعدم المعرفة؟

اعلم ان الموضوع قديم و لكن لمن اراد مثل هذا الكود (مثال بسيط )

Drive_Combo.rar

طارق لدي بعض الملاحظات على البرنامج الذي وضعته

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        For Each fname In Directory.GetFiles(ComboBox2.SelectedItem)
            ComboBox3.Items.Add(fname)
        Next fname
    End Sub

اقترح تعديلها الى

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        ComboBox3.Items.Clear()

        For Each fname In Directory.GetFiles(ComboBox2.SelectedItem)
            ComboBox3.Items.Add(fname)
        Next fname
    End Sub

وذلك لمسح الملفات الباقية من الاختيار السابق. فهنا عندما تختار مجلدا ثم تختار مجلدا ثانيا فان الملفات القديمة تبقى مع الملفات الجديدة

اما بالنسبة للمجلدات فمن الافضل التاكد اذا كانت السواقة جاهزة فعلى فرض ان السواقة هي سواقة اقراص ليزرية فارغة فسوف يقوم الملف برمي استثناء من النوع IOException

لذلك اقترح تغير ComboBox1_SelectedIndexChanged الى الشكل التالي

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

        Dim dirs As String()
        ComboBox2.Items.Clear()
        ComboBox3.Items.Clear()
        Try
            dirs = Directory.GetDirectories(ComboBox1.SelectedItem)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return
        End Try

        For Each dirname In dirs
            ComboBox2.Items.Add(dirname)
        Next dirname
    End Sub

أرجو أن تتسع رحابة صدرك لهذه الملاحظات

اشكرك لتصحيح الكود و انا سعيد بهذا