+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] FolderBrowserDialog (/showthread.php?tid=31518)
الصفحات:
1
2
RE: FolderBrowserDialog - سلام م - 28-09-19
(27-09-19, 12:59 PM)AbdoDabak كتب :اخي الكريم لم ينجح هذا الكود(27-09-19, 11:34 AM)سلام م كتب : اخي الكريم انا قصدي اعرض اسم المجلد الذي اخترته وليس المجلد الذي اخترت منه مجلد فلو كان اسم المجلد الذي اخترت منه اسمهg واخترت منه مجلد اسمه aa فانا اريد عرض اسم المجلد aaفي تكست بكس وشكرا
اخي هي كود بس مابعرف اذا هاد اللي بدك ياه
بدل الكود السابق كامل بالكود هاد بس غير اللي بدك ياه
D :القرص
g :المجلد اللي بدك تبحث منو
بس لا تشيل : وال \ تركن عحان بس غير الاحرف
كود :
Dim fi As Integer = TextBox1.Text.IndexOf("D:")
Dim ti As Integer = TextBox1.Text.IndexOf("\g\") + Len("\g\")
Dim r As String = TextBox1.Text.Substring(fi, ti - fi)
Dim f As New FolderBrowserDialog
f.SelectedPath = "D:\g\"
If f.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = f.SelectedPath & TextBox1.Text.Replace("D:\g\", False)
End If
TextBox1.Text = TextBox1.Text.Replace(r, String.Empty)
RE: FolderBrowserDialog - AbdoDabak - 28-09-19
اخي اش هو البرنامج اللي انت عبتستخدموا
هاد الكود شغال جربتو انا اشتغل معي
PHP كود :
Dim f As New FolderBrowserDialog
f.SelectedPath = "D:\g\"
If f.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = f.SelectedPath
End If
Dim fi As Integer = TextBox1.Text.IndexOf("D:")
Dim ti As Integer = TextBox1.Text.IndexOf("\g\") + Len("\g\")
Dim re As String = TextBox1.Text.Substring(fi, ti - fi)
TextBox1.Text = TextBox1.Text.Replace(re, String.Empty)
RE: FolderBrowserDialog - AbdoDabak - 28-09-19
اخي اذا ما صار معك الكود الاول جرب هاد الكود
PHP كود :
Dim txtbox As New TextBox
Dim f As New FolderBrowserDialog
f.SelectedPath = "D:\g\"
If f.ShowDialog = Windows.Forms.DialogResult.OK Then
txtbox.Text = f.SelectedPath
Dim ddee As String = Path.GetDirectoryName(txtbox.Text)
ddee = txtbox.Text.Replace(ddee, "")
TextBox1.Text = ddee.Replace("\", "")
End If
في الكود الثاني بس غير D:\g\ لمسار المجلد اللي بدك تختار منو