1. Imports SpreadsheetGear
   
2. Imports System.Windows.forms
   
3. Namespace ExcelViewVBDotnet
   
4.     Public Class StandardInterface '自定义名称
   
5.         '预留位置1
   
6.         '预留位置2
   
7.         Dim AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
   
8.                 Dim CF As Object,TS As Object
   
9.         Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Forms.WorkbookView)
   
10.            Excel.GetLock()
    
11.            AW = Excel.ActiveWorkbook
    
12.            Range = AW.ActiveWorksheet.Range
    
13.            Excel.ReleaseLock()
    
14.                    '绑定工具条触发，不能测试运行
    
15.            CF = OldRoot.Children(1)
    
16.                    '绑定工具条区域，不能测试运行
    
17.                    TS = OldRoot.Children(5)
    
18.                
    
19.                    '添加标签
    
20.                    Dim lb1 As New TextBlock
    
21.            lb1.Text = "条形码："
    
22.                    lb1.Foreground = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 0,0,0))
    
23.                    lb1.Margin= New Thickness(0, 2, 0, 2)
    
24.                    lb1.Padding= New Thickness(13, 3, 13, 3)
    
25.                    lb1.VerticalAlignment = VerticalAlignment.Center
    
26.                    TS.Children.Insert(16, lb1)
    
27.                
    
28.                    '添加扫码框
    
29.                    Dim tb1 As New TextBox
    
30.                    tb1.Name = "T1"
    
31.                    tb1.height = 24
    
32.                    tb1.width = 120
    
33.                    tb1.Margin= New Thickness(0, 2, 0, 2)
    
34.                    tb1.Padding= New Thickness(0, 3, 13, 3)
    
35.                    AddHandler tb1.KeyDown, Sub(sender As Object, e As KeyEventArgs)
    
36.                                        If e.Key = Key.Enter Then
    
37.                                                                                    Excel.GetLock()
    
38.                                            Range("D4").Value = tb1.Text
    
39.                                                                                    '换成回车写入单元格
    
40.                                                                                    Excel.ReleaseLock()
    
41.                                                                                    tb2.Focus()
    
42.                                        End If
    
43.                                    End Sub
    
44.                    TS.Children.Insert(17, tb1)
    
45.                    tb1.Focus()
    
46.                
    
47.                    '位置：2保存3新增4提交5退回6进度7打印8预览9导出10捕获11上传图片12上传附件13插入行14插多行15删除行16查找17最后
    
48.                
    
49.         End Sub'打开时执行事件
    
50. 
    
51.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
    
52. 
    
53.         End Sub'单元格选择后执行的事件
    
54. 
    
55.         Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)
    
56.            
    
57.         End Sub'单元格编辑完成后执行事件
    
58. 
    
59.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
    
60. 
    
61.         End Sub'按钮/标签点击事件
    
62. 
    
63.         Public Sub FollowHyperlink(sender As Object)
    
64.            
    
65.         End Sub '暂不支持
    
66. 
    
67.     End Class
    
68.     '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
69. 
    
70. End Namespace

复制代码

占个沙发，学习一下。

免费版不能用，，可惜了

如何使用？给个教程看看

占个沙发，学习一下。

免费版不能用，，可惜了

如何使用？给个教程看看