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

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

طلب كود خاصFolderBrowserDialog - EMAD268716 - 25-09-19

اصدقائي احتاج لجعل الاداة هذه تبدأ تبحث في القرص c بمجلد معين وشكرا لكم
كود :
FolderBrowserDialog


RE: طلب كود خاصFolderBrowserDialog - EMAD268716 - 26-09-19

(25-09-19, 01:04 PM)EMAD268716 كتب : اصدقائي احتاج لجعل الاداة هذه تبدأ تبحث في القرص c بمجلد معين وشكرا لكم
كود :
FolderBrowserDialog

ليه ماحد عم يساعدني لو سمحتم

RE: طلب كود خاصFolderBrowserDialog - asemshahen5 - 28-09-19

PHP كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim dd As New FolderBrowserDialog
        'تحديد المسار المطلوب'
        dd.SelectedPath = "c:\"
'        'تحديد الجذر الخاص بالاداة'
        dd.RootFolder = Environment.SpecialFolder.MyComputer
        If dd.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = dd.SelectedPath
        End If
    End Sub 


RE: طلب كود خاصFolderBrowserDialog - AbdoDabak - 28-09-19

PHP كود :
Dim f As New FolderBrowserDialog
        f.SelectedPath = "مسار المجلد"
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
            End If