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

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

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

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

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