[silverlight]

PHP كود :

 Friend Function TryGetSynonymous(imageName As String) As Bitmap
        Dim result As Bitmap = CType(Nothing, Bitmap)
        If Not New Dictionary(Of String, Bitmap)() From {{"FirstImageName", My.Resources.FirstImage}, {"SecondImageName", My.Resources.Secondimage}}.TryGetValue(imageName, result) Then
            result = Nothing
        End If
        Return result
    End Function 


اكمل و املأ بقية الصور علي نفس المنوال

حل ثاني

PHP كود :

' حل ثاني
Public Module Bitmaps

    Public ReadOnly Property FirstImageName As Bitmap
        Get
            Return My.Resources.FirstImage
        End Get
    End Property

    Public ReadOnly Property SecondImageName As Bitmap
        Get
            Return My.Resources.Secondimage
        End Get
    End Property

    ' أكمل علي نفس المنوال
End Module 


حل ثالث
اقرأ الموضوع هذا فسوف يفيد


http://vb4arb.com/vb/showthread.php?tid=15217