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

السلام عليكم ورحمة الله وبركاتة

اكثر الشروحات الموجوده على النت لهذه الادوات هي خاصة فيجوال بيسك 6

DriveListBox

DirListBox

FileListBox

لذا حبيت اضع هذه الاكواد ربما تفيد

كود :

Private Sub DriveListBox1_SelectedIndexChanged_2(sender As Object, e As EventArgs) Handles DriveListBox1.SelectedIndexChanged

        DirListBox1.Path = DriveListBox1.Drive

    End Sub

    Private Sub DirListBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles DirListBox1.SelectedIndexChanged

        FileListBox1.Path = DirListBox1.Path

    End Sub

ولعرض الصور من اداة العرض FileListBox عند الاختيار في اداة PictureBox اليكم هذا الكود

كود :

PictureBox1.Image = Drawing.Image.FromFile(FileListBox1.Path & "..\" & FileListBox1.FileName)

اتمنى لكم التوفيق

الف شكر على هذه الذكرة الجميلة .

في الدوت نت يجب عليك عمل التالي :

أولا :

ضع الادوات التالية على الفورم :

كومبو بوكس باسم : CmbDriveList

ليست بوكس باسم : lstDirectoryList

ليست بوكس ثان باسم : lstFileList

ثانيا :

نفتح نافذة الكود الخاصة بالفورم و نضع الكودالتالي :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CmbDriveList.DataSource = My.Computer.FileSystem.Drives
    End Sub
    Private Sub CmbDriveList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbDriveList.SelectedIndexChanged
        lstDirectoryList.DataSource = My.Computer.FileSystem.GetDirectories(CmbDriveList.SelectedValue.ToString())
    End Sub
    Private Sub lstDirectoryList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstDirectoryList.SelectedIndexChanged
        lstFileList.DataSource = My.Computer.FileSystem.GetFiles(lstDirectoryList.SelectedValue.ToString())
    End Sub 

مع أطيب تمنيتي لكم بالتوفيق و النجاح .

شرفت طرحي المتواضع الف شكر لك عزيزي ( asemshahen5 )

بالفعل كود جدا جميل الله يعطيك الف عافية

الكود على مايبدو فيه خطا

System.IO.IOException: 'The device is not ready.

lstDirectoryList.DataSource = My.Computer.FileSystem.GetDirectories(CmbDriveList.SelectedValue.ToString())

تفضل هذا مثال على نفس الكود .

مشكور عزيزي الله يعطيك العافية

عارف الكود عزيزي وكيفية استخدامة المشكلة عندي انا في ملفات النظام وانا احاول حلها

System.IO.IOException: 'The device is not ready

الادوات مع الاكواد موجودة الان في Visual Studio 2019

لذا انا نزلتها ربما احد يستفيد منها

تحياتي لك

PHP كود :

   Private Sub CmbDriveList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbDriveList.SelectedIndexChanged
        Try
            lstDirectoryList.DataSource = My.Computer.FileSystem.GetDirectories(CmbDriveList.SelectedValue.ToString())
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub 

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

alnasser

asemshahen5

alnasser

asemshahen5

alnasser

asemshahen5