1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.         
   
3.                 '按钮名称为Copy
   
4.                 If e.Shape.Name = "Copy" Then
   
5.                     EV.GetLock()
   
6.                     '复制C2单元格内容到剪贴板
   
7.                         System.Windows.Clipboard.SetText(Range("C2").Text)
   
8.                         EV.ReleaseLock()
   
9.                     C1MessageBox.Show("复制完成。", "提示", OK, C1MessageBoxIcon.Information)
   
10.                 End If
    
11.          
    
12.        End Sub'按钮/标签点击事件

复制代码

1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.         
   
3.                 '按钮名称为Copy
   
4.                 If e.Shape.Name = "Copy" Then
   
5.                     EV.GetLock()
   
6.                     '复制C2单元格内容到剪贴板
   
7.                         System.Windows.Clipboard.SetText(Range("C2").Text)
   
8.                         EV.ReleaseLock()
   
9.                     C1MessageBox.Show("复制完成。", "提示", OK, C1MessageBoxIcon.Information)
   
10.                 End If
    
11.          
    
12.        End Sub'按钮/标签点击事件

复制代码