تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] استكمال لهذا المشروع
#1
تصحيح الكود فى المشروع المرفق بحيث عند اختيار فولد من القائمة المنسدلة فى ال combobox الاول يسرد لى ما بداخل هذا الفلدر من فولدرات فرعية فى ال combobox الثانى


الملفات المرفقة
.rar   browser1.rar (الحجم : 204.04 ك ب / التحميلات : 6)
الرد }}}}
تم الشكر بواسطة:
#2
المشكلة تحدث في CombpBox1 حيث يحتوى اسماء الملفات بدون المسار
جرب الان
PHP كود :
Private Sub TextBox1_MouseClick(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles TextBox1.MouseClick
        
If (FolderBrowserDialog1.ShowDialog() = DialogResult.OKThen
            TextBox1
.Text FolderBrowserDialog1.SelectedPath
        End 
If
    
End Sub
    
Private Sub TextBox1_TextChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles TextBox1.TextChanged
        ComboBox1
.Items.AddRange(IO.Directory.GetDirectories(TextBox1.Text).ToArray)

    
End Sub


    
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedValueChanged
        ComboBox2
.Items.AddRange(IO.Directory.GetFiles(ComboBox1.Text).ToArray)

    
End Sub 
الرد }}}}
تم الشكر بواسطة:
#3
شكرا لاهتمامك بس انا عايز اسماء الفلدرات فقط الى تظهر من غير المسار الكامل
الرد }}}}
تم الشكر بواسطة:
#4
الفلدرات ولا الملفات؟ وفي أي ComboBox الأول او الثاني؟
الرد }}}}
تم الشكر بواسطة:
#5
الملفات والفلدرات وفى ال comcobox الاول والثانى
الرد }}}}
تم الشكر بواسطة:
#6
هذا التعديل
PHP كود :
Public Class Form1

    Dim files 
As String()

    Private 
Sub TextBox1_MouseClick(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles TextBox1.MouseClick
        
If (FolderBrowserDialog1.ShowDialog() = DialogResult.OKThen
            TextBox1
.Text FolderBrowserDialog1.SelectedPath
            files 
IO.Directory.GetDirectories(TextBox1.Text)
            
ComboBox1.Items.AddRange(files.Select(Function(nameIO.Path.GetFileName(name)).ToArray)
        
End If
    
End Sub

    
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedValueChanged
        ComboBox2
.Items.AddRange(IO.Directory.GetFiles(files(ComboBox1.SelectedIndex)).Select(Function(nameIO.Path.GetFileName(name)).ToArray)

    
End Sub

End 
Class 
الرد }}}}
تم الشكر بواسطة: طالب 22


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 70 21-05-17, 01:18 AM
آخر رد: mohamed haroon
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 48 19-05-17, 04:09 PM
آخر رد: e-coder
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 206 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 81 11-05-17, 09:56 AM
آخر رد: جميل علي
  مشكلة فى المشروع MOSTAFA.KAMEL 9 214 06-05-17, 03:46 AM
آخر رد: zinom
  المساعدة بربط الاكسل مع المشروع khaled12345 0 54 13-04-17, 08:13 AM
آخر رد: khaled12345
  [VB.NET] مشكلة في حفظ اعدادات المشروع سعود الشامان 12 338 22-03-17, 08:32 AM
آخر رد: abdualla
  [سؤال] أريد كود لتشغيل صوت مخصص عند تشغيل المشروع أو البرنامج محمد سعيد عبد الظاهر 2 150 17-03-17, 06:13 PM
آخر رد: محمد سعيد عبد الظاهر
  طلب التعديل على المشروع MOSTAFA.KAMEL 0 99 14-03-17, 05:11 PM
آخر رد: MOSTAFA.KAMEL
  الرجاء النظر لهذا السؤال بخصوص الإندكس abdulla2 1 93 08-03-17, 08:33 AM
آخر رد: مساعدة

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


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