Поместите содержимое переменной в выражение

Question

Я хочу поместить содержимое переменной в выражение, теперь я объясню лучше: пользователь выбирает файл, и я получаю расширение этого с помощью

Dim EXTENSION as String = Path.GetExtension(Path)

Хорошо, я импортировал в свой проецировать некоторые png в My.Resources. Я хочу, чтобы в картинке отображалось изображение в соответствии с расширением файла

PicutureBox.Image = My.Resources.EXTENSION

, но я не могу добавить EXTENSION в выражение my.resources. PS: все ресурсы, которые я импортировал, имеют для имени расширение

имя ресурса этого файла - My.Resouces. css

Как я могу это сделать? Извините за мой плохой английский sh, я всего лишь итальянец в возрасте 16 лет!

Answer 1

PictureBox.Image = DirectCast(My.Resources.ResourceManager.GetObject(EXTENSION), Image)

Answer 2

Я использовал ваше изображение в качестве примера, но оно будет работать для вас

    Dim ext As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ext = "css" 'here is your extension
        PictureBox1.Image = My.Resources.ResourceManager.GetObject(ext) 'here we load the file
    End Sub

Результат: