LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 08 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Как увели...
 RE: Как увеличить количество кнопок ?
 
 15.06.2007 21:04:40
All
4316 сообщения
1-ый


RE: Как увеличить количество кнопок ?
Начать можно с этого:
'Добавляем первую кнопку
Set popup = Application.CommandBars(strBar).Controls.Add(msoControlPopup, , , idPos, True)
With popup
.BeginGroup = True 'Начинаем размещение с начала группы
.Caption = "Отчеты" 'Называем кнопку-меню
End With

' Создаем menu-отчеты
For i = 0 To UBound(arrMenu)
Set but = popup.Controls.Add(msoControlButton, , , , True)
With but
.FaceId = 1 'Устанавливаем код кнопки
.Style = msoButtonCaption 'Выбираем стандартный тип
.Caption = arrMenu(i).Name 'Называем кнопку, имя берем из массива
.OnAction = "=funMenuOpenReport(" & i & ")" 'Определяем программу
End With
Next


P.S. Проблемы с базой данных
Автор: Admin от 0:00:00 Источник ...
 Страница 2 из 2
СледующийПредыдущийНет оценки
Предыдущий12 
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Как увели...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke