[VB.NET] REST API⑤ GETリクエストの応答をDictionaryにする

	        ' GET: api/ApiTest/5
	        Public Function GetValue(ByVal id As Integer) As String
	            Return "value"
	        End Function

Imports System.Net
Imports System.Web.Http

Namespace Controllers
    Public Class ApiTestController
        Inherits ApiController

        ' GET: api/ApiTest
        Public Function GetValues() As IEnumerable(Of String)
            Return New String() {"value1", "value2"}
        End Function

        ' GET: api/ApiTest/5
        Public Function GetValue(ByVal id As Integer) As Dictionary(Of String, String)

            Dim rec As New Dictionary(Of String, String)

            'IDが 5 の場合、レコードを返す
            If (id = 5) Then
                rec.Add("col1", id)
                rec.Add("col2", "This is a test record.")
                rec.Add("col3", New Date(2021, 1, 1))
            End If

            'レコードをリターン
            Return rec
        End Function

        ' POST: api/ApiTest
        Public Sub PostValue(<FromBody()> ByVal value As String)

        End Sub

        ' PUT: api/ApiTest/5
        Public Sub PutValue(ByVal id As Integer, <FromBody()> ByVal value As String)

        End Sub

        ' DELETE: api/ApiTest/5
        Public Sub DeleteValue(ByVal id As Integer)

        End Sub
    End Class
End Namespace