Imports System

Imports System.Collections.Generic

Imports System.Linq

Imports Nancy

Imports Nancy.ModelBinding

Imports Nancy.Extensions

Imports Nancy.Validation

​

Namespace Nancy.Demo

​

    Public Class ProductModule

        Inherits NancyModule

​

        Public Sub New()

            MyBase.Get("/index") = Function(parameters)

                Dim customers = GetCustomers()

                Return View(customers)

            End Function

            MyBase.Post("/add") = Function(parameters)

                Dim customer = Me.Bind(Of Customer)()

                Dim result = Me.Validate(Of Customer)(customer)

                If Not result.IsValid

                    Return RenderErrorView(result)

                End If

​

                Dim customers = GetCustomers()

                customers.Add(customer)

                Return View(customers)

            End Function

        End Sub

​

        Private Function RenderErrorView(result As ModelValidationResult) As String

            Dim url = string.Format("<a href='{0}'>Back to List</a>", Context.ToFullPath("~/index"))

            Dim errorsDescription As List(Of String) = result.Errors.SelectMany(Function(e)

                Return e.Value.Select(Function(err) err.ErrorMessage)

            End Function).ToList()

            Return "Sorry, but your data is invalid. " + url + "<br/>Errors: <br/>" + String.Join(", <br/>", errorsDescription)

        End Function

​

        Private Function GetCustomers As List(Of Customer)

            Dim customers as New List(Of Customer) From {New Customer With {.Id = 1, .Name = "John"}, New Customer With {.Id = 2, .Name = "Bob"}, New Customer With {.Id = 42, .Name = "Alice"}}

            Return customers

        End Function

    End Class

End Namespace

​