07-02-20, 10:39 PM
(07-02-20, 10:18 PM)alsalamoni كتب : انت كاتب محترم
واكيد تعرف معنى الكلمة قبل نشرها
فاذا انا زعلت، فأكيد بسبب قصر فهمي لكلامك
وفي النهاية انا لم يخطر على بالي ان ازعل
على افتراض انه يوجد في الفورم ImageList وفيها الصور
كود :
Dim dir As String = Application.StartupPath & "\files\"
Dim sss As String = dir
For Each fil In System.IO.Directory.GetFiles(sss)
Dim itm As New ListViewItem(IO.Path.GetFileNameWithoutExtension(fil))
itm.ImageKey = "ImageList_اسم_الايقونة_الموجودة_في"
ListView1.Items.Add(itm)
lst.Add(fil)
Next
ولا تنسى ان تربط الليست فيو باداة imagelist
الان انتبهت ان التي في الصورة TreeView وليست ليست فيو؟
فهل تريد TreeView أم ListView?
تسلم أخى ربنا يكرمك ويبارك بعمرك ...
فعلا هذا نجح وجلب كل الصور داخل الاأداة...
وهى بالفعل أداة ليست فيو لكن الصورة كانت فقط للتشبيه...
جزاك الله جنة عرضها كعرض السموات والأرض..
النتيجة :-
