С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
footballer22
3 / 3 / 0
Регистрация: 20.10.2012
Сообщений: 66
1

Отобразить в PictureBox картинку, выбранную в ListBox

22.10.2012, 01:30. Просмотров 1165. Ответов 5
Метки нет (Все метки)

Задача такая: есть ListBox, в котором выводится название папок с определенной директории. Вот как работает:
vb.net
1
2
3
4
Dim Dir() As String = IO.Directory.GetDirectories("Путь к папкам\")
        For Each D As String In Dir
        ListBox1.Items.Add(IO.Path.GetFileName(D))
        Next
В каждой папке (которая и выводится в ЛистБоксе) лежит файл 1.jpg, нужно его вывести на PictureBox.
И получается, что при клике на новую папку в ListBox'e на PictureBox'e будет менятся картинка.

В "Пример.rar" что-то похожее, но не для VB.Net.. Суть думаю поняли.
0
Вложения
Тип файла: rar Пример.rar (17.6 Кб, 26 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2012, 01:30
Ответы с готовыми решениями:

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

Как отобразить картинку из БД в датагрид?
Подскажите, пожалуйста, как отобразить картинку из БД в датагриде?

Загрузить картинку рандомно в PictureBox
На форме размещены три объекта PictureBox и кнопка, также имеется 6 таймер....

Сохранить картинку из PictureBox в файл
Мне нужно сохранить картинку из PictureBox1 в файл. Код: Private Sub...

Изменить картинку у нескольких PictureBox
Здравствуйте, нужна помощь... Мне в цикле надо изменить у 6 PictureBox,...

5
ZuMiks
121 / 99 / 5
Регистрация: 25.03.2012
Сообщений: 153
22.10.2012, 07:59 2
Папки с картинками находятся в папке picture рядом с exe:
vb.net
1
2
3
4
5
6
7
8
9
10
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Dir() As String = IO.Directory.GetDirectories(Application.StartupPath & "\picture")
        For Each D As String In Dir
            ListBox1.Items.Add(IO.Path.GetFileName(D))
        Next
    End Sub
 
    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        PictureBox1.Image = Image.FromFile(Application.StartupPath & "\picture\" & ListBox1.SelectedItem & "\1.jpg")
    End Sub
1
footballer22
3 / 3 / 0
Регистрация: 20.10.2012
Сообщений: 66
22.10.2012, 16:05  [ТС] 3
ZuMiks, а можно ли как-то сделать, что бы сразу после входа в ехе была выбрана 1-я папка в ListBox'e, а не нужно было самому клацать по ней?
0
ZuMiks
121 / 99 / 5
Регистрация: 25.03.2012
Сообщений: 153
22.10.2012, 16:11 4
В загрузку формы дописать
vb.net
1
ListBox1.SelectedIndex = 0
1
footballer22
3 / 3 / 0
Регистрация: 20.10.2012
Сообщений: 66
22.10.2012, 16:14  [ТС] 5
Цитата Сообщение от ZuMiks Посмотреть сообщение
В загрузку формы дописать
vb.net
1
ListBox1.SelectedIndex = 0
Поменялось, но вот картинка в Picture.Box'e нет.
0
ZuMiks
121 / 99 / 5
Регистрация: 25.03.2012
Сообщений: 153
22.10.2012, 16:41 6
Допиши тогда еще:
vb.net
1
Me.ListBox1_Click(Me.ListBox1, Nothing)
Если не получится тогда:
vb.net
1
PictureBox1.Image = Image.FromFile(Application.StartupPath & "\picture\" & ListBox1.SelectedItem & "\1.jpg")
1
22.10.2012, 16:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2012, 16:41

Как задать картинку PictureBox'у?
Подскажите как можно в vb 2008 для picturebox`a установить параметр 'image' или...

Как загрузить картинку в PictureBox
Здравствуйте. Скажите пожалуйста ,а как сделать так,чтобы во время исполнения...

В PictureBox поместить картинку поверх имеющейся
Всем доброго здоровичка!!! Такая задача: VB2008 На форме 32 пикчера. Случайно...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru