这个例子是实现通过自定义按钮1（Button 1）将明细表里一整列数据复制到目的列，而后再执行保存。


代码如下：

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.                                    Dim CF As TextBox
    
14.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
15.            EV = Excel
    
16.            Excel.GetLock()
    
17.            AW = Excel.ActiveWorkbook
    
18.            Range = AW.ActiveWorksheet.Range
    
19.            Excel.ReleaseLock()
    
20.                                       CF = CType(OldRoot.Children(1), TextBox)
    
21.        End Sub'打开时执行事件
    
22. 
    
23.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
24. 
    
25.        End Sub'单元格选择后执行的事件
    
26. 
    
27.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
28. 
    
29.        End Sub'单元格编辑完成后执行事件
    
30. 
    
31.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
32.             aw.WorkbookSet.GetLock()
    
33.            If e.Shape.Name = "Button 1" Then
    
34.                          range("F_5335").Copy(range("F_5337"))
    
35. 
    
36. '                    计时器(避免造成大频率循环造成资源占用)
    
37.                 Dim XHTimer As DispatcherTimer = New DispatcherTimer
    
38.                 XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0) '1秒
    
39.                 AddHandler XHTimer.Tick, Sub(s1, e1)
    
40.                                              XHTimer.Stop() '停止计时器
    
41.                                              CF.Text = "#保存"
    
42.                                          End Sub
    
43.                 XHTimer.Start() '开始计时器
    
44. 
    
45. End If
    
46.                         aw.WorkbookSet.ReleaseLock()
    
47.                   
    
48.                    End Sub'按钮/标签点击事件
    
49. 
    
50.        Public Sub FollowHyperlink(sender As Object)
    
51. 
    
52.        End Sub '暂不支持
    
53. 
    
54.    End Class
    
55. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
56. End Namespace
    

复制代码

将代码复制到快表VBA中编译就可使用。
F_5335为被复制列，F_5337为目的列。

这个例子是实现通过自定义按钮1（Button 1）将明细表里一整列数据复制到目的列，而后再执行保存。


代码如下：

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.                                    Dim CF As TextBox
    
14.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
15.            EV = Excel
    
16.            Excel.GetLock()
    
17.            AW = Excel.ActiveWorkbook
    
18.            Range = AW.ActiveWorksheet.Range
    
19.            Excel.ReleaseLock()
    
20.                                       CF = CType(OldRoot.Children(1), TextBox)
    
21.        End Sub'打开时执行事件
    
22. 
    
23.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
24. 
    
25.        End Sub'单元格选择后执行的事件
    
26. 
    
27.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
28. 
    
29.        End Sub'单元格编辑完成后执行事件
    
30. 
    
31.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
32.             aw.WorkbookSet.GetLock()
    
33.            If e.Shape.Name = "Button 1" Then
    
34.                          range("F_5335").Copy(range("F_5337"))
    
35. 
    
36. '                    计时器(避免造成大频率循环造成资源占用)
    
37.                 Dim XHTimer As DispatcherTimer = New DispatcherTimer
    
38.                 XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0) '1秒
    
39.                 AddHandler XHTimer.Tick, Sub(s1, e1)
    
40.                                              XHTimer.Stop() '停止计时器
    
41.                                              CF.Text = "#保存"
    
42.                                          End Sub
    
43.                 XHTimer.Start() '开始计时器
    
44. 
    
45. End If
    
46.                         aw.WorkbookSet.ReleaseLock()
    
47.                   
    
48.                    End Sub'按钮/标签点击事件
    
49. 
    
50.        Public Sub FollowHyperlink(sender As Object)
    
51. 
    
52.        End Sub '暂不支持
    
53. 
    
54.    End Class
    
55. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
56. End Namespace
    

复制代码

将代码复制到快表VBA中编译就可使用。
F_5335为被复制列，F_5337为目的列。