Добрый вечер, на форме есть поиск по первым буквам, поиск происходит из базы данных. Вызов формы происходит по клику в столбце 1 на листе2. Прошу помощи в решении задачи, как отобразить рисунок согласно выбранному коду из списка на форме.
Если нужно с листа, то либо танцы с бубном, либо на форме насоздавать .Image друг на друге скрыв их вручную или программно. И уже оттуда копировать в основной Image:
oldy7,Доброе утро, заинтересовал первый вариант вашего варианта. Строку кода перед какой строкой в моем макросе вставлять? Я так понимаю картинки будут лежать в отдельной папке?
Лина,Разобралась) Не учла один момент, изображений будет много и плюс ко всему в последствии изображения будут добавляться, соответственно немного не удобно делать каждый раз эту процедуру. Вопрос, можно как то вывести в отдельную папку изображения, и от туда выводить их на форму?
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