Chapter10_list10-02

ApplicationUserManagerオブジェクトのインスタン化

リスト10-2

Imports System.Threading.Tasks

Imports Microsoft.AspNet.Identity

Imports Microsoft.AspNet.Identity.EntityFramework

Imports Microsoft.AspNet.Identity.Owin

Imports Microsoft.Owin

Imports System.Net

Imports System.Net.Mail

Imports System

Public Class ApplicationUserManager

    Inherits UserManager(Of ApplicationUser)

    Public Sub New(ByVal store As IUserStore(Of ApplicationUser))

        MyBase.New(store)

    End Sub

    Public Shared Function Create(ByVal options As IdentityFactoryOptions(Of ApplicationUserManager), ByVal context As IOwinContext) As ApplicationUserManager

        Dim manager = New ApplicationUserManager(New UserStore(Of ApplicationUser)(context.Get(Of ApplicationDbContext)()))

        manager.UserValidator = New UserValidator(Of ApplicationUser)(manager) With {.AllowOnlyAlphanumericUserNames = False,

                                                                                                                                       .RequireUniqueEmail = True}

        manager.PasswordValidator = New PasswordValidator With {.RequiredLength = 6,

                                                                                                    .RequireNonLetterOrDigit = True,

                                                                                                    .RequireDigit = True,

                                                                                                    .RequireLowercase = True,

                                                                                                    .RequireUppercase = True}

        'manager.EmailService=New EmailService()    'リスト10-9にて詳述

        Return manager

    End Function

End Class