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

@gotemcity · Регистрация: 04.11.2012

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

Всем привет!
Спустя 5 лет после изучения visual basic решил написать прогу, которая упростила бы мне жизнь на работе!
И возникли такие вопросы:
Как сделать так, чтобы при нажатии на кнопку в picturebox показывалась картинка выбранная в filelistbox?
B еще такой вопрос: как ограничить возможность пользователя в навигации в drivelistbox и dirlistbox? т.е. необходимо сделать так, чтобы он мог лазить в определенной папке в корне программы?

dev.Free · 04.11.2012, 15:09

Visual Basic
1
Picture1.Picture = LoadPicture("ТУТ ССЫЛКА ГДЕ ФАЙЛ + ЕГО РАСШИРЕНИЕ")

Ссылку надо брать из FileListBox.

@gotemcity · 04.11.2012, 15:21 **[ТС]**

так а какая ссылка?...файл может быть разный и зависит от того какой выбрать в listbox

@Апострофф · 04.11.2012, 15:22

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

как ограничить возможность пользователя в навигации в drivelistbox и dirlistbox? т.е. необходимо сделать так, чтобы он мог лазить в определенной папке в корне программы?

Если пользователю можно ползать в одной заданной наперёд папке, то зачем нужны drivelistbox и dirlistbox?

@gotemcity · 04.11.2012, 15:25 **[ТС]**

к примеру есть доступ к папке "Техника", которая содержит папки "Краны", "Буровые", "самосвалы" и тд...и я не хочу, чтобы пользователь мог подняться выше данной папки "Техника"...если это можно реализовать по другому то я готов выслушать!

пока больше необходимо разобраться с первым вопросом!

dev.Free · 04.11.2012, 15:25

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

Спустя 5 лет после изучения visual basic

Неужели при таком сроке, такой пустяк не был понят ?

@gotemcity · 04.11.2012, 15:32 **[ТС]**

изучал в универе в течении 1 семестра...не програмист по образованию....так, точ не судите строго...

да и потом пока не одного внятного ответа не кто дал

dev.Free · 04.11.2012, 15:34

На пользуйся! Сразу говорю работал по x64 битной системой, ссылки на компоненты могут не срабатывать.

Всего 3 строчки кода !

По нажатию на кнопку произойдет загрузка картинки на которой в данный момент установлен курсор в FileListBox.

@gotemcity · 04.11.2012, 15:45 **[ТС]**

не работает пишет ошибка 424 object required

dev.Free · 04.11.2012, 15:50

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
    Picture1.Picture = LoadPicture(filFiles.Path + "\" + filFiles.FileName)
End Sub
 
Private Sub dirFolders_Change()
    filFiles.Path = dirFolders.Path
End Sub
 
Private Sub drvSelectDrive_Change()
    dirFolders.Path = drvSelectDrive.Drive
End Sub

Где:

drvSelectDrive - выбор диска он же DriverListBox
filFiles - выбор файла он же FileListBox
dirFolders - выбор папок он же DirListBox

Далее 1 компонент Picture1 и 1 кнопка!

Не по теме:

Надеюсь будет уже понятнее ? И не будет лишь бы нажать на кнопку и получить готовое, а попытаться хотя бы понять, что за ошибка и уже на примере моего кода сделать проект у себя?

@gotemcity · 04.11.2012, 15:58 **[ТС]**

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

если прописать совместно с твоим кодом так,то работает

Visual Basic
1
2
3
4
5
6
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

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

@gotemcity · 04.11.2012, 16:05 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub

рабочий код...так стало все работать!...спасибо за помощь!

остается второй вопрос...как ограничить навигацию?

dev.Free · 04.11.2012, 16:41

Visual Basic
1
2
3
Private Sub Form_Load()
filFiles.Pattern = "*.JPG;*.txt"
End Sub

ВНИМАНИЕ!!! БЕЗ ПРОБЕЛОВ!!! ПРИ УКАЗАНИИ МАСОК...

@gotemcity · 04.11.2012, 16:48 **[ТС]**

спасибо!)...только я так и не понял почему тот код, который вы дали не сработал сразу?

