29-12-19, 09:50 AM
السلام عليكم ورحمة الله وبركاتة
اكثر الشروحات الموجوده على النت لهذه الادوات هي خاصة فيجوال بيسك 6
DriveListBox
DirListBox
FileListBox
لذا حبيت اضع هذه الاكواد ربما تفيد
ولعرض الصور من اداة العرض FileListBox عند الاختيار في اداة PictureBox اليكم هذا الكود
اتمنى لكم التوفيق
اكثر الشروحات الموجوده على النت لهذه الادوات هي خاصة فيجوال بيسك 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)
اتمنى لكم التوفيق