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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول حماية المشروع Mohamed20 1 61 أمس, 12:59 PM
آخر رد: Master Hacker
  مشكلة ف الحفظ والتعديل بعد تحويل المشروع لملف تنفيذي apo yousef 3 88 23-02-17, 12:28 PM
آخر رد: ssayed111
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 138 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  [VB.NET] المشروع جاهز ولكن بحاجة لتعديل بسيط 3asfa~mdmra 2 147 14-02-17, 01:00 AM
آخر رد: 3asfa~mdmra
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 384 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  مشكلة واحدة على انتهاء المشروع Mohamed20 0 39 13-02-17, 01:49 AM
آخر رد: Mohamed20
  [VB.NET] تحزيم المشروع وطريقة تشغيله على عدة اجهزة subhialjzazy 2 168 29-01-17, 12:06 AM
آخر رد: ابو ليلى
  اداره المشروع من الهاتف ddemed 2 115 19-12-16, 10:25 PM
آخر رد: ddemed
Rainbow [نقاش] [VB.NET] جعل المشروع يعمل تلقائي nabil-maher 4 246 05-11-16, 02:32 AM
آخر رد: الماجيك مسعد
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 229 29-10-16, 03:42 PM
آخر رد: أبووسم

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


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