ListObject.BeforeDoubleClick 事件 (2007 system)
更新: 2008 年 7 月
当在默认的双击操作之前双击 ListObject 控件时发生。
命名空间: Microsoft.Office.Tools.Excel
程序集: Microsoft.Office.Tools.Excel.v9.0(在 Microsoft.Office.Tools.Excel.v9.0.dll 中)
语法
声明
Public Event BeforeDoubleClick As DocEvents_BeforeDoubleClickEventHandler
用法
Dim instance As ListObject
Dim handler As DocEvents_BeforeDoubleClickEventHandler
AddHandler instance.BeforeDoubleClick, handler
public event DocEvents_BeforeDoubleClickEventHandler BeforeDoubleClick
示例
下面的代码示例创建一个 ListObject 和一个 BeforeDoubleClick 事件处理程序。在双击 ListObject 时,会显示一条消息,指示 ListObject 是否绑定到数据。
此版本针对的是文档级自定义项。
WithEvents List2 As Microsoft.Office.Tools.Excel.ListObject
Private Sub ListObject_BeforeDoubleClick()
List2 = Me.Controls.AddListObject( _
Me.Range("A1", "C4"), "List2")
End Sub
Sub List2_BeforeDoubleClick(ByVal Target As _
Microsoft.Office.Interop.Excel.Range, ByRef Cancel As Boolean) _
Handles List2.BeforeDoubleClick
MessageBox.Show("Data binding is " & List2.IsBinding)
End Sub
Microsoft.Office.Tools.Excel.ListObject list2;
private void ListObject_BeforeDoubleClick()
{
list2 = this.Controls.AddListObject(
this.Range["A1", "C4"], "list2");
list2.BeforeDoubleClick += new
Microsoft.Office.Interop.Excel.
DocEvents_BeforeDoubleClickEventHandler(
list2_BeforeDoubleClick);
}
void list2_BeforeDoubleClick(Microsoft.Office.Interop.Excel.Range
Target, ref bool Cancel)
{
MessageBox.Show("Data binding is " + list2.IsBinding);
}
此版本针对的是应用程序级外接程序。
WithEvents List2 As ListObject
Private Sub ListObject_BeforeDoubleClick()
Dim vstoWorksheet As Worksheet = CType( _
Me.Application.ActiveWorkbook.Worksheets(1), _
Excel.Worksheet).GetVstoObject()
List2 = vstoWorksheet.Controls.AddListObject( _
vstoWorksheet.Range("A1", "C4"), "List2")
End Sub
Sub List2_BeforeDoubleClick(ByVal Target As _
Microsoft.Office.Interop.Excel.Range, ByRef Cancel As Boolean) _
Handles List2.BeforeDoubleClick
System.Windows.Forms.MessageBox.Show("Data binding is " & List2.IsBinding)
End Sub
ListObject list2;
private void ListObject_BeforeDoubleClick()
{
Worksheet vstoWorksheet = ((Excel.Worksheet)
this.Application.ActiveWorkbook.Worksheets[1]).GetVstoObject();
list2 = vstoWorksheet.Controls.AddListObject(
vstoWorksheet.Range["A1", "C4"], "list2");
list2.BeforeDoubleClick += new
Excel.DocEvents_BeforeDoubleClickEventHandler(
list2_BeforeDoubleClick);
}
void list2_BeforeDoubleClick(Microsoft.Office.Interop.Excel.Range
Target, ref bool Cancel)
{
System.Windows.Forms.MessageBox.Show("Data binding is " + list2.IsBinding);
}
权限
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息,请参见通过部分受信任的代码使用库。
另请参见
参考
Microsoft.Office.Tools.Excel 命名空间
修订记录
日期 |
修订记录 |
原因 |
---|---|---|
2008 年 7 月 |
添加了一个针对应用程序级外接程序的代码示例版本。 |
SP1 功能更改。 |