Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA Как отобразить рисунок на форме.
 
#1
18.12.2017 23:35:22

Добрый вечер, на форме есть поиск по первым буквам, поиск происходит из базы данных. Вызов формы происходит по клику в столбце 1 на листе2. Прошу помощи в решении задачи, как отобразить рисунок согласно выбранному коду из списка на форме.

Изменено: Лина - 18.12.2017 23:58:01
 
 
 
#2
19.12.2017 00:20:54
Код
UserForm1.Picture = LoadPicture("C:\qwerty.jpg")
Измените путь и имя файла на свои.

Если нужно с листа, то либо танцы с бубном, либо на форме насоздавать .Image друг на друге скрыв их вручную или программно. И уже оттуда копировать в основной Image:
Код
Image1.Picture = Image2.Picture
Изменено: oldy7 - 19.12.2017 00:31:08
 
 
 
#3
19.12.2017 02:37:23
Добрый.
Как работает разберетесь.Использовал бубен шамана.
Файл превысил допустимый размер, залил на гугл.
Изменено: Doober - 19.12.2017 02:38:18
 
 
 
#4
19.12.2017 09:27:17
oldy7,Доброе утро, заинтересовал первый вариант вашего варианта. Строку кода перед какой строкой в моем макросе вставлять? Я так понимаю картинки будут лежать в отдельной папке?
 
 
 
#5
19.12.2017 11:44:38
Doober, Здравствуйте. Не могу разобраться как отобразить фото на форме, после добавления в базу.
 
 
 
#6
19.12.2017 12:07:59
Лина,Разобралась) Не учла один момент, изображений будет много и плюс ко всему в последствии изображения будут добавляться, соответственно немного не удобно делать каждый раз эту процедуру.
Вопрос, можно как то вывести в отдельную папку изображения, и от туда выводить их на форму?
 
 
 
#7
19.12.2017 13:03:56
Как вариант - сделать кликабельные картинки на листе, где будет запускаться макрос с подгрузкой графического файла из папки в форму.
 
 
 
#8
19.12.2017 13:43:41
Цитата
Лина написал:
Вопрос, можно как то вывести в отдельную папку изображения, и от туда выводить их на форму?
Можно, при загрузке формы сделать отдельный "ComboBox", или "ListBox". в котором будут отображаться имена файлов. какой выберите, тот и загрузится.
Изменено: Nordheim - 19.12.2017 13:54:30
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#9
19.12.2017 14:22:19
В качестве примера!
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#10
19.12.2017 17:36:16
Nordheim, Я, так понимаю,  если присвоить каждому файлу имена согласно кодам (как в моем примере) и поместить файлы в отдельную папку, при выборе кода в ListBox  файлы будут отображаться  в Image. Если это так? подскажите как это сделать?
 
 
 
#11
19.12.2017 18:47:02
Так можно, только пропишите свою папку с картинками
Код
Private Sub ListBox1_Click()
    Image1.Picture = Nothing
    If ListBox1.ListIndex = -1 Then Exit Sub
    Dim file As String
    Me.Label4.Caption = Me.ListBox1.Value
    file = "Путь к папке с картинками\" & Me.ListBox1.Value & ".jpg"
    With CreateObject("Scripting.FileSystemObject")
        If .FileExists(file) Then
            Image1.Picture = LoadPicture(file)
        End If
    End With
End Sub
Изменено: Doober - 19.12.2017 18:47:40
 
 
 
#12
19.12.2017 19:08:25
Doober,Огромное Вам Спасибо!
 
 
 
Страницы: 1
Читают тему
Наверх