تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] استغلال listview و imageliste لاستعراض الملفات و البحث داخل listView
#1
السلام عليكم 

تجسيدا لبعض ما تعلمناه  من هنا و هناك 

هذا مثال عن كيفية استغلال عنصر ListView


اولا :
في صفحة العمل نضيف عنصر ليس فيو
و نضيف اليه اربعة اعمدة  الاسم و النوع و الحجم و مسار الملف


نعلن عنه في كود الصفحة العام 
PHP كود :
Dim Monlist As New ListViewItem() 


الان نضيف زر ليظهر لنا مربع اظهار مجلد البحث FolderBrowserDialog
PHP كود :
 Dim dos As New FolderBrowserDialog
       

و النتيجة يظهر مسار المجلد في مربع نص  textbox1

PHP كود :
    TextBox1.Text dos.SelectedPath
       

 و النتائج في اليست فيو

 الان في عنصر image list



  نضيف صور تعبر عن نوعية الملفات صور او ملف وورد او ملف pdf او مجلد او ملف صوتي  ....الخ

نضيف نوع الصورة  (img) الى العنصر في اخر الكود مثال
PHP كود :
ListView1.Items.Add(New ListViewItem({type.Nameexttaifile}, img)) 


لذلك سيكون كود الزر بشكل كلي  عند الضغط هو :

PHP كود :
  ListView1.Items.Clear()
 
       Dim img As Integer 1
        Dim dos 
As New FolderBrowserDialog
        If dos
.ShowDialog() = 1 Then
            TextBox1
.Text dos.SelectedPath
            For Each dossier In IO
.Directory.GetDirectories(dos.SelectedPath)
 
               Dim info As New IO.DirectoryInfo(dossier)
 
               ListView1.Items.Add(New ListViewItem({info.Name"Dossier"""dossier}, 0))
 
               For Each file In IO.Directory.GetFiles(dossier)
 
                   Dim type As New IO.FileInfo(file)
 
                   Dim ext As String type.Extension.Substring(1type.Extension.Length 1)
 
                   If ext "mp3" Then
                        img 
6
                    ElseIf ext 
"txt" Then
                        img 
2
                    ElseIf ext 
"pdf" Then
                        img 
5
                    ElseIf ext 
"docx" Then
                        img 
3
                    ElseIf ext 
"png" Or ext "jpg" Or ext "gif" Then
                        img 
4
                    End 
If
 
                   Dim tai As String = (type.Length 1024 1024).ToString("0.00") & " Mo"
 
                   ListView1.Items.Add(New ListViewItem({type.Nameexttaifile}, img))
 
                 
                Next
            Next
            For Each file In IO
.Directory.GetFiles(dos.SelectedPath)
 
               Dim type As New IO.FileInfo(file)
 
               Dim ext As String type.Extension.Substring(1type.Extension.Length 1)
 
               If ext "mp3" Then
                    img 
6
                ElseIf ext 
"txt" Then
                    img 
2
                ElseIf ext 
"pdf" Then
                    img 
5
                ElseIf ext 
"docx" Then
                    img 
3
                ElseIf ext 
"png" Or ext "jpg" Or ext "gif" Then
                    img 
4
                End 
If
 
       Dim tai As String = (Type.Length 1024 1024).ToString("0.00") & " Mo"
 
               ListView1.Items.Add(New ListViewItem({type.Nameexttaifile}, img))
 
           
            Next
        End 
If 



و معناه سيبظهر مربع بحث عن مجلد ............ لما تختار مجلد 
اولا سيظهر ملفاته هو ثم مجلدات تابعة له و ملفاتها ايضا
و سيقارن نوع الملف ان كان صوتا mp3 او ملف تكست txt او ملف pdf او ملف وورد docx  او صورة  gif.png . jpg
طبعا يمكنك اضافة اشكال اخرى و صور اخرى غير فقط في الكود و الشرط 
................
جميل جدا
الان نضيف مربع نص في الاسفل من اجل البحث التلقائي و عنصر ليستبوكس  listbox ......... يعني كلما كتب حرفا في مربع النص سيظهر النتائج في قائمة listbox 
لذلك سنستعمل خاصية TextBox2_TextChanged

نزرع فيه الكود التالي :
PHP كود :
 ListBox1.Items.Clear()

 
       For Each item As ListViewItem In ListView1.Items
            If item
.Text.Contains(TextBox2.TextThen
                ListBox1
.Items.Add(item.Text)
 
           End If
 
       Next 

 الشكل النهائي للعمل :




الملف المفتوح للتعديل و المعاينة
https://top4top.io/downloadf-1682gsjbg1-rar.html
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة: حريف برمجة , asemshahen5 , tryold , Anas Mahmoud
#2
جزاك الله خيرا اخي الكريم 
منذ فترة وجدت مكتبة في Code Project تقوم بعمل شجرة ملفات ، وعلى الهامش يقوم بعمل مثال ليست فيو لعرض الملفات :




https://www.codeproject.com/Articles/422...gation-and

الكود عموما مفيد جدا في فعض لجزئيات ولكنه ليس بسيط ، او هذا رأيي فيه عندما رأيته من فترة
الرد
تم الشكر بواسطة: عبد الهادي بهاب , asemshahen5
#3
(09-08-20, 05:32 PM)Anas Mahmoud كتب : جزاك الله خيرا اخي الكريم 
منذ فترة وجدت مكتبة في Code Project تقوم بعمل شجرة ملفات ، وعلى الهامش يقوم بعمل مثال ليست فيو لعرض الملفات :
الكود عموما مفيد جدا في فعض لجزئيات ولكنه ليس بسيط ، او هذا رأيي فيه عندما رأيته من فترة

ما شاء الله
موسوعة استاذ انس
الله لايحرمنا من علمك
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال للتعبئة داخل نموذج جاهز mmali127 2 292 25-11-20, 11:46 AM
آخر رد: mmali127
Wink [مشروع] مشروع للبحث داخل نص وتحديد عدد نتائج البحث مع السورس كود ahmadpal 2 668 12-11-20, 03:32 PM
آخر رد: alsouf
  [مشروع] تصميم تطبيق لقفل واخفاء الملفات مع السورس كود ahmadpal 11 2,091 10-11-20, 06:41 PM
آخر رد: djtech
Lightbulb [مشروع] البحث عن الكلمات العربية داخل النصوص بالتشكيل ( التحريك ُ َ ً ِ ٍ ) Anas Mahmoud 4 694 04-11-20, 01:09 AM
آخر رد: kiki
  [مشروع] توليد ارقام جوال عشوائية والسبب داخل سعود 0 265 31-10-20, 03:36 AM
آخر رد: سعود
  [مشروع] برنامج البحث السريع في القران الكريم عبد الهادي بهاب 2 472 15-10-20, 09:51 AM
آخر رد: ibra9009
  [مشروع] اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL elgokr 11 3,333 29-09-20, 07:05 PM
آخر رد: kiki
Sad [سؤال] بحث داخل الداتا تابل منه 0 327 11-07-20, 05:53 PM
آخر رد: منه
  [سؤال] كود بحث داخل الداتا تابل منه 3 603 10-07-20, 08:20 PM
آخر رد: asemshahen
  [سؤال] التحكم في الملفات الخارجيه منه 4 536 07-07-20, 12:33 AM
آخر رد: boudyonline

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


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