[SOLUCIONADO] Obtener todos los recursos de tipo TEXTO de My.Resources

[Eleкtro]

Esto no sé hacerlo así que he buscado en Google,
He probado las 2 maneras que se comentan aquí pero ninguna me funciona: http://stackoverflow.com/questions/1000510/how-to-get-the-names-of-all-resources-in-a-resource-file

Necesito hacer algo así:

Código (vbnet) [Seleccionar] Expandir

  Private Sub SearchInResources(ByVal PatternSTR As String)
       For Each ResourceFile In My.Resources ' Esto no funciona cláramente xD
           If ResourceFile.EndsWith(".txt") Then
               Dim fileContent As String = ResourceFile
               Dim stringStream As New System.IO.StringReader(fileContent)
               If stringStream.contains(PatternSTR) Then
                   ' Cosas...
               End If
           End If
       Next
   End Sub

[seba123neo]

obtener todos los strings de esta forma:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ResourceSet As 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 String Then
                Debug.WriteLine(Dict.Value)
            End If
        Next
    End Sub
End Class

saludos.

[Eleкtro]

Perfecto!

^^

Justo ahora mismo habia sacado ese mismo code en StackOverF... e iba a preguntar cual era el correcto "TypeOf" que debía usar, ya me has sacado de dudas xD

Código (vbnet) [Seleccionar] Expandir

Dim ResourceSet As 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
                   Debug.WriteLine(Dict.Key) 'outputting resource name
               End If
           Next