Страницы: 1
RSS
VBA Как отобразить рисунок на форме.
 

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

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

Если нужно с листа, то либо танцы с бубном, либо на форме насоздавать .Image друг на друге скрыв их вручную или программно. И уже оттуда копировать в основной Image:
Код
Image1.Picture = Image2.Picture
Изменено: oldy7 - 19.12.2017 00:31:08
 
Добрый.
Как работает разберетесь.Использовал бубен шамана.
Файл превысил допустимый размер, залил на гугл.
Изменено: Doober - 19.12.2017 02:38:18
 
oldy7,Доброе утро, заинтересовал первый вариант вашего варианта. Строку кода перед какой строкой в моем макросе вставлять? Я так понимаю картинки будут лежать в отдельной папке?
 
Doober, Здравствуйте. Не могу разобраться как отобразить фото на форме, после добавления в базу.
 
Лина,Разобралась) Не учла один момент, изображений будет много и плюс ко всему в последствии изображения будут добавляться, соответственно немного не удобно делать каждый раз эту процедуру.
Вопрос, можно как то вывести в отдельную папку изображения, и от туда выводить их на форму?
 
Как вариант - сделать кликабельные картинки на листе, где будет запускаться макрос с подгрузкой графического файла из папки в форму.
 
Цитата
Лина написал:
Вопрос, можно как то вывести в отдельную папку изображения, и от туда выводить их на форму?
Можно, при загрузке формы сделать отдельный "ComboBox", или "ListBox". в котором будут отображаться имена файлов. какой выберите, тот и загрузится.
Изменено: Nordheim - 19.12.2017 13:54:30
"Все гениальное просто, а все простое гениально!!!"
 
В качестве примера!
"Все гениальное просто, а все простое гениально!!!"
 
Nordheim, Я, так понимаю,  если присвоить каждому файлу имена согласно кодам (как в моем примере) и поместить файлы в отдельную папку, при выборе кода в ListBox  файлы будут отображаться  в Image. Если это так? подскажите как это сделать?
 
Так можно, только пропишите свою папку с картинками
Код
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
 
Doober,Огромное Вам Спасибо!
Страницы: 1
Читают тему
Наверх