دخول

**yasob** · 23-07-16, 01:45 PM

تصحيح الكود فى المشروع المرفق بحيث عند اختيار فولد من القائمة المنسدلة فى ال combobox الاول يسرد لى ما بداخل هذا الفلدر من فولدرات فرعية فى ال combobox الثانى

**الوادي** · 23-07-16, 02:01 PM

المشكلة تحدث في CombpBox1 حيث يحتوى اسماء الملفات بدون المسار
جرب الان

PHP كود :

Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
        If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        ComboBox1.Items.AddRange(IO.Directory.GetDirectories(TextBox1.Text).ToArray)

    End Sub


    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        ComboBox2.Items.AddRange(IO.Directory.GetFiles(ComboBox1.Text).ToArray)

    End Sub 

**yasob** · 23-07-16, 02:18 PM

شكرا لاهتمامك بس انا عايز اسماء الفلدرات فقط الى تظهر من غير المسار الكامل

**الوادي** · 23-07-16, 02:22 PM

الفلدرات ولا الملفات؟ وفي أي ComboBox الأول او الثاني؟

**yasob** · 23-07-16, 02:32 PM

الملفات والفلدرات وفى ال comcobox الاول والثانى

**الوادي** · 23-07-16, 02:45 PM

هذا التعديل

PHP كود :

Public Class Form1

    Dim files As String()

    Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
        If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
            files = IO.Directory.GetDirectories(TextBox1.Text)
            ComboBox1.Items.AddRange(files.Select(Function(name) IO.Path.GetFileName(name)).ToArray)
        End If
    End Sub

    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        ComboBox2.Items.AddRange(IO.Directory.GetFiles(files(ComboBox1.SelectedIndex)).Select(Function(name) IO.Path.GetFileName(name)).ToArray)

    End Sub

End Class 

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة	الرائد	3	1,137	18-02-24, 10:37 PM آخر رد: الحزين اليماني
	ممكن حل لهذا المشكل	melad2002	0	249	30-01-24, 08:01 PM آخر رد: melad2002
	مطلوب كود الطباعة لهذا البرنامج	melad2002	2	247	13-01-24, 06:42 PM آخر رد: melad2002
	[VB.NET] تحويل المشروع سطح المكتب للعمل على الويب	Doby	3	381	13-01-24, 04:22 AM آخر رد: dr.programming
	تحزيم المشروع	Lamyaa	1	323	17-11-23, 07:44 AM آخر رد: أبو خالد الشكري
	ما أسرع استضافة يمكن رفع المشروع عليها ؟	hazim1	0	200	03-10-23, 08:55 AM آخر رد: hazim1
	حفظ المشروع بامتداد معين غير معروف مسبقا	Abo Louay	0	265	29-09-23, 02:55 AM آخر رد: Abo Louay
	ظهور فايروس بعد نشر المشروع	LET ME	1	279	12-08-23, 10:00 AM آخر رد: mrfenix93
	كيفيةة تشغيل المشروع ك ادمن administrator	atefkhalf2004	5	598	12-04-23, 12:41 PM آخر رد: atefkhalf2004
	كيفيةة تشغيل المشروع ك ادمن administrator		0	124	11-04-23, 03:31 AM آخر رد: atefkhalf2004