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


ListObject.Deselected Событие (2007 System)

Обновлен: Июль 2008

Происходит при перемещении выделения из элемента управления ListObject на область за пределами элемента управления ListObject.

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

Синтаксис

'Декларация
Public Event Deselected As DocEvents_SelectionChangeEventHandler
'Применение
Dim instance As ListObject
Dim handler As DocEvents_SelectionChangeEventHandler

AddHandler instance.Deselected, handler
public event DocEvents_SelectionChangeEventHandler Deselected

Заметки

Это событие возникает только в том случае, если фокус находится на элементе управления ListObject, а затем перемещается за пределы элемента управления ListObject.

Примеры

В следующем примере кода создается ListObject и обработчик событий Deselected. Когда выделяется объект ListObject, а затем выделяется объект вне ListObject, выводится сообщение, указывающее, что выделение изменено.

Эта версия предназначена для настройки уровня документа.

WithEvents DeselectedList As Microsoft.Office.Tools.Excel.ListObject
Private Sub ListObject_Deselected()
    DeselectedList = Me.Controls.AddListObject( _
        Me.Range("A1", "C4"), "DeselectedList")
End Sub

Sub List1_Deselected(ByVal Target As _
    Microsoft.Office.Interop.Excel.Range) Handles DeselectedList.Deselected
    MessageBox.Show("The list object is no longer selected.")
End Sub

private void ListObject_Deselected()
{
    Microsoft.Office.Tools.Excel.ListObject list1 = 
        this.Controls.AddListObject(
        this.Range["A1", "C4"], "list1");
    list1.Deselected += new 
        Microsoft.Office.Interop.Excel.
        DocEvents_SelectionChangeEventHandler(list1_Deselected);
}

void list1_Deselected(Microsoft.Office.Interop.Excel.Range Target)
{
    MessageBox.Show("List1 is no longer selected.");
}

Эта версия предназначена для надстройки уровня приложения.

WithEvents DeselectedList As ListObject
Private Sub ListObject_Deselected()
    Dim vstoWorksheet As Worksheet = CType( _
        Me.Application.ActiveWorkbook.Worksheets(1),  _
        Excel.Worksheet).GetVstoObject()
    DeselectedList = vstoWorksheet.Controls.AddListObject( _
        vstoWorksheet.Range("A1", "C4"), "DeselectedList")
End Sub

Sub List1_Deselected(ByVal Target As  _
    Microsoft.Office.Interop.Excel.Range) Handles DeselectedList.Deselected
    System.Windows.Forms.MessageBox.Show( _
        "The list object is no longer selected.")
End Sub
private void ListObject_Deselected()
{
    Worksheet vstoWorksheet = ((Excel.Worksheet)
        this.Application.ActiveWorkbook.Worksheets[1]).GetVstoObject();
    ListObject list1 =
        vstoWorksheet.Controls.AddListObject(
        vstoWorksheet.Range["A1", "C4"], "list1");
    list1.Deselected += new
        Excel.DocEvents_SelectionChangeEventHandler(list1_Deselected);
}

void list1_Deselected(Microsoft.Office.Interop.Excel.Range Target)
{
    System.Windows.Forms.MessageBox.Show("List1 is no longer selected.");
}

Разрешения

См. также

Ссылки

ListObject Класс

ListObject - члены

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

Журнал изменений

Дата

Журнал событий

Причина

Июль 2008

Добавлена версия кода для надстройки уровня приложения.

Изменение функции SP1.