Добавьте несколько файлов .jpg из файла в массив изображений

Question

Я буду кратким и простым ... Я задавал этот вопрос раньше, но на него не было ответа.Я хотел бы получить несколько изображений из папки и добавить их в массив.Это не работает, может кто-то явно сказать мне, как это сделать?Спасибо!

При загрузке формы:

Private Sub Button1_Add(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim PictureArray As New List(Of Image)
    For Each item As String In Directory.GetFiles("C:\Users\turcotd\Desktop\ITLPers", "*.jpg", IO.SearchOption.AllDirectories)
        Dim _Image As Image = Image.FromFile(item)
        PictureArray.Add(_Image)
    Next

    If (i < 6) Then
        Dim pb As New PictureBox
        Me.FlowLayoutPanel1.Controls.Add(pb)
        pb.Image = PictureArray(i)
        i = i + 1

Спасибо !!!

Answer 1

Во-первых, я показал вам, как получить изображения DirectoryInfo не из FileInfo, как описано выше!

Я использовал List(Of FileInfo) со строгим шрифтом мой ответ на ваш предыдущий вопрос вместо Array, потому что он намного лучше, даже чем ArrayList .Вы можете получить доступ к элементам в списке так же, как и к элементам в массиве (через индекс или через foreach).

Если вы все равно настаиваете на использовании массива, вам просто нужно использовать ToArray-Extension вместо ToList .Например:

Dim imageArray = dir.GetFiles("*.jpg", IO.SearchOption.AllDirectories).ToArray

Посмотрите на FileInfo-Class для получения дополнительной информации.Например, вам нужно вызвать FileInfo.Name , чтобы получить имя изображения (имя файла без пути), или FileInfo.FullName , чтобы получить полный путь.

Так что это должно работать:

Dim dir = New IO.DirectoryInfo("C:\Users\turcotd\Desktop\ITLPers")
Dim images = dir.GetFiles("*.jpg", IO.SearchOption.AllDirectories).ToList
Dim pictures As New List(Of PictureBox)
For Each img In images
    Dim picture As New PictureBox
    picture.Image = Image.FromFile(img.FullName)
    pictures.Add(picture)
Next

Answer 2

This is the pdf image.I have just shown you one image with some text 
at the end of my xaml file.The 2nd image is just below the image shown.
Regards

Answer 3

Дорогой друг Гроулер, Я приложил код button_Click, который отлично выбирает правильное изображение с правильного пути и загружает в pdf. У меня также есть некоторый текст, переданный из многострочное текстовое поле в richtextbox, которое идет 1-й в PDF, а затем изображения. Ваш код и приведенные исправления не работают. Я использую VS 2017 сообщество в качестве резервной копии и использовать VB.Net 14 (Windows 10 идет без говоря). Я также дал 2 скриншота. btn26 - кнопка. Я включил часть кода, так что мне не нужно писать ее снова. С уважением kvinvisibleguy

Answer 4

Изображение не является типом данных, вы можете использовать fileinfo для считывания изображений в байтовый массив.

ответ Тима здесь, на ваш предыдущий вопрос делает это оченьну, это просто помещает это в список.Затем вы можете вызвать thelist.toarray, и теперь ваш список представляет собой массив.

РЕДАКТИРОВАТЬ: я нашел эту ссылку для вас, это поможет.

http://www.codeproject.com/KB/vb/ImageProccessing.aspx

Это довольно простой процесс.

Проблема заключается в том, что вы представляете изображение как строку или целое число, а не как.Это коллекция байтов.Надеюсь, это помогло.