تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [نقاش] [VB.NET] جعل المشروع يعمل تلقائي nabil-maher 4 154 05-11-16, 02:32 AM
آخر رد: الماجيك مسعد
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 133 29-10-16, 03:42 PM
آخر رد: أبووسم
  [سؤال] كيف نضع شرط لهذا الكود abumuhannadzym 12 328 09-10-16, 10:36 PM
آخر رد: abumuhannadzym
  [سؤال] مساعدة في تحويل المشروع من VB6 الى الدونت نت عبدالرحمن المكاوي 8 237 09-10-16, 06:21 PM
آخر رد: أبو عمر
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 106 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي
  اضافة sub داخل كلاس المشروع لتعبئة الكمبو بوكس في الفورم علي كعبي 0 103 17-09-16, 05:28 PM
آخر رد: علي كعبي
  [سؤال] مساعدة في تحويل اكواد المشروع عبدالرحمن المكاوي 1 93 07-09-16, 09:27 PM
آخر رد: عبدالرحمن المكاوي
  التعديل على هذا المشروع abdulla2 10 283 07-09-16, 12:39 AM
آخر رد: abdulla2
  ضروري يا اخوان لازم اسلم المشروع , فيجوال بيسك مع الواقع mudz 1 95 06-09-16, 06:06 AM
آخر رد: %Eman%
  [سؤال] تحويل المشروع الي ملف تنفيزى احمد الامين 5 181 01-09-16, 01:18 PM
آخر رد: احمد الامين

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


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