В 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 = "ТУТ ПУТЬ К ПАПКЕ"

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

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

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

	В PictureBox отобразить картинку, выбранную в FileListBox 04.11.2012, 14:54. Показов 2860. Ответов 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