+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
RE: الجمع بين اداتين - المنذر - 29-09-19
(29-09-19, 11:25 PM)asemshahen5 كتب : أنا أرى ان استخدام الاداة OpenFileDialog تكفي لما تريد أو ضع مثال مصغر لما تريد .راح ارفق هذا المشروع مع مجلد اسمه all
للتوضيح بعض الاسماء عاوز اختار لها مجلد وبعضها ملفات عم تحفظ مساراتها ضمن قاعة البيانات لما اختار اسم شخص افتح هذا المسار الخاص به
RE: الجمع بين اداتين - asemshahen5 - 29-09-19
تفضل أرجو ان يكون هذا الحل المناسب :
PHP كود :
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 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
RE: الجمع بين اداتين - المنذر - 30-09-19
(29-09-19, 11:57 PM)asemshahen5 كتب : تفضل أرجو ان يكون هذا الحل المناسب :
PHP كود :
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 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
شكرا اخي حل مناسب يفي بالغرض
RE: الجمع بين اداتين - asemshahen5 - 30-09-19
الحمد الله و الشكر الله .