منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] معرفة جميع الملفات الموجودة في الريسورس Resources - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] معرفة جميع الملفات الموجودة في الريسورس Resources (/showthread.php?tid=490)

معرفة جميع الملفات الموجودة في الريسورس Resources - @@أبورائد@@ - 11-10-13

السلام عليكم ورحمة الله وبركاته


هذا كود لمعرفة جميع الملفات الموجودة في 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


السلام عليكم ورحمة الله وبركاته

RE: @@@ معرفة جميع الملفات الموجودة في الريسورس Resources @@@ - sooriaty03 - 13-10-13

السلام عليكم ورحمة الله وبركاته

جزاك الله خيرا أخي أبورائد

وجعله الله في ميزان حسناتك

RE: @@@ معرفة جميع الملفات الموجودة في الريسورس Resources @@@ - Omar Mekkawy - 18-10-13

بارك الله فيك وجعله الله في ميزان حسناتك Blush

RE: @@@ معرفة جميع الملفات الموجودة في الريسورس Resources @@@ - ali.alfoly - 20-10-13

جزاك الله خيرا وجعله في موازين حسناتك
اسأل الله تعالى أن يحفظك ويبارك فيك
موضوع مميز يدل على خبرة طويلة
جزاك الله خيرا