Средства разработки приложений

         

Подсказки к Toolbar (Excel'95)


Q: Как сделать  свой собственный Toolbar с tooltip’ами на кнопках в Excel’95?

A: Вот фрагмент кода для Excel'95, который создаёт toolbar с одной кнопкой с  пользовательским tooltiр'ом. Нажатие кнопки приводит к выполнению макроса NothingToDo() .

'
' This example creates a new toolbar, adds the Camera button
' (button index number 228) to it, and then displays the new toolbar.
'
Public Sub CreateMyToolBar()
Dim myNewToolbar As Toolbar
On Error GoTo errHandle:

  Set myNewToolbar = Toolbars.Add(Name:="My New Toolbar")
  With myNewToolbar
    .ToolbarButtons.Add Button:=228, StatusBar:="Statusbar help string"
    .Visible = True
    With .ToolbarButtons(1)
      .OnAction = "NothingToDo"


     .Name = "My custom tooltiр text!"
    End With
  End With
Exit Sub
errНandle:
  MsgBox "Error number " & Err & ": " & Error(Err)
End Sub

'
' Toolbar button on action code
'
Рublic Sub NothingToDo()
  MsgBox "Nothing to do!", vbInformation, "Macro running"
End Sub

Нint: В Excel'97 этот код тоже работает!



Содержание раздела







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий