Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Excel VBA - Подсказки к Toolbar.

Подсказки к Toolbar.

Q: Как сделать к <само нарисованным> кнопочкам на Toolbar’е подсказки? (Ну, те, что после 2-х секунд молчания мышки появляются)

A: Сделать можно вот как: (Пример реализации на Excel’97 VBA )

' Cоздаем тулбар 
Рublic Sub InitToolBar() 
Dim cmdbarSM As CommandBar 
Dim ctlNewBtn As CommandBarButton 

  Set cmdbarSM = CommandBars.Add(Name:="MyToolBar", 
                                 Position:=msoBarFloating, _ 
                                 temporary:=True) 
  With cmdbarSM 
    ' 1) Добавляем кнопку 
    Set ctlNewBtn = .Controls.Add(Type:=msoControlButton) 
    With ctlNewBtn 
      . FaceId = 26 
      .OnAction = "OnButton1_Click" 
     .TooltipText = "My tooltip message!" 
    End With 
    ' 2) Добавляем ещё кнопку 
    Set ctlNewBtn = .Controls.Add(Type:=msoControlButton) 
    With ctlNewBtn 
      .FaceId = 44 
      .OnAction = "OnButton2_Click" 
     .TooltipText = "Another tooltip message!" 
    End With 
    .Visible = True 
  End With 
End Sub 

Hint: На VBA для Excel'95 это делается несколько иначе!


[ Назад ] [ Оглавление ] [ Далее ]

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

1.
Аноним
Мне нравитсяМне не нравится
7 апреля 2005, 03:08:40
Н-да!!!
1) Нет проверки наличия такого Bar'а.
2) Он ничего не производит.

Просто интересно, что это и для чего это?
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог