Advertisement
metin06

Untitled

May 24th, 2019
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.90 KB | None | 0 0
  1. <OperationContract , Wbinvoke(Method:="POST", RequestFormat:=WebMessageformat.Json, ResponseFormat:=WebMessageformat.Json, UriTemplate:= "/testData"
  2. Public Function testData(Byval myData as list(of Example))
  3.  
  4. dim mylist = myData
  5.  
  6.  
  7. End Function
  8.  
  9.  
  10. Public Class Values
  11.  
  12. <JsonProperty(PropertyName:="0")> _
  13. Public Property r As Integer
  14.  
  15. <JsonProperty(PropertyName:="1")> _
  16. Public Property g As Integer
  17.  
  18. <JsonProperty(PropertyName:="2")> _
  19. Public Property b As Integer
  20.  
  21. <JsonProperty(PropertyName:="3")> _
  22. Public Property a As Integer
  23.  
  24. End Class
  25.  
  26. Public Class Employee
  27. Public Property firstName As String
  28. Public Property lastName As String
  29. Public Property values As Values
  30. End Class
  31.  
  32. Public Class Example
  33. Public Property employees As Employee()
  34. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement