32 lines
608 B
VB.net
32 lines
608 B
VB.net
Imports Newtonsoft.Json
|
|
|
|
Public Class cTEST
|
|
Public Property Field1 As String
|
|
Public Property Field2 As String
|
|
|
|
' Public Property array As cTEST_array()
|
|
|
|
|
|
Public Property array As New List(Of cTEST_array) 'With {.id = Field1}
|
|
|
|
'<JsonProperty("cTEST_varray")>
|
|
Public Structure cTEST_array
|
|
'Public Property id As Integer
|
|
Dim Field1 As String
|
|
Dim Field2 As String
|
|
End Structure
|
|
|
|
|
|
' Public Property num Acces As String
|
|
|
|
|
|
'Public Enum AccesMode
|
|
' VIEWONLY
|
|
' SHAREDACCESS
|
|
' EXCLUSIVE
|
|
' 'PRIVATE
|
|
'End Enum
|
|
End Class
|
|
|
|
|