11-10-13, 08:16 PM
(آخر تعديل لهذه المشاركة : 27-03-17, 05:45 PM {2} بواسطة @@أبورائد@@.)
السلام عليكم ورحمة الله وبركاته
هذا كود لمعرفة جميع الملفات الموجودة في Resources
معرفة جميع الملفات في الريسورس.
وهذه طريقة لتحديد الصور فقط
طريقة استدعائتها كالتالي في ListBox
السلام عليكم ورحمة الله وبركاته
هذا كود لمعرفة جميع الملفات الموجودة في Resources
معرفة جميع الملفات في الريسورس.
كود :
Public Function ResourcesFiles() As List(Of String)
Dim _List As New List(Of String)
Dim ResourceSet As System.Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True)
For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
_List.Add(Dict.Key)
Next
Return _List
End Function
وهذه طريقة لتحديد الصور فقط
كود :
Public Function ResourcesImageFiles() As List(Of String)
Dim _List As New List(Of String)
Dim ResourceSet As System.Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True)
For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
' لاختيار الصور فقط
If TypeOf (Dict.Value) Is Drawing.Image Then
_List.Add(Dict.Key)
End If
Next
Return _List
End Function
طريقة استدعائتها كالتالي في ListBox
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ListBox1.Items.AddRange(ResourcesFiles.ToArray)
End Sub
يجب الانتباه عند نسخ الكود قد تجد مسافة داخل أحد أسطر الكود (بسبب خلل في عرض الكود) مما يظهر خطأ فيجب حذف المسافة المدرجة
لاحظتها في كلمة CurrentCulture فظهرت بالشكل CurrentCul ture
لاحظتها في كلمة CurrentCulture فظهرت بالشكل CurrentCul ture
السلام عليكم ورحمة الله وبركاته