Доброго времени суток ! Может кто-нибудь подскажет, как разрешить такую проблему? На форме есть Listbox, в зависимости от выбранного номера в списке в углу появляется изображение (точечный рисунок (.bmp)). [vba]
Код
If ListBox1.ListIndex = 0 Then With Image2 .Height = 118: .Width = 144: .Left = -1: .Top = -1: .Visible = True End With Image1.Visible = False: Image3.Visible = False: Image4.Visible = False: Image5.Visible = False Image6.Visible = False: Image7.Visible = False End If ' и так далее
[/vba] Файлы изображений лежат в папке локального диска. На форму залиты вручную в несколько Frame'ов Проблема в том, что изображений много, и программа запускается невыносимо долго (если не зависнет) Подскажите есть ли какой нибудь другой путь решения этой задачи? Возможно как-то поэтапно, программно прописывая путь к папкам, открывать доступ к изображениям, тем самым постепенно подгружать программу? (Если это не БРЕД) Еще один огромный минус заключается в том, что при изменении какого-нибудь изображения в папках, его нужно опять вручную выбрать на форме, что изменения вступили в силу Возможно ли что-нибудь подобное придумать???
Доброго времени суток ! Может кто-нибудь подскажет, как разрешить такую проблему? На форме есть Listbox, в зависимости от выбранного номера в списке в углу появляется изображение (точечный рисунок (.bmp)). [vba]
Код
If ListBox1.ListIndex = 0 Then With Image2 .Height = 118: .Width = 144: .Left = -1: .Top = -1: .Visible = True End With Image1.Visible = False: Image3.Visible = False: Image4.Visible = False: Image5.Visible = False Image6.Visible = False: Image7.Visible = False End If ' и так далее
[/vba] Файлы изображений лежат в папке локального диска. На форму залиты вручную в несколько Frame'ов Проблема в том, что изображений много, и программа запускается невыносимо долго (если не зависнет) Подскажите есть ли какой нибудь другой путь решения этой задачи? Возможно как-то поэтапно, программно прописывая путь к папкам, открывать доступ к изображениям, тем самым постепенно подгружать программу? (Если это не БРЕД) Еще один огромный минус заключается в том, что при изменении какого-нибудь изображения в папках, его нужно опять вручную выбрать на форме, что изменения вступили в силу Возможно ли что-нибудь подобное придумать???Dмитрий
вот ссылка: http://rusfolder.com/38975447 распакуйте в отдельную папку, откройте ваш xlsb, нажмите "Заполнить список картинок", а потом "Показать форму" и кликайте в листбоксе
теперь я не успел
вот ссылка: http://rusfolder.com/38975447 распакуйте в отдельную папку, откройте ваш xlsb, нажмите "Заполнить список картинок", а потом "Показать форму" и кликайте в листбоксеnilem
Яндекс.Деньги 4100159601573
Сообщение отредактировал nilem - Пятница, 29.11.2013, 13:21