1. Public Sub Workbook_Open(OldRoot As Object, NewRoot As Object, Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
   
2.                         EV = Excel
   
3.                         Excel.GetLock()
   
4.                         AW = Excel.ActiveWorkbook
   
5.                         Range = AW.ActiveWorksheet.Range
   
6.                         Excel.ReleaseLock()
   
7. 
   
8. 
   
9.                         '添加按钮(参数1：位置，参数2：按钮名称，参数3：按钮文字，参数4：回调方法)
   
10.                         Dim click As Action(Of String) = Function(other)
    
11.                         '使用InputBox获取用户输入的行数
    
12.                         Dim inputRows As String = Microsoft.VisualBasic.Interaction.InputBox("请输入要插入的行数:","扩展行","10", -1, -1)
    
13. 
    
14.                         '验证输入是否为数字
    
15.                         Dim rowsToInsert As Integer
    
16.                         If Integer.TryParse(inputRows, rowsToInsert) AndAlso rowsToInsert > 0 Then
    
17.                                 ActiveWorkbook.WorkbookSet.Calculation = Calculation.Manual
    
18.                                 App.KBInsertRows("T_114", rowsToInsert)'参数1：表面，参数2：插入行数
    
19.                                 ActiveWorkbook.WorkbookSet.Calculation = Calculation.Automatic
    
20.                         Else
    
21.                                 '如果输入无效，显示错误消息
    
22.                                 HandyControl.Controls.MessageBox.Show("请输入有效的正整数！", "错误", OK, MessageBoxImage.Information)
    
23.                         End If
    
24.                         End Function
    
25.                         App.KBAddButton(17, "InsertRows", "扩展行", click)
    
26.                 End Sub'打开时执行事件

复制代码

1. Public Sub Workbook_Open(OldRoot As Object, NewRoot As Object, Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
   
2.                         EV = Excel
   
3.                         Excel.GetLock()
   
4.                         AW = Excel.ActiveWorkbook
   
5.                         Range = AW.ActiveWorksheet.Range
   
6.                         Excel.ReleaseLock()
   
7. 
   
8. 
   
9.                         '添加按钮(参数1：位置，参数2：按钮名称，参数3：按钮文字，参数4：回调方法)
   
10.                         Dim click As Action(Of String) = Function(other)
    
11.                         '使用InputBox获取用户输入的行数
    
12.                         Dim inputRows As String = Microsoft.VisualBasic.Interaction.InputBox("请输入要插入的行数:","扩展行","10", -1, -1)
    
13. 
    
14.                         '验证输入是否为数字
    
15.                         Dim rowsToInsert As Integer
    
16.                         If Integer.TryParse(inputRows, rowsToInsert) AndAlso rowsToInsert > 0 Then
    
17.                                 ActiveWorkbook.WorkbookSet.Calculation = Calculation.Manual
    
18.                                 App.KBInsertRows("T_114", rowsToInsert)'参数1：表面，参数2：插入行数
    
19.                                 ActiveWorkbook.WorkbookSet.Calculation = Calculation.Automatic
    
20.                         Else
    
21.                                 '如果输入无效，显示错误消息
    
22.                                 HandyControl.Controls.MessageBox.Show("请输入有效的正整数！", "错误", OK, MessageBoxImage.Information)
    
23.                         End If
    
24.                         End Function
    
25.                         App.KBAddButton(17, "InsertRows", "扩展行", click)
    
26.                 End Sub'打开时执行事件

复制代码