- Imports SpreadsheetGear
- Imports C1.Silverlight
- Imports C1.Silverlight.C1MessageBoxButton
- Imports C1.Silverlight.C1MessageBoxIcon
- Imports Newtonsoft.Json
- Imports Newtonsoft.Json.Linq
- Imports System.Windows.forms
- Namespace ExcelViewVBDotnet
- Public Class StandardInterface
- '预留位置1
- '预留位置2
- Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
- Dim CF As Object,TS As Object
- Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
- EV = Excel
- Excel.GetLock()
- AW = Excel.ActiveWorkbook
- Range = AW.ActiveWorksheet.Range
- Excel.ReleaseLock()
- '绑定工具条触发,不能测试运行
- CF = OldRoot.Children(1)
- '绑定工具条区域,不能测试运行
- TS = OldRoot.Children(5)
- '添加标签
- Dim lb1 As New TextBlock
- Dim c As Integer
- c=0
- lb1.Text = "扫码:"
- ' lb1.Foreground = New SolidColorBrush(System.Windows.Media.Color.FromArgb(255, 0,0,0))
- lb1.Margin= New Thickness(0, 2, 0, 2)
- lb1.Padding= New Thickness(13, 3, 13, 3)
- lb1.VerticalAlignment = VerticalAlignment.Center
- TS.Children.Insert(16, lb1)
-
- '添加扫码框
- Dim tb1 As New TextBox
- tb1.Name = "T1"
- tb1.height = 24
- tb1.width = 120
- tb1.Margin= New Thickness(0, 2, 0, 2)
- tb1.Padding= New Thickness(0, 3, 13, 3)
- AddHandler tb1.KeyDown, Sub(sender As Object, e As System.windows.Input.KeyEventArgs)
- If e.Key = System.windows.Input.Key.Enter Then
- Excel.GetLock()
- Range("D4").cells(c,0).Value = tb1.Text
- c= c+1
- tb1.text=""
- '换成回车写入单元格
- Excel.ReleaseLock()
-
- End If
- End Sub
- TS.Children.Insert(17, tb1)
- tb1.Focus()
- End Sub'打开时执行事件
- Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
- End Sub'单元格选择后执行的事件
- Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
- End Sub'单元格编辑完成后执行事件
- Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
- End Sub'按钮/标签点击事件
- Public Sub FollowHyperlink(sender As Object)
- End Sub '暂不支持
- End Class
- ' 注:除事件字眼下可以自定义代码外的所有代码不允许改动,否则编译将有可能失败。
- End Namespace
复制代码
|
|
hong90342