منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معلومة ::: FolderBrowserDialog - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة ::: FolderBrowserDialog (/showthread.php?tid=5313)

معلومة ::: FolderBrowserDialog - RaggiTech - 06-10-12

كاتب الموضوع : BADRMEDIA


الأداة FolderBrowserDialog

تستخدم فى عرض المجلدات


===============


نقوم بادراج الأداة FolderBrowserDialog من صندوق الأداوت


ضع زر أمر Button و اكتب فيه هذا الكود



كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim selectedFolder As String
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
selectedFolder = FolderBrowserDialog1.SelectedPath
MessageBox.Show(selectedFolder)
End If

End Sub

قمنا بتعريف متغير نصى selectedFolder وسنجعله يحمل مسار المجلد الذى نختار عبر الأداة


كود :
Dim selectedFolder As String

فى حالة لو اختار المستخدم مجلد


كود :
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then

سنحمل المتغير بمسار المجلد المحدد


كود :
selectedFolder = FolderBrowserDialog1.SelectedPath

سنظهر رسالة بالمسار


كود :
MessageBox.Show(selectedFolder)

معلومة ::: FolderBrowserDialog - RaggiTech - 06-10-12

كما نري فى الصورة هناك وصف لمن نريده من اختيار المجلد

وهو أن كتابة سطر الوصف فى الكود السابق


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' سطر للوصف
FolderBrowserDialog1.Description = "حدد المجلد الذى تريد أخذ نسخة احتياطي فيه "

Dim selectedFolder As String
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
selectedFolder = FolderBrowserDialog1.SelectedPath
MessageBox.Show(selectedFolder)
End If

End Sub

معلومة ::: FolderBrowserDialog - RaggiTech - 06-10-12

كما نري فى الصورة عندما فتحنا استعرضنا المجلدات - اول شئ ظهر هو مجلد محدد وهو Windows

لقد قمنا بتحديد مجلد محدد يكون هو الظاهر عندما فتح شاشة الحوار FolderBrowserDialog


حيث أزدنا هذا السطر قبل عرض المجلدات



كود :
FolderBrowserDialog1.SelectedPath = "C:\windows"

حيث حددنا المجلد المطلوب

معلومة ::: FolderBrowserDialog - RaggiTech - 06-10-12

لقد لاحظنا فى الصور السابقة أن زر اضافة مجلد جديد موجود دائما بصفة افتراضية

لكن حان موعد اختفاءه

قبل فتح شاشة الحوار



كود :
FolderBrowserDialog1.ShowNewFolderButton = False