Partager via


ListObject.BeforeRightClick, événement

Se produit lorsque l'utilisateur clique avec le bouton droit sur le contrôle ListObject, avant l'action de clic droit par défaut.

Espace de noms :  Microsoft.Office.Tools.Excel
Assembly :  Microsoft.Office.Tools.Excel (dans Microsoft.Office.Tools.Excel.dll)

Syntaxe

'Déclaration
Event BeforeRightClick As DocEvents_BeforeRightClickEventHandler
event DocEvents_BeforeRightClickEventHandler BeforeRightClick

Exemples

L'exemple de code suivant crée un ListObject et un gestionnaire d'événements BeforeRightClick. Lorsque l'utilisateur clique avec le bouton droit sur l'objet de liste, un message qui indique si l'objet de liste est lié aux données s'affiche.

Cette version est destinée à une personnalisation au niveau du document.

    WithEvents List3 As Microsoft.Office.Tools.Excel.ListObject

    Private Sub ListObject_BeforeRightClick()
        List3 = Me.Controls.AddListObject( _
            Me.Range("A1", "C4"), "List3")
    End Sub


    Sub List3_BeforeRightClick(ByVal Target As _
        Microsoft.Office.Interop.Excel.Range, _
        ByRef Cancel As Boolean) Handles List3.BeforeRightClick
        MessageBox.Show("Data binding is " & List3.IsBinding)
        Cancel = True
    End Sub

Microsoft.Office.Tools.Excel.ListObject list3;
private void ListObject_BeforeRightClick()
{
    list3 = this.Controls.AddListObject(
        this.Range["A1", "C4"], "list3");
    list3.BeforeRightClick += new 
        Microsoft.Office.Interop.Excel.
        DocEvents_BeforeRightClickEventHandler(
        list3_BeforeRightClick);
}

void list3_BeforeRightClick(Microsoft.Office.Interop.Excel.Range 
    Target, ref bool Cancel)
{
    MessageBox.Show("Data binding is " + list3.IsBinding);
    Cancel = true;
}

Cette version est destinée à un complément d'application.

    WithEvents List3 As ListObject

    Private Sub ListObject_BeforeRightClick()
        Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet =
            Me.Application.Worksheets(1)
        Dim vstoWorksheet As Microsoft.Office.Tools.Excel.Worksheet =
                Globals.Factory.GetVstoObject(NativeWorksheet)
        List3 = vstoWorksheet.Controls.AddListObject( _
            vstoWorksheet.Range("A1", "C4"), "List3")
    End Sub


    Sub List3_BeforeRightClick(ByVal Target As  _
        Microsoft.Office.Interop.Excel.Range, _
        ByRef Cancel As Boolean) Handles List3.BeforeRightClick
        System.Windows.Forms.MessageBox.Show("Data binding is " & List3.IsBinding)
        Cancel = True
    End Sub

ListObject list3;
private void ListObject_BeforeRightClick()
{
    Worksheet vstoWorksheet = 
        Globals.Factory.GetVstoObject(this.Application.ActiveWorkbook.Worksheets[1]);
    list3 = vstoWorksheet.Controls.AddListObject(
        vstoWorksheet.Range["A1", "C4"], "list3");
    list3.BeforeRightClick += new
        Excel.DocEvents_BeforeRightClickEventHandler(
        list3_BeforeRightClick);
}

void list3_BeforeRightClick(Microsoft.Office.Interop.Excel.Range
    Target, ref bool Cancel)
{
    System.Windows.Forms.MessageBox.Show("Data binding is " + list3.IsBinding);
    Cancel = true;
}

Sécurité .NET Framework

Voir aussi

Référence

ListObject Interface

Microsoft.Office.Tools.Excel, espace de noms