ImageList dynamisch aus dem ResourceManager erstellen

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

    Private Function buildImageListFromResources() As ImageList
        Dim liResourceImages As ImageList = New ImageList()

        Dim dicEnumerator As IDictionaryEnumerator
        Dim rReader As ResourceReader

        With Assembly.GetExecutingAssembly
            rReader = New ResourceReader(.GetManifestResourceStream(My.Resources.Resources.ResourceManager.BaseName & ".resources"))
        End With

        dicEnumerator = rReader.GetEnumerator

        While dicEnumerator.MoveNext
            If dicEnumerator.Value.GetType() = GetType(System.Drawing.Bitmap) Then
                liResourceImages.Images.Add(dicEnumerator.Key, dicEnumerator.Value)
            End If
        End While

        rReader.Close()

        Return liResourceImages
    End Function