Добавление изображения на форму

@quicksdk · Регистрация: 13.04.2011

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

При добавлении изображения на форму, появляется ошибка "File not found".
Пишу :

Visual Basic
1
2
3
Private Sub Image1_Click()
Image1.Picture = LoadPicture("jaguar.jpg")
End Sub

Изображения находится в папке с сохраненным проектом. В чем ошибка?
Файл там находится.

@Linoge · 15.12.2011, 22:42

А запускаешь из редактора или с готового экзешника?
Если с редактора, то посмотри, что он берет в качестве рабочей папки.
Типа C:\Program Files\Microsoft Visual Studio\VB98

@quicksdk · 15.12.2011, 22:43 **[ТС]**

vstz
Templates Directory?
Изменил директорию на ту, где находится проект с картинкой, все равно та же ошибка.

@Linoge · 15.12.2011, 22:47

У меня на "C:\Program Files\Microsoft Visual Studio\VB98"

Добавь DirListBox и увидишь.

@quicksdk · 15.12.2011, 22:48 **[ТС]**

У меня эта директория тоже стояла, но я ее изменил на ту где лежит проект. Поменять обратно на C:\Program Files\Microsoft Visual Studio\VB98?
Что за DirListBox, куда и как его добавить?

@Linoge · 15.12.2011, 22:49

Так же как добавил Image1 на форму

@quicksdk · 15.12.2011, 22:51 **[ТС]**

Ок, добавил, а зачем он нужен и что мне с ним делать?

@Linoge · 15.12.2011, 22:56

Если пишешь просто имя файла без полного пути, то в качестве пути используется текущая папка где лежит экзешник.
Пока его нет, то используется папка самого vb, ее ты и увидишь в окне DirListBox по запуску проекта.
В эту директорию и нужно кинуть файл.

@quicksdk · 15.12.2011, 23:07 **[ТС]**

Я бы конечно мог тупо указать путь, НО дело в том, что мне нужно этот проект принести завтра учителю на флешке и дабы потом на уроке не изменять каждый раз адрес этой папки для картинки мне бы хотелось это в общем виде сделать... надеюсь внятно объяснил...

@Linoge · 15.12.2011, 23:11

А я что в предыдущем посту по-китайски писал?

@quicksdk · 15.12.2011, 23:21 **[ТС]**

а как мне потом с флешкой быть? картинок-то достаточно много

@Linoge · 15.12.2011, 23:54

Весь код проекта

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Image1.Picture = LoadPicture("1.jpg")
End Sub
Private Sub Command2_Click()
Image1.Picture = LoadPicture("2.jpg")
End Sub
Private Sub Command3_Click()
Image1.Picture = LoadPicture("3.jpg")
End Sub

и вот что получилось

SoftIce · 16.12.2011, 16:31

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

Изображения находится в папке с сохраненным проектом

Зашей их в ресурс и забудь об этой проблеме. Один хрен ты их будешь таскать вместе с проектом, так какая разница - в ехе они зашиты или отдельно в той же папке?

@quicksdk · 16.12.2011, 21:50 **[ТС]**

SoftIce.net

Сообщение от SoftIce.net

Зашей их в ресурс и забудь об этой проблеме.

Где Вы были вчера...
Ну да ладно. Проект сдал нормально, учитель увидел, что у меня есть знания

@DeadAnyKey · 18.12.2011, 22:58

Visual Basic
1
Image1.Picture = App.Path & "\" & LoadPicture("jaguar.jpg")

Картинка должна лежать в том же месте, где и проект.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	15.12.2011, 22:42
	А запускаешь из редактора или с готового экзешника? Если с редактора, то посмотри, что он берет в качестве рабочей папки. Типа C:\Program Files\Microsoft Visual Studio\VB98 0

@quicksdk 37 / 5 / 0 Регистрация: 13.04.2011 Сообщений: 193
	15.12.2011, 22:43 [ТС]
	vstz Templates Directory? Изменил директорию на ту, где находится проект с картинкой, все равно та же ошибка. 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	15.12.2011, 22:47
	У меня на "C:\Program Files\Microsoft Visual Studio\VB98" Добавь DirListBox и увидишь. 0

@quicksdk 37 / 5 / 0 Регистрация: 13.04.2011 Сообщений: 193
	15.12.2011, 22:48 [ТС]
	У меня эта директория тоже стояла, но я ее изменил на ту где лежит проект. Поменять обратно на C:\Program Files\Microsoft Visual Studio\VB98? Что за DirListBox, куда и как его добавить? 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	15.12.2011, 22:49
	Так же как добавил Image1 на форму 0

@quicksdk 37 / 5 / 0 Регистрация: 13.04.2011 Сообщений: 193
	15.12.2011, 22:51 [ТС]
	Ок, добавил, а зачем он нужен и что мне с ним делать? 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	15.12.2011, 22:56
	Если пишешь просто имя файла без полного пути, то в качестве пути используется текущая папка где лежит экзешник. Пока его нет, то используется папка самого vb, ее ты и увидишь в окне DirListBox по запуску проекта. В эту директорию и нужно кинуть файл. 0

@quicksdk 37 / 5 / 0 Регистрация: 13.04.2011 Сообщений: 193
	15.12.2011, 23:07 [ТС]
	Я бы конечно мог тупо указать путь, НО дело в том, что мне нужно этот проект принести завтра учителю на флешке и дабы потом на уроке не изменять каждый раз адрес этой папки для картинки мне бы хотелось это в общем виде сделать... надеюсь внятно объяснил... 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	15.12.2011, 23:11
	А я что в предыдущем посту по-китайски писал? 0

@quicksdk 37 / 5 / 0 Регистрация: 13.04.2011 Сообщений: 193
	15.12.2011, 23:21 [ТС]
	а как мне потом с флешкой быть? картинок-то достаточно много 0