23-07-16, 01:45 PM
تصحيح الكود فى المشروع المرفق بحيث عند اختيار فولد من القائمة المنسدلة فى ال combobox الاول يسرد لى ما بداخل هذا الفلدر من فولدرات فرعية فى ال combobox الثانى
23-07-16, 01:45 PM
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
23-07-16, 02:18 PM
شكرا لاهتمامك بس انا عايز اسماء الفلدرات فقط الى تظهر من غير المسار الكامل
23-07-16, 02:22 PM
الفلدرات ولا الملفات؟ وفي أي ComboBox الأول او الثاني؟
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