Отображение изображений из файла в Pictureboxes

У меня есть папка под названием

App.Path & "Images"

Внутри него у меня есть 5 изображений, и в моем Formя также 5 Pictureboxes. Теперь мой вопрос в том, как я могу отображать их все PictureBoxпо одному Imageза раз? heres is my code so far

Picture1.Picture = LoadPicture("Path")

Вот что я сделал до сих пор

 Dim c         As Control
    Dim ImageLink As String

    With vs1

        For Each c In Form1
            For i = 1 To .Rows - 1

                If Len(ImageLink) > 0 Then ImageLink = ImageLink


                Debug.Print c.Picture
                Debug.Print .TextMatrix(i, .ColIndex("Image"))
                MsgBox .TextMatrix(i, .ColIndex("Image"))
                c.Picture = LoadPicture("C:UserspaulDesktopGondola Monitoring SystemImage" & .TextMatrix(i, .ColIndex("Image")))

            Next
        Next
    End With
    Form1.Show

Я пытаюсь записать имя файла в flexgrid и вызвать его в каждом элементе управления.

TYSM для помощи

1 ответ

  1. Picture1.Picture = LoadPicture(App.Path & "\Images\file1.jpg")
    Picture2.Picture = LoadPicture(App.Path & "\Images\file2.jpg")
    Picture3.Picture = LoadPicture(App.Path & "\Images\file3.jpg")
    Picture4.Picture = LoadPicture(App.Path & "\Images\file4.jpg")
    Picture5.Picture = LoadPicture(App.Path & "\Images\file5.jpg")
    

    Если это не дает вам то, что вам нужно, пожалуйста, предоставьте более подробную информацию о ваших требованиях.

    РЕДАКТИРОВАТЬ

    Ваш код не будет работать. Вы зацикливаетесь на всех элементах управления, которые будут включать любые кнопки, метки и т.д., В дополнение к элементам управления изображением, и для каждого элемента управления вы зацикливаетесь на всех строках вашей сетки. Одним из лучших подходов было бы определить элементы управления picture как массив (начиная с индекса от 1, чтобы соответствовать вашему циклу grid for), затем индекс for используется так, чтобы строки сетки и индексы изображения совпадали. Что-то вроде этого:

    With vs1
        For i = 1 To .Rows - 1
            Picture1(i).Picture = LoadPicture("C:\Users\paul\Desktop\Gondola Monitoring System\Image\" & .TextMatrix(i, .ColIndex("Image")))
        Next
    End With