تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الجمع بين اداتين
#11
(29-09-19, 11:25 PM)asemshahen5 كتب : أنا أرى ان استخدام الاداة OpenFileDialog تكفي لما تريد أو ضع مثال مصغر لما تريد .
راح ارفق هذا المشروع مع مجلد اسمه all
للتوضيح بعض الاسماء عاوز اختار لها مجلد وبعضها ملفات عم تحفظ مساراتها ضمن قاعة البيانات لما اختار اسم شخص افتح هذا المسار الخاص به


الملفات المرفقة
.rar   مسار مجلد خاص بالاسم.rar (الحجم : 296.67 ك ب / التحميلات : 2)
الرد }}}
تم الشكر بواسطة:
#12
تفضل أرجو ان يكون هذا الحل المناسب :

PHP كود :
   Private Sub Button5_Click(sender As ObjectAs EventArgsHandles Button5.Click
        If MsgBox
("هل تريد اختيار مجلد"MsgBoxStyle.YesNo"") = MsgBoxResult.Yes Then
            Dim fld 
As New FolderBrowserDialog
            If fld
.ShowDialog Windows.Forms.DialogResult.OK Then
                MsgBox
(fld.SelectedPath)
 
           End If
 
       Else
            Dim opd 
As New OpenFileDialog
            opd
.Filter "كل الملفات |*.*"
 
           If opd.ShowDialog Windows.Forms.DialogResult.OK Then
                MsgBox
(opd.FileName)
 
           End If
 
       End If
 
   End Sub 
الرد }}}
تم الشكر بواسطة:
#13
(29-09-19, 11:57 PM)asemshahen5 كتب : تفضل أرجو ان يكون هذا الحل المناسب :

PHP كود :
   Private Sub Button5_Click(sender As ObjectAs EventArgsHandles Button5.Click
        If MsgBox
("هل تريد اختيار مجلد"MsgBoxStyle.YesNo"") = MsgBoxResult.Yes Then
            Dim fld 
As New FolderBrowserDialog
            If fld
.ShowDialog Windows.Forms.DialogResult.OK Then
                MsgBox
(fld.SelectedPath)
 
           End If
 
       Else
            Dim opd 
As New OpenFileDialog
            opd
.Filter "كل الملفات |*.*"
 
           If opd.ShowDialog Windows.Forms.DialogResult.OK Then
                MsgBox
(opd.FileName)
 
           End If
 
       End If
 
   End Sub 

شكرا اخي حل مناسب يفي بالغرض
الرد }}}
تم الشكر بواسطة: asemshahen5
#14
الحمد الله و الشكر الله .
الرد }}}
تم الشكر بواسطة:



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


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