Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 25.03.2018
Сообщений: 121
1

Работа со списком и изображениями

18.08.2019, 12:48. Показов 1208. Ответов 7
Метки нет (Все метки)

Доброго времени суток!
Подскажите пожалуйста, пытаюсь реализовать следующую задачу : "Получить список имеющихся изображении с какой-либо папки на компьютере. Вывести этот список. При выборе какого-то элемента из списка открыть это изображение в PictureBox".

Получить список файлов у меня получилось в динамически создаваемый ListBox следующим образом (фото прилагаю):
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ListBox1 As New ListBox
        ListBox1.Top = 0 : ListBox1.Left = 0
        ListBox1.Width = 200 : ListBox1.Height = 200
        Dim di As New IO.DirectoryInfo("C:\")
        For Each dra As IO.FileInfo In di.GetFiles()
            ListBox1.Items.Add(dra)
        Next
        Me.Controls.Add(ListBox1)
    End Sub
End Class
Но не могу понять, как реализовать открытие данного изображения в PictureBox.
Еще бы хотелось реализовать поиск определенного изображения из списка при помощи Label.
Миниатюры
Работа со списком и изображениями  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.08.2019, 12:48
Ответы с готовыми решениями:

Работа с изображениями
Здравствуйте. Подскажите пожалуйста, как можно решить мою задачу: У меня есть 100 PictureBox,...

Работа со списком ComboBox
Подскажите,пожалуйста в решении такой проблемы - мне нужно в список ComboBox добавить записи из...

Работа с изображениями
есть картинка загруженная в TImage можно ли в этой картинке оставить только один цвет а все...

Работа с изображениями
Очень сложный вопрос. Делаю скрипт, который бы выводил фото учеников класса напротив их ФИО. Создал...

7
Лень — мое второе и
3050 / 2262 / 658
Регистрация: 28.11.2014
Сообщений: 3,457
Записей в блоге: 2
18.08.2019, 12:58 2
VisualBratsk,
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim ListBox1 As New ListBox
    Dim path As String = "C:\Users\administrator\Pictures\dark"
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Top = 0 : ListBox1.Left = 0
        ListBox1.Width = 200 : ListBox1.Height = 200
        Dim di As New IO.DirectoryInfo(path)
        For Each dra As IO.FileInfo In di.GetFiles()
            ListBox1.Items.Add(dra)
        Next
        AddHandler ListBox1.Click, AddressOf OpenImage
        Me.Controls.Add(ListBox1)
    End Sub
    Sub OpenImage()
        If IsNothing(ListBox1.SelectedItem) = False Then
            PictureBox1.BackgroundImage = Image.FromFile(path & "\" & ListBox1.SelectedItem.ToString)
        End If
    End Sub
1
0 / 0 / 0
Регистрация: 25.03.2018
Сообщений: 121
18.08.2019, 13:14  [ТС] 3
не открывается изображение при выборе файла из списка
0
0 / 0 / 0
Регистрация: 25.03.2018
Сообщений: 121
19.08.2019, 10:34  [ТС] 4
Работает все идеально, поисковая строка сделана была.... Но когда ее делаешь пустой, выскакивает ошибка. Как ее исправить?
0
1414 / 1318 / 302
Регистрация: 03.10.2012
Сообщений: 1,379
19.08.2019, 10:53 5
Цитата Сообщение от VisualBratsk Посмотреть сообщение
Но когда ее делаешь пустой, выскакивает ошибка. Как ее исправить?
VisualBratsk, даже если не вникать в код, решение само собой напрашивается,- сделать проверку строки на пустоту и выполнять код по загрузке изображения, если в строке есть путь к файлу. Или выводить изображение по умолчанию.
1
0 / 0 / 0
Регистрация: 25.03.2018
Сообщений: 121
19.08.2019, 11:29  [ТС] 6
MrCrown , сам по себе код поиска выглядит так:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
 Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = "" Then
            ListBox1.SelectedItem = Nothing
        Else
            For i = 0 To ListBox1.Items.Count - 1
                If ListBox1.Items(i).ToString.ToUpper.Contains(TextBox1.Text.ToUpper) Then
                    ListBox1.SelectedIndex = i
                    Exit For
                End If
            Next
        End If
0
1414 / 1318 / 302
Регистрация: 03.10.2012
Сообщений: 1,379
19.08.2019, 12:08 7
VisualBratsk, так а в чём проблема то?
0
234 / 207 / 48
Регистрация: 27.01.2019
Сообщений: 609
19.08.2019, 12:17 8
VisualBratsk, а не проще так
VB.NET
1
2
3
  Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged
   PictureBox1.Image = Image.FromFile(ListBox1.SelectedItem)
    End Sub
Правда у меня в ListBox отображается полный путь к файлу.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.08.2019, 12:17

Работа с изображениями
Посоветуйте где можно почитать как работать с изображениями? Какую литературу почитать? И если...

C# работа с изображениями
Добрый день, требуется помощь по работе с изображениями, в частности - как открыть изображение это...

Работа с изображениями
Задание Написать программу в которой есть три каких то изображения и при нажатие ПЕРВОМ нажатие...

Работа с изображениями
Здравствуйте. Подскажите пожалуйста, как можно решить мою задачу: У меня есть 100 PictureBox,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru