Вывод в цикле картинки по вертикали на элемент

@vova_king · Регистрация: 29.07.2010

Студворк — интернет-сервис помощи студентам

Доброе время суток.
Подскажите пожалуйста, как и какими средствами можно вывести на форму в элементе Panel имеющиеся картинки в папке.?
по подобию как на фото во вложении!

выводит на форму. Не подходит

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Class Form1
    Dim Dirs As String()
    Dim files As String()
    Dim cdir As String
    Private Sub Search(ByVal fold As String, ByVal mask As String)
        Try
            files = System.IO.Directory.GetFiles(fold, mask)
            For Each Pp As String In files
                AddPic(Pp)
            Next
            Dirs = System.IO.Directory.GetDirectories(fold, "*", IO.SearchOption.TopDirectoryOnly)
        Catch ex As Exception
        End Try
        If Not Dirs Is Nothing Then
            For Each cdir In Dirs
                Me.Search(cdir, mask)
            Next
        End If
    End Sub
    Sub AddPic(ByVal PicPath As String)
        Static Lft As Integer = 10
        Static Tp As Integer = 10
        If Lft > Me.Width - 90 Then : Tp += 90 : Lft = 10 : End If
        Dim P As New PictureBox With {.Width = 70, .Height = 70, .Left = Lft, .Top = Tp, .backgroundImage = Image.FromFile(PicPath), .BackgroundImageLayout = ImageLayout.Zoom}
        Controls.Add(P)
        Lft += 90
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AutoScroll = 1
        Search("B:\Torrent\video\Логан", "*.jpg")
    End Sub
End Class

Может быть есть какой то бесплатный компонент который может выводить так картинки?

@andrsh · 20.03.2020, 13:15

Orlangur, Код в п.15 от ovva, .Судя по скрину он работает. Скопировал себе, решил попробовать не идет.

@Orlangur · 20.03.2020, 13:27

andrsh,

Сообщение от Orlangur

что в переменной pth?

@andrsh · 20.03.2020, 13:45

Orlangur, Dim pth As String = IO.Path.Combine(Application.StartupPath, "Альбом камеры")

Добавлено через 1 минуту
"C:\Users\Андрей\VB NET\Проект\WindowsApp29\WindowsApp29\bin \Debug\Альбом камеры" вот что содержит переменная

@vova_king · 20.03.2020, 14:19 **[ТС]**

Сообщение от ovva

и почему бы не использовать код из предыдущей темы (про ComboBox)

Это усложняет принцип.

Вывод в цикле картинки по вертикали на элемент

Тогда нужно перед перемещениеп файлов переименовывать их, что бы имена файлов были 0...и т.д.

@andrsh · 20.03.2020, 14:34

Нашел решение. Данную функцию надо записать так.:

VB.NET
1
2
3
4
Private Function getFullNamePicts() As String()
        Dim pict() = IO.Directory.GetFiles("C:\Users\Андрей\VB NET\Проект\WindowsApp29\WindowsApp29\bin\Debug\Новая папка")
        Return pict
    End Function

вместо:

VB.NET
1
2
3
4
5
6
7
8
Private Function getFullNamePicts() As String()
        Dim pth As String = Path.Combine(Application.StartupPath, "Images")
        Dim pict(9) As String
        For i = 0 To pict.Length - 1
            pict(i) = Path.Combine(pth, "im" & i.ToString & ".jpg")
        Next
        Return pict
    End Function

Таким образом можно загружать файлы из любой папки. ничего не надо переименовывать. Только надо получить путь к директории откуда надо загрузить картинки.

@ovva · 20.03.2020, 14:40

Сообщение от andrsh

Почему такая ошибка появляется?

Здесь считываются полные имена файлов. Папка Images это папка (размещена в папке с программой) в которой эти файлы хранятся. Файлы с именами im0.jpg, im1.jpg и т.д. всего 10 штук. Вообще-то это только пример загрузки файлов и как это будет происходить в вашем случае вам и решать. Например, можно выбрать папку и из нее загрузить все растры с назначенным расширением. Не думал, что это может породить непонимание.

@vova_king · 20.03.2020, 17:16 **[ТС]**

Сообщение от andrsh

Нашел решение. Данную функцию надо записать так.

А как же тогда имена файлов получать? Что бы можно было как-то в дальнейшем со всем этим работать!

@andrsh · 20.03.2020, 17:42

vova_king, Я же написал как получаются имена файлов эта функция как раз для этого.

Добавлено через 13 минут
vova_king, если тебе нужен список всех загружженных файлов с их полным путем то добавь к примеру еще один листбокс на форму и в функцию добавь строку:

VB.NET
1
ListBox2.Items.AddRange(pict)

