+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [مشروع] استكمال لهذا المشروع (/showthread.php?tid=16550)
استكمال لهذا المشروع - yasob - 23-07-16
تصحيح الكود فى المشروع المرفق بحيث عند اختيار فولد من القائمة المنسدلة فى ال combobox الاول يسرد لى ما بداخل هذا الفلدر من فولدرات فرعية فى ال combobox الثانى
RE: استكمال لهذا المشروع - الوادي - 23-07-16
المشكلة تحدث في 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
RE: استكمال لهذا المشروع - yasob - 23-07-16
شكرا لاهتمامك بس انا عايز اسماء الفلدرات فقط الى تظهر من غير المسار الكامل
RE: استكمال لهذا المشروع - الوادي - 23-07-16
الفلدرات ولا الملفات؟ وفي أي ComboBox الأول او الثاني؟
RE: استكمال لهذا المشروع - yasob - 23-07-16
الملفات والفلدرات وفى ال comcobox الاول والثانى
RE: استكمال لهذا المشروع - الوادي - 23-07-16
هذا التعديل
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