تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] FolderBrowserDialog
#11
(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)
اخي الكريم لم ينجح هذا الكود
الرد }}}
تم الشكر بواسطة:
#12
اخي اش هو البرنامج اللي انت عبتستخدموا
هاد الكود شغال جربتو انا اشتغل معي

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) 
الرد }}}
تم الشكر بواسطة: asemshahen5
#13
اخي اذا ما صار معك الكود الاول جرب هاد الكود
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\ لمسار المجلد اللي بدك تختار منو
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] FolderBrowserDialog المنذر 6 1,835 29-09-19, 02:38 AM
آخر رد: AbdoDabak
  اضافة الملفات من داخل الفولدر بواسطة FolderBrowserDialog ابو روضة 3 1,888 03-03-18, 06:07 AM
آخر رد: هشام محمد18
  [VB.NET] استعمال أداة FolderBrowserDialog لتحديد مسارين djelloul 3 2,368 17-11-15, 01:36 AM
آخر رد: djelloul

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


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