[VB.NET] ASP.NET MVC ビューに複数のパラメーターを渡す（List＆String）

'ViewTest用モデル
Public Class ViewTestParam
    ''' <summary>APIから取得したデータ</summary>
    Public Property Item1 As List(Of Record）

    ''' <summary>表示用メッセージ</summary>
    Public Property Item2 As String             '
End Class

@ModelType ViewTestParam
@Code
    ViewData("Title") = "index"
End Code

<h2>index</h2>


@Html.Label("message_label", Model.Item2, New With {.style = "color:red;"})



<table class="table">
    <tr>
        <th>
            @*最初の要素が無くてもエラーにならないので心配しなくてOK*@
            @Html.DisplayNameFor(Function(model) model.Item1.First().col1)
        </th>
        <th>
            @Html.DisplayNameFor(Function(model) model.Item1.First().col2)
        </th>
        <th>
            @Html.DisplayNameFor(Function(model) model.Item1.First().col3)
        </th>
        <th></th>
    </tr>

    @For Each item In Model.Item1
        @<tr>
            <td>
                @Html.DisplayFor(Function(modelItem) item.col1)
            </td>
            <td>
                @Html.DisplayFor(Function(modelItem) item.col2)
            </td>
            <td>
                @Html.DisplayFor(Function(modelItem) item.col3)
            </td>
            <td>
                @*@Html.ActionLink("Edit", "Edit", New With {.id = item.PrimaryKey}) |
                    @Html.ActionLink("Details", "Details", New With {.id = item.PrimaryKey}) |
                    @Html.ActionLink("Delete", "Delete", New With {.id = item.PrimaryKey})*@
            </td>
        </tr>
    Next

</table>

Imports System.Web.Mvc

Namespace Controllers
    Public Class ViewTestController
        Inherits Controller

        ' GET: ViewTest
        Function Index() As ActionResult

            '一覧を取得するAPIのURL
            Dim url As String
            url = DirectCast(Request, System.Web.HttpRequestWrapper).Url.GetLeftPart(UriPartial.Authority) & "/api/ApiTest"


            Dim clt As New Net.Http.HttpClient
            Dim result As New System.Net.Http.HttpResponseMessage

            'GETを実行
            result = clt.GetAsync(url).Result

            Dim model As New ViewTestParam

            If (result.StatusCode = Net.HttpStatusCode.OK) Then
                'Jsonを取り出し
                Dim json As String
                json = result.Content.ReadAsStringAsync.Result

                'デシリアライズ
                Dim rec_list As List(Of Record)
                rec_list = Newtonsoft.Json.JsonConvert.DeserializeObject(Of List(Of Record))(json)

                'モデル作成
                model.Item1 = rec_list
                model.Item2 = "データを取得しました！"
            Else

                'モデル作成
                model.Item1 = New List(Of Record)
                model.Item2 = "データの取得に失敗しました！" & result.Content.ReadAsStringAsync.Result
            End If

            Return View(model)
        End Function

        ' GET: ViewTest/Details/5
        Function Details(ByVal id As Integer) As ActionResult
            Return View()
        End Function

        ' GET: ViewTest/Create
        Function Create() As ActionResult
            Return View()
        End Function

        ' POST: ViewTest/Create
        <HttpPost()>
        Function Create(ByVal collection As FormCollection) As ActionResult
            Try
                ' TODO: Add insert logic here

                Return RedirectToAction("Index")
            Catch
                Return View()
            End Try
        End Function

        ' GET: ViewTest/Edit/5
        Function Edit(ByVal id As Integer) As ActionResult
            Return View()
        End Function

        ' POST: ViewTest/Edit/5
        <HttpPost()>
        Function Edit(ByVal id As Integer, ByVal collection As FormCollection) As ActionResult
            Try
                ' TODO: Add update logic here

                Return RedirectToAction("Index")
            Catch
                Return View()
            End Try
        End Function

        ' GET: ViewTest/Delete/5
        Function Delete(ByVal id As Integer) As ActionResult
            Return View()
        End Function

        ' POST: ViewTest/Delete/5
        <HttpPost()>
        Function Delete(ByVal id As Integer, ByVal collection As FormCollection) As ActionResult
            Try
                ' TODO: Add delete logic here

                Return RedirectToAction("Index")
            Catch
                Return View()
            End Try
        End Function
    End Class
End Namespace