Как (через VBA) можно у кнопки поменять точечный рисунок (bitmap)?

@влад74 · Регистрация: 02.07.2012

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток.
Как (через VBA) можно у кнопки поменять точечный рисунок (bitmap)?
И чтобы этот рисунок затем отражался у другого пользователя (после копирования базы)

mobile · 12.02.2014, 11:03

Открыть форму в режиме дизайна. Поменять свойство кнопки Picture (Рисунок), задав путь и имя рисунка, задать свойство PictureType равное 0 (внедренный /Embedded/) и закрыть форму, сохранив ее

Visual Basic
1
2
3
4
Docmd.Openform "ИмяФормы",acDesign
Forms!ИмяФормы!ИмяКнопки.Picture = "Путь\НазваниеРисунка.bmp"
Forms!ИмяФормы!ИмяКнопки.PictureType = 0
DoCmd.Close acForm, "ИмяФормы", acSaveYes

@влад74 · 12.02.2014, 11:12 **[ТС]**

А как насчет - И чтобы этот рисунок затем отражался у другого пользователя (после копирования базы)?
Ошибки не будет у другого пользователя при Forms!ИмяФормы!ИмяКнопки.Picture = "Путь\НазваниеРисунка.bmp"?
У него же по этому пути может не оказаться рисунка или при сохранение формы рисунок сохраняется "внутри Access"?

mobile · 12.02.2014, 11:17

Свойство PictureType задается равным 0. Это значит, что рисунок внедренный (Embedded), а не связанный (Linked). Т.е. рисунок сохраняется в БД и кочует вместе с ней по пользователям. Было бы PictureType=1, то пришлось бы возить файл рисунка с собой.

@влад74 · 12.02.2014, 11:46 **[ТС]**

УТОЧНЕНИЕ.
ВОПРОС задан в связи со следующей задачей:
При сортировке изначально на кнопке отображается один рисунок на кнопке, после нажатия появляется другой (обратная сортировка).

PS
Надоело элементарную задачу видимостью двух кнопок решать (или текстом)

Добавлено через 27 минут

Сообщение от mobile

Свойство PictureType задается равным 0. Это значит, что рисунок внедренный (Embedded), а не связанный (Linked). Т.е. рисунок сохраняется в БД и кочует вместе с ней по пользователям. Было бы PictureType=1, то пришлось бы возить файл рисунка с собой.

каким образом другой пользователь будет обращаться к Forms!ИмяФормы!ИмяКнопки.Picture = "Путь\НазваниеРисунка.bmp" если изначально на кнопке один рисунок, а нужно чтобы изначальный рисунок поменялся на "Путь\НазваниеРисунка.bmp", но у другого пользователя может не быть папки (и рисунка) по адресу "Путь\НазваниеРисунка.bmp"

mobile · 12.02.2014, 11:56

Сообщение от влад74

Надоело элементарную задачу видимостью двух кнопок решать

Видимость кнопок неплохая идея. Только решать ее надо немного иначе. Конечно, держать несколько кнопок с одним и тем же кодом, извращение. А вот сделать кнопки только для имаджа, вполне себе идея.
Делаете, помимо основной кнопки, несколько невидимых кнопок без кода, только с нужным рисунком. И по мере необходимости копируете рисунок с нужной кнопки

Visual Basic
1
Me.ОсновнаяКнопка.PictureData = Me.КнопкаСРисунком1.PictureData

Если замену рисунков надо производить во многих формах, то все вспомогательные рисунки можно свести в форму и вставлять ее как подформу в другие формы. Разумеется, сделав подформу невидимой. Да и размер ее можно сделать нулевой. Код только немножко поменяется с учетом подформы

Visual Basic
1
Me.ОсновнаяКнопка.PictureData = Me.МояПодформа!КнопкаСРисунком1.PictureData

Если эти рисунки нужны только для кнопок, то такой способ менее затратный чем хранить рисунки в таблице и доставать их из нее.

Добавлено через 1 минуту

Сообщение от влад74

каким образом другой пользователь будет обращаться к Forms!ИмяФормы!ИмяКнопки.Picture = "Путь\НазваниеРисунка.bmp" если изначально на кнопке один рисунок, а нужно чтобы изначальный рисунок поменялся на "Путь\НазваниеРисунка.bmp", но у другого пользователя может не быть папки (и рисунка) по адресу "Путь\НазваниеРисунка.bmp"

После сохранения формы, в Picture останется только имя рисунка, поскольку тип рисунка внедренный. Путь нужен только при вставке рисунка.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@влад74 102 / 20 / 0 Регистрация: 02.07.2012 Сообщений: 149

	Как (через VBA) можно у кнопки поменять точечный рисунок (bitmap)? 12.02.2014, 10:30. Показов 5210. Ответов 5 Метки нет (Все метки) Всем доброго времени суток. Как (через VBA) можно у кнопки поменять точечный рисунок (bitmap)? И чтобы этот рисунок затем отражался у другого пользователя (после копирования базы) 0

@влад74 102 / 20 / 0 Регистрация: 02.07.2012 Сообщений: 149
	12.02.2014, 11:12 [ТС]
	А как насчет - И чтобы этот рисунок затем отражался у другого пользователя (после копирования базы)? Ошибки не будет у другого пользователя при Forms!ИмяФормы!ИмяКнопки.Picture = "Путь\НазваниеРисунка.bmp"? У него же по этому пути может не оказаться рисунка или при сохранение формы рисунок сохраняется "внутри Access"? 0

mobile 26827 / 14507 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	12.02.2014, 11:17
	Свойство PictureType задается равным 0. Это значит, что рисунок внедренный (Embedded), а не связанный (Linked). Т.е. рисунок сохраняется в БД и кочует вместе с ней по пользователям. Было бы PictureType=1, то пришлось бы возить файл рисунка с собой. 0