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

كاتب الموضوع : 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)

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

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

كود :

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

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

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

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

كود :

FolderBrowserDialog1.SelectedPath = "C:\windows"

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

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

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

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

كود :

FolderBrowserDialog1.ShowNewFolderButton = False

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

RaggiTech

RaggiTech

RaggiTech

RaggiTech