@vova_king · 20.03.2020, 17:47 **[ТС]**

Сообщение от andrsh

Private Function getFullNamePicts() As String()
Dim pict() = IO.Directory.GetFiles("C:\Users\Андрей\V B NET\Проект\WindowsApp29\WindowsApp29\bin \Debug\Новая папка")
Return pict
End Function

Если в папке имеется файл с расширением ".webp" то появляется ошибка

Надо как-то выводить только конкретные файлы поддерживаемой графики.
*.jpg, *.png, *.tiff
А вот как так сделать, я не знаю

@Orlangur · 20.03.2020, 18:06

vova_king,

Сообщение от vova_king

выводить только конкретные файлы поддерживаемой графики

VB.NET
1
 Dim Images As IEnumerable(Of String) = My.Computer.FileSystem.GetFiles("Путь", FileIO.SearchOption.SearchTopLevelOnly, {"*.jpg", "*.png", "*.tiff"})

@andrsh · 20.03.2020, 18:41

Ну тогда придется немного переделать функцию:

VB.NET
1
2
3
4
5
6
7
8
9
10
 Private Function getFullNamePicts() As String()
        Dim Img As IEnumerable(Of String) = My.Computer.FileSystem.GetFiles("C:\Users\Андрей\VB NET\Проект\WindowsApp29\WindowsApp29\bin\Debug\Новая папка", FileIO.SearchOption.SearchTopLevelOnly, {"*.jpg", "*.png", "*.tiff"})
        For Each str As String In Img
            lst.Add(str)
        Next
        Dim ik As Integer = lst.Count - 1
        Dim pict(ik) As String
        pict = lst.ToArray
        Return pict
    End Function

Соответственно надо будет добавить:

VB.NET
1
 Dim lst As List(Of String)

перед процедурой загрузки формы и в процедуре загрузки формы добаввить:

VB.NET
1
lst = New List(Of String)

@ovva · 20.03.2020, 19:12

Достаточно так

VB.NET
1
2
3
4
Private Function getFullNamePicts(ByVal pth As String) As String()
    Dim pict As IEnumerable(Of String) = My.Computer.FileSystem.GetFiles(pth, FileIO.SearchOption.SearchTopLevelOnly, {"*.jpg", "*.gif", "*.png", "*.bmp"})
    Return pict.ToArray
End Function

@andrsh · 20.03.2020, 19:52

ovva, ТОгда ошибка идет В строке

VB.NET
1
 Dim names() As String = getFullNamePicts()

сразу идет подчеркивание красным. Соответственно приложение не запускается.

@ovva · 20.03.2020, 20:32

andrsh, обратите внимание на формальный параметр в описании функции

VB.NET
1
Private Function getFullNamePicts(ByVal pth As String) As String()

Т.е. путь к папке задается при вызове функции.

@andrsh · 20.03.2020, 21:09

ovva, Все это красиво звучит но ошибка от этого никуда не уходит, а с моим кодом функции никакой ошибки. В своем приложении бы попробовали применить предложеный вами код.

@ovva · 20.03.2020, 21:40

Сообщение от andrsh

В своем приложении бы попробовали применить предложеный вами код.

Я конечно тестировал этот код. Все работает.
1. Выложите ваш проект.
2. Версия VS (Net Framework)

@Orlangur · 20.03.2020, 21:45

andrsh,

Сообщение от andrsh

В своем приложении бы попробовали применить предложеный вами код

код рабочий, вы путь передали в функцию при вызове? В посте 33 этого не видно

@andrsh · 20.03.2020, 22:03

Сорри всем. Наверное к концу рабочей недели мозги закипели.Конечно все норммально работает и шибки никакой нет Путь к папке где файлы лежат конечно надо было указать в строке

VB.NET
1
 Dim names() As String = getFullNamePicts(путь к паке с фалами картинок.)

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 843
	20.03.2020, 13:15
	Orlangur, Код в п.15 от ovva, .Судя по скрину он работает. Скопировал себе, решил попробовать не идет. 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 843
	20.03.2020, 13:45
	Orlangur, Dim pth As String = IO.Path.Combine(Application.StartupPath, "Альбом камеры") Добавлено через 1 минуту "C:\Users\Андрей\VB NET\Проект\WindowsApp29\WindowsApp29\bin \Debug\Альбом камеры" вот что содержит переменная 0

@andrsh 266 / 217 / 54 Регистрация: 01.08.2016 Сообщений: 843
	20.03.2020, 21:09
	ovva, Все это красиво звучит но ошибка от этого никуда не уходит, а с моим кодом функции никакой ошибки. В своем приложении бы попробовали применить предложеный вами код. 0