منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] الجمع بين اداتين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] الجمع بين اداتين (/showthread.php?tid=31561)

الصفحات: 1 2

الجمع بين اداتين - المنذر - 29-09-19

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

كود :
OpenFileDialog


RE: الجمع بين اداتين - asemshahen5 - 29-09-19

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 


RE: الجمع بين اداتين - المنذر - 29-09-19

(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 
اخي الكريم شكرا لك جربت هذا الكود ومن خلاله عم يعرض فقط المجلدات اما الملفات فهي غير ضاهرة

RE: الجمع بين اداتين - asemshahen5 - 29-09-19

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

RE: الجمع بين اداتين - المنذر - 29-09-19

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

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

RE: الجمع بين اداتين - asemshahen5 - 29-09-19

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

PHP كود :
opd.Filter = "Notepad .txt|*.txt" 
PHP كود :
opd.Filter = "كل الملفات |*.*" 


RE: الجمع بين اداتين - المنذر - 29-09-19

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

PHP كود :
opd.Filter = "Notepad .txt|*.txt" 
PHP كود :
opd.Filter = "كل الملفات |*.*" 
عم عذبك معي بدلت الكود الذي ارسلته لي اصبحت استطيع اختيار ملف ولا استطيع اختيار مجلد

RE: الجمع بين اداتين - asemshahen5 - 29-09-19

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 

أو وضح أكثر .

RE: الجمع بين اداتين - المنذر - 29-09-19

(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 بوتن  وشكرا

RE: الجمع بين اداتين - asemshahen5 - 29-09-19

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