1. Option Strict Off
   
2. Imports SpreadsheetGear
   
3. Imports System.Windows.forms
   
4. Namespace ExcelViewVBDotnet
   
5.     Public Class StandardInterface '自定义名称
   
6.         '预留位置1
   
7.         '预留位置2
   
8.          Dim AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
   
9.         Dim CF,TS,VW As Object,YN As String
   
10.         Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Forms.WorkbookView)
    
11.              Excel.GetLock()
    
12.            AW = Excel.ActiveWorkbook
    
13.            Range = AW.ActiveWorksheet.Range
    
14.            Excel.ReleaseLock()
    
15.            CF = OldRoot.Children(1)  '绑定工具条触发，不能测试运行
    
16.            TS = OldRoot.Children(5)         '绑定工具条区域，不能测试运行   
    
17.          
    
18.          
    
19.        
    
20.                                
    
21.                     Dim BT2 As New Button
    
22.             BT2.Name = "BT_AN2"
    
23.             BT2.Content = "打印并保存新增"
    
24.             BT2.Margin = New Thickness(0, 2, 0, 2)
    
25.             BT2.Padding = New Thickness(13, 3, 13, 3)
    
26.             BT2.Style = Application.Current.Resources("ButtonStyle1")
    
27.             BT2.Foreground = Application.Current.Resources("Foreground1")
    
28.             AddHandler BT2.Click, Sub()
    
29.                                       ActiveWorkbook.WorkbookSet.GetLock()
    
30.                                                                           Range("F_2456").Value = Range("F_2456").Value + 1
    
31.                                       CF.Text = "#打印"
    
32.                                                                        
    
33.                                                                           Dim XHTimer As DispatcherTimer = New DispatcherTimer
    
34.                                                                           XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0)
    
35.                                                                           AddHandler XHTimer.Tick, Sub(s1, e1)
    
36.                                                                           ActiveWorkbook.WorkbookSet.GetLock()
    
37.                                                                           CF.Text="#保存并新增"
    
38.                                                                           ActiveWorkbook.WorkbookSet.ReleaseLock()
    
39.                                                                           XHTimer.Stop()
    
40.                                                                           End Sub
    
41.                                                                           XHTimer.Start()
    
42.                                                                        
    
43.                                       ActiveWorkbook.WorkbookSet.ReleaseLock()
    
44. 
    
45.                                   End Sub
    
46.             TS.Children.Insert(7, BT2)
    
47.                        
    
48.                                
    
49. 
    
50.        
    
51.                
    
52.                    '位置：2保存3新增4提交5退回6打印7预览8导出9捕获10上传图片11上传附件12插入行13插多行14删除行15查找16最后
    
53.         End Sub'打开时执行事件
    
54. 
    
55.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
    
56. 
    
57.                      
    
58.         End Sub'单元格选择后执行的事件
    
59. 
    
60.         Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)
    
61.            
    
62.         End Sub'单元格编辑完成后执行事件
    
63. 
    
64.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
    
65. '           if e.shape.name="BTEST" then
    
66. '                       Messagebox.show("0")
    
67. '               End if
    
68. 
    
69.         End Sub'按钮/标签点击事件
    
70. 
    
71.         Public Sub FollowHyperlink(sender As Object)
    
72.            
    
73.         End Sub '暂不支持
    
74. 
    
75.     End Class
    
76.     '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
77. 
    
78. End Namespace
    

复制代码

打印次数、打印、保存新增

免费版哪里可以写VAB代码？

免费版的本来就有保存和新增按钮啊

1. Option Strict Off
   
2. Imports SpreadsheetGear
   
3. Imports System.Windows.forms
   
4. Namespace ExcelViewVBDotnet
   
5.     Public Class StandardInterface '自定义名称
   
6.         '预留位置1
   
7.         '预留位置2
   
8.          Dim AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
   
9.         Dim CF,TS,VW As Object,YN As String
   
10.         Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Forms.WorkbookView)
    
11.              Excel.GetLock()
    
12.            AW = Excel.ActiveWorkbook
    
13.            Range = AW.ActiveWorksheet.Range
    
14.            Excel.ReleaseLock()
    
15.            CF = OldRoot.Children(1)  '绑定工具条触发，不能测试运行
    
16.            TS = OldRoot.Children(5)         '绑定工具条区域，不能测试运行   
    
17.          
    
18.          
    
19.        
    
20.                                
    
21.                     Dim BT2 As New Button
    
22.             BT2.Name = "BT_AN2"
    
23.             BT2.Content = "打印并保存新增"
    
24.             BT2.Margin = New Thickness(0, 2, 0, 2)
    
25.             BT2.Padding = New Thickness(13, 3, 13, 3)
    
26.             BT2.Style = Application.Current.Resources("ButtonStyle1")
    
27.             BT2.Foreground = Application.Current.Resources("Foreground1")
    
28.             AddHandler BT2.Click, Sub()
    
29.                                       ActiveWorkbook.WorkbookSet.GetLock()
    
30.                                                                           Range("F_2456").Value = Range("F_2456").Value + 1
    
31.                                       CF.Text = "#打印"
    
32.                                                                        
    
33.                                                                           Dim XHTimer As DispatcherTimer = New DispatcherTimer
    
34.                                                                           XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0)
    
35.                                                                           AddHandler XHTimer.Tick, Sub(s1, e1)
    
36.                                                                           ActiveWorkbook.WorkbookSet.GetLock()
    
37.                                                                           CF.Text="#保存并新增"
    
38.                                                                           ActiveWorkbook.WorkbookSet.ReleaseLock()
    
39.                                                                           XHTimer.Stop()
    
40.                                                                           End Sub
    
41.                                                                           XHTimer.Start()
    
42.                                                                        
    
43.                                       ActiveWorkbook.WorkbookSet.ReleaseLock()
    
44. 
    
45.                                   End Sub
    
46.             TS.Children.Insert(7, BT2)
    
47.                        
    
48.                                
    
49. 
    
50.        
    
51.                
    
52.                    '位置：2保存3新增4提交5退回6打印7预览8导出9捕获10上传图片11上传附件12插入行13插多行14删除行15查找16最后
    
53.         End Sub'打开时执行事件
    
54. 
    
55.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
    
56. 
    
57.                      
    
58.         End Sub'单元格选择后执行的事件
    
59. 
    
60.         Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)
    
61.            
    
62.         End Sub'单元格编辑完成后执行事件
    
63. 
    
64.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
    
65. '           if e.shape.name="BTEST" then
    
66. '                       Messagebox.show("0")
    
67. '               End if
    
68. 
    
69.         End Sub'按钮/标签点击事件
    
70. 
    
71.         Public Sub FollowHyperlink(sender As Object)
    
72.            
    
73.         End Sub '暂不支持
    
74. 
    
75.     End Class
    
76.     '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
77. 
    
78. End Namespace
    

复制代码

打印次数、打印、保存新增

免费版哪里可以写VAB代码？

免费版的本来就有保存和新增按钮啊