تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود DriveListBox ربما يفيد
#1
السلام عليكم ورحمة الله وبركاتة

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


اتمنى لكم التوفيق
الرد }}}
تم الشكر بواسطة: asemshahen5 , محمد كريّم , محمد كريّم
#2
الف شكر على هذه الذكرة الجميلة .

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

أولا :

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

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

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

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

ثانيا :

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

PHP كود :
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        CmbDriveList
.DataSource My.Computer.FileSystem.Drives
    End Sub
    Private Sub CmbDriveList_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles CmbDriveList.SelectedIndexChanged
        lstDirectoryList
.DataSource My.Computer.FileSystem.GetDirectories(CmbDriveList.SelectedValue.ToString())
 
   End Sub
    Private Sub lstDirectoryList_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles lstDirectoryList.SelectedIndexChanged
        lstFileList
.DataSource My.Computer.FileSystem.GetFiles(lstDirectoryList.SelectedValue.ToString())
 
   End Sub 
مع أطيب تمنيتي لكم بالتوفيق و النجاح .
الرد }}}
تم الشكر بواسطة: alnasser , محمد كريّم , ابو روضة
#3
شرفت طرحي المتواضع الف شكر لك عزيزي ( asemshahen5 )

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

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

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

lstDirectoryList.DataSource = My.Computer.FileSystem.GetDirectories(CmbDriveList.SelectedValue.ToString())
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
تفضل هذا مثال على نفس الكود .


الملفات المرفقة
.zip   DriveComboBox.zip (الحجم : 372.03 ك ب / التحميلات : 45)
الرد }}}
تم الشكر بواسطة:
#5
مشكور عزيزي الله يعطيك العافية

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

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

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

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

تحياتي لك
الرد }}}
تم الشكر بواسطة: asemshahen5
#6
PHP كود :
   Private Sub CmbDriveList_SelectedIndexChanged(sender As ObjectAs EventArgsHandles CmbDriveList.SelectedIndexChanged
        Try
            lstDirectoryList
.DataSource My.Computer.FileSystem.GetDirectories(CmbDriveList.SelectedValue.ToString())
 
       Catch ex As Exception
            MsgBox
(ex.Message)
 
       End Try
 
   End Sub 
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم