AndVGri
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добро.
1. Для 2003, панель Visual Basic, кнопка элементы управления, а в ней кнопка рисунок.
2. В него через свойства Picture грузим эскиз и прописываем в свойства Tag некоторый уникальный ключ для этого эскиза. И так "вручную" для всех эскизов (можно и программно, но тогда храниться в файле не будет, увы).
3. В редакторе VBA создаём форму добавляем ImageList (возможно потребуется сходить во вспомогательное меню Toolbox и добавить через Additional control) и через свойства Custom в диалоге добавляем уже изображения и прописываем для них соответствующий ключ Key для эскиза, тоже только вручную, так как программно сохранить изображения в файле не возможно (по крайней мере не нашёл как).
4. Добавляем на форму объект Image и прописываем код, который по ключу получает от ImageList изображение и устанавливает это изображение для Image и затем показывает форму (нужно будет прописать изменение размеров формы и Image под размер рисунка)
5. по 2. документ содержит объекты ActiveX. Нужно будет либо в модуле документа для каждого прописать обработчик события щелчка, либо связать есть варианты по проще через коллекцию объектов класса-обработчика, которая заполняется, например, при открытии документа.
Для 2010 1 и 2 можно реализовать так
Вкладка "Разработчик" (если не видна, то включить в настройках ленты), группа элементы управления, включаем режим конструктора и по раскрывающейся кнопке инструменты из предыдущих версий вставляем ActiveX изображение. Далее всё тоже.
Можно как вариант поэкспериментировать с Элементом управления содержимым "Рисунок" (ContentControl) там же на вкладке разработчика, но, правда, не нашёл как прописать Tag к нему, программно, как мы помним, не сохраняется (хотя может и да, не экспериментировал). В модуле документа есть обработчик события Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
в котором нужно получить Tag и запустить метод отображения формы с выбором по Tag требуемого изображения.
Пробуйте, успехов. |
