28 lines
503 B
VB.net
28 lines
503 B
VB.net
|
Public Class TableServer
|
|||
|
|
Private ServerRow As Integer
|
|||
|
|
Private Invokecnt As Integer
|
|||
|
|
|
|||
|
|
Sub New(addr As Integer)
|
|||
|
|
ServerRow = addr
|
|||
|
|
Invokecnt = 1
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub AddRow(addrow As Integer)
|
|||
|
|
ServerRow = ServerRow + 1
|
|||
|
|
End Sub
|
|||
|
|
Public Sub DelRow(addrow As Integer)
|
|||
|
|
If ServerRow > addrow Then
|
|||
|
|
ServerRow = ServerRow - 1
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub CallingBase()
|
|||
|
|
Invokecnt = Invokecnt + 1
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|