منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اصدقائي هل استطيع الجمع بين هاتين الاداتين في زر بوتن واحد ومن خلال عرض المجلدات والملفات اختار مجلد او ملف وشكرا لكم

(29-09-19, 09:20 PM)asemshahen5 كتب : [ -> ]

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fld As New FolderBrowserDialog
        Dim opd As New OpenFileDialog
        opd.Filter = "Notepad .txt|*.txt"
        If fld.ShowDialog = Windows.Forms.DialogResult.OK Then
            opd.InitialDirectory = fld.SelectedPath
            If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox(opd.FileName)
            End If
        End If
    End Sub 


اخي الكريم شكرا لك جربت هذا الكود ومن خلاله عم يعرض فقط المجلدات اما الملفات فهي غير ضاهرة

إضغط على موافق في نافذة المجلدات .

(29-09-19, 09:44 PM)asemshahen5 كتب : [ -> ]إضغط على موافق في نافذة المجلدات .

اخي لما اضغط موافق عم يفتح المجد لكن الملفات التي بداخله غير ظاهرة

غيير الفلتر الخاص بالاداة الى تنسيق الملف الذي تريده :

---

(29-09-19, 09:58 PM)asemshahen5 كتب : [ -> ]غيير الفلتر الخاص بالاداة الى تنسيق الملف الذي تريده :

PHP كود :

opd.Filter = "Notepad .txt|*.txt" 


---

PHP كود :

opd.Filter = "كل الملفات |*.*" 


عم عذبك معي بدلت الكود الذي ارسلته لي اصبحت استطيع اختيار ملف ولا استطيع اختيار مجلد

أو وضح أكثر .

(29-09-19, 10:38 PM)asemshahen5 كتب : [ -> ]

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fld As New FolderBrowserDialog
        Dim opd As New OpenFileDialog
        opd.Filter = "كل الملفات |*.*"
        If fld.ShowDialog = Windows.Forms.DialogResult.OK Then
            opd.InitialDirectory = fld.SelectedPath
            If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox(opd.FileName)
            End If
        End If
    End Sub 


أو وضح أكثر .

اخي الكريم عندي بوتن1 لفتح الاداة الاولى واختيار مجلد وبوتن 2لفتح الاداة الثانية واختيار ملف
وفي تكست بوكس واحد عم ينزلي مسار المجلد او الملف الذي اخترته
وفي عندي بوتن 3 لفتح المسار الموجود ضمن التكست بوكس لهنا مافي مشكلة
السؤال بقدر اجمع الاداتين في بوتن واحد ومن شاشة العرض بقدر اختار ملف او مجلد بدل من استخدام 2 بوتن  وشكرا

أنا أرى ان استخدام الاداة OpenFileDialog تكفي لما تريد أو ضع مثال مصغر لما تريد .