[alnasser]

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

اكثر الشروحات الموجوده على النت لهذه الادوات هي خاصة فيجوال بيسك 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)

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