![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Всем привет. Есть код:
Private Sub ComboBox2_Change() If ComboBox2.Text = "ßáëîíÿ òîëåäî, RON 108" Then Image2.Picture = LoadPicture("c:\RON108 ßáëîíÿ òîëåäî.bmp") End If If ComboBox2.Text = "Âåíãå, RON 015" Then Image2.Picture = LoadPicture("c:\RON 015 Âåíãå.bmp") End If End Sub Excel находится в папке "Калькулятор кухни". В ней же находится папка "Image" с текстурами в формате JPEG. Вопросы: 1. При прописывании кода не загружается рисунок с расширением JPEG, после обработки рисунка в bmp, все работает. Но мне лучше JPEG, так как текстур около 300, и все переводить в bmp - это куча времени. 2. Нужно, чтобы картинка загружалась не с диска С, а именно из папки "Image". Удобно, если перемещать папку "Калькулятор кухни", не изменится дорога. 3. Так как картинок будет около 300, можно ли сократить код или писать так же как написан. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Указывайте путь к рисунку
"c:\RON108 ßáëîíÿ òîëåäî.jpg" а не "c:\RON108 ßáëîíÿ òîëåäî.jpeg" Все прекрасно грузится,если действительный формат рисунка jpeg. Расширение и формат не всегда могут совпадать.
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Попробовал jpg, работает. Спасибо. А как на счет дороги загрузки не с диска С ?
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Папка Image должна быть рядом с книгой Excel
Код:
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Спасибо, что помогаете. При коде
Dim ImagePath As String ImagePath = ThisWorkbook.Path & "\Image\" Image2.Picture = LoadPicture(ImagePath & "Имя картинки.jpg") получаю ошибку Run-time error '76': Path not found. |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
А папку Image вы создали?
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Книга Excel и папка Image были у меня изначально, находятся в папке "Калькулятор кухни". Посмотрел видео, делал так-же, только для ComboBox, но нет результата. Может в коде закралась ошибка?
Вот у меня какой код: Private Sub ComboBox2_Change() If ComboBox2.Text = "Яблоня толедо, RON 108" Then Dim ImagePath As String ImagePath = ThisWorkbook.Path & "\Image\" Image2.Picture = LoadPicture(ImagePath & "RON108 Яблоня толедо.jpg") End If If ComboBox2.Text = "Венге, RON 015" Then Dim ImagePath As String ImagePath = ThisWorkbook.Path & "\Image\" Image2.Picture = LoadPicture(ImagePath & "RON 015 Венге.jpg") End If End Sub Сначала ошибки нет, но подсвечивается синим цветом ImagePath As String для 2-го рисунка, появляется окно с надписью compile error: duplicate declaration in current scope. А когда я убрал ImagePath As String для 2-го рисунка, то получаю ошибку Run-time error '76': Path not found. |
![]() |
![]() |
![]() |
#8 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Добавил проверку наличия файла
Код:
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 143
|
![]()
Все получилось. Большое спасибо.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
загрузка с диска | Onni | Компьютерное железо | 4 | 17.03.2012 00:21 |
Загрузка файла с диска в событии OnGetText | X11 | БД в Delphi | 0 | 28.08.2011 21:39 |
Загрузка с диска. | krokusfs | Безопасность, Шифрование | 1 | 31.05.2010 23:39 |
Загрузка Image | BuT@JL | Общие вопросы Delphi | 2 | 24.06.2009 15:52 |