Action.BeforeCaptionShow Событие (2007 System)

Статья
11/16/2008

Обновлен: Ноябрь 2007

Возникает после того, как пользователь щелкает значок смарт-тега, и перед отображением меню смарт-тега.

Пространство имен: Microsoft.Office.Tools.Excel
Сборка: Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)

Синтаксис

'Декларация
Public Event BeforeCaptionShow As BeforeCaptionShowEventHandler
'Применение
Dim instance As Action
Dim handler As BeforeCaptionShowEventHandler

AddHandler instance.BeforeCaptionShow, handler

public event BeforeCaptionShowEventHandler BeforeCaptionShow

Заметки

Это событие позволяет изменять заголовок смарт-тега в зависимости от контекста.

Примеры

В следующем примере кода демонстрируется обработчик события BeforeCaptionShow. Обработчик событий изменяет заголовок меню действия. Данный пример кода является частью большого примера, приведенного в описании класса Action.

В этом примере демонстрируется настройка уровня документа.

Private Sub OpenMessageBox_BeforeCaptionShow(ByVal sender As Object, _
    ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
    Handles DisplayAddress.BeforeCaptionShow

    Dim clickedAction As Microsoft.Office.Tools.Excel.Action = _
        TryCast(sender, Microsoft.Office.Tools.Excel.Action)

    If clickedAction IsNot Nothing Then
        clickedAction.Caption = "Display the address of " & e.Text
    End If
End Sub

void DisplayAddress_BeforeCaptionShow(object sender, 
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    Microsoft.Office.Tools.Excel.Action clickedAction =
        sender as Microsoft.Office.Tools.Excel.Action;

    if (clickedAction != null)
    {
        clickedAction.Caption = "Display the address of " +
            e.Text;
    }
}

Разрешения

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.

См. также

Ссылки

Action Класс

Action - члены

Microsoft.Office.Tools.Excel - пространство имен

Поделиться через