+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : كود DriveListBox ربما يفيد (/showthread.php?tid=32730)
كود DriveListBox ربما يفيد - alnasser - 29-12-19
السلام عليكم ورحمة الله وبركاتة
اكثر الشروحات الموجوده على النت لهذه الادوات هي خاصة فيجوال بيسك 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)اتمنى لكم التوفيق
RE: كود DriveListBox ربما يفيد - asemshahen5 - 29-12-19
الف شكر على هذه الذكرة الجميلة .
في الدوت نت يجب عليك عمل التالي :
أولا :
ضع الادوات التالية على الفورم :
كومبو بوكس باسم : 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
RE: كود DriveListBox ربما يفيد - alnasser - 30-12-19
شرفت طرحي المتواضع الف شكر لك عزيزي ( asemshahen5 )
بالفعل كود جدا جميل الله يعطيك الف عافية
الكود على مايبدو فيه خطا
System.IO.IOException: 'The device is not ready.
lstDirectoryList.DataSource = My.Computer.FileSystem.GetDirectories(CmbDriveList.SelectedValue.ToString())
RE: كود DriveListBox ربما يفيد - asemshahen5 - 30-12-19
تفضل هذا مثال على نفس الكود .
RE: كود DriveListBox ربما يفيد - alnasser - 30-12-19
مشكور عزيزي الله يعطيك العافية
عارف الكود عزيزي وكيفية استخدامة المشكلة عندي انا في ملفات النظام وانا احاول حلها
System.IO.IOException: 'The device is not ready
الادوات مع الاكواد موجودة الان في Visual Studio 2019
لذا انا نزلتها ربما احد يستفيد منها
تحياتي لك
RE: كود DriveListBox ربما يفيد - asemshahen5 - 31-12-19
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