dev.Free · 04.11.2012, 16:50

gotemcity, А вы объекты назвали так как у меня? Ну и еще может быть отличия в версии Visual Basic у меня к примеру SP6 стоит 6.0 версии.

@gotemcity · 04.11.2012, 16:52 **[ТС]**

Сообщение от inv.DS

Visual Basic
1
2
3
Private Sub Form_Load()
filFiles.Pattern = "*.JPG;*.txt"
End Sub

опять не получается...в какое место надо код вставить?...и он будет выводить файлы определенного разрешения как я понимаю в listbox....а как сделать чтобы определенные папки только выводились?

dev.Free · 04.11.2012, 16:53

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

Private Sub Form_Load()

Процедура при загрузки формы!

@gotemcity · 04.11.2012, 16:59 **[ТС]**

так с этим вроде получилось, но все равно файлы с разрешением экселя, автокада выводит...хотя указал только bmp

и вопрос с директорией остается!

Спасибо за помощь!

@gotemcity · 04.11.2012, 17:59 **[ТС]**

а как тут в личку написать то?

Комментарий модератора

Все обсуждения ведутся на форуме!

Добавлено через 46 минут
А можно каким-нибудь образом в filelistbox передать файлы лежащие в определенной папе...т.е. чтобы при запуске программы там сразу был список файлов...например при нажатии кнопки...filelistbox заполнялся бы файлами из определенной папки?

dev.Free · 04.11.2012, 19:45

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

А можно каким-нибудь образом в filelistbox передать файлы лежащие в определенной папе...т.е. чтобы при запуске программы там сразу был список файлов...например при нажатии кнопки...filelistbox заполнялся бы файлами из определенной папки?

Visual Basic
1
File1.Path = "ТУТ ПУТЬ К ПАПКЕ"

И опять таки при загрузке формы или при нажатии на кнопку.

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25

	В PictureBox отобразить картинку, выбранную в FileListBox 04.11.2012, 14:54. Показов 2878. Ответов 21 Метки нет (Все метки) Всем привет! Спустя 5 лет после изучения visual basic решил написать прогу, которая упростила бы мне жизнь на работе! И возникли такие вопросы: Как сделать так, чтобы при нажатии на кнопку в picturebox показывалась картинка выбранная в filelistbox? B еще такой вопрос: как ограничить возможность пользователя в навигации в drivelistbox и dirlistbox? т.е. необходимо сделать так, чтобы он мог лазить в определенной папке в корне программы? 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	04.11.2012, 15:21 [ТС]
	так а какая ссылка?...файл может быть разный и зависит от того какой выбрать в listbox 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	04.11.2012, 15:25 [ТС]
	к примеру есть доступ к папке "Техника", которая содержит папки "Краны", "Буровые", "самосвалы" и тд...и я не хочу, чтобы пользователь мог подняться выше данной папки "Техника"...если это можно реализовать по другому то я готов выслушать! пока больше необходимо разобраться с первым вопросом! 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	04.11.2012, 15:32 [ТС]
	изучал в универе в течении 1 семестра...не програмист по образованию....так, точ не судите строго... да и потом пока не одного внятного ответа не кто дал 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	04.11.2012, 15:45 [ТС]
	не работает пишет ошибка 424 object required 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	04.11.2012, 16:48 [ТС]
	спасибо!)...только я так и не понял почему тот код, который вы дали не сработал сразу? 0

dev.Free Заблокирован
	04.11.2012, 16:50
	gotemcity, А вы объекты назвали так как у меня? Ну и еще может быть отличия в версии Visual Basic у меня к примеру SP6 стоит 6.0 версии. 0

@gotemcity 0 / 0 / 0 Регистрация: 04.11.2012 Сообщений: 25
	04.11.2012, 16:59 [ТС]
	так с этим вроде получилось, но все равно файлы с разрешением экселя, автокада выводит...хотя указал только bmp и вопрос с директорией остается! Спасибо за помощь! 0