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
|