初始化

testmode.vb

@@ -0,0 +1,27 @@
+Public Class testmode
+
+End Class
+Public Class CtabRange
+    Public devname As String = String.Empty
+    Public fr As Integer = 0
+    Public lr As Integer = 0
+    Public fc As Integer = 0
+    Public lc As Integer = 0
+    Sub New(grd As FlexCell.Grid， tabr As Integer, tabc As Integer)
+        If grd.Rows > tabr AndAlso grd.Cols > tabc Then
+            With grd.Range(tabr, tabc, tabr, tabc)
+                devname = grd.Cell(.FirstRow, .FirstCol).Text
+
+                fc = .FirstCol
+
+                lc = .LastCol
+
+                fr = .FirstRow
+
+                lr = .LastRow
+            End With
+        End If
+
+    End Sub
+
+End Class