28 lines
644 B
VB.net
28 lines
644 B
VB.net
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
|