如何在VB中设置DataProtectorTokenProvider TokenLifetime（不是c＃）

Question

看着this question似乎满足了我的需要。

我需要此代码段的VB.net（2015首选）语法。具体来说，分配TokenLifespan行。

if (dataProtectionProvider != null)
  {
     manager.UserTokenProvider = 
       new DataProtectorTokenProvider<ApplicationUser>(dataProtectionProvider.Create("ASP.NET Identity"))
         {  
           // Added custom code to set a different lifespan                  
            TokenLifespan = TimeSpan.FromHours(3)
         };
  }

Answer 1

好吧，我看了一天，从来没有找到我的C＃到VB语法问题的答案。没有“免费在线转换器”能够处理该片段。我试过了十几个或更多。那些没有错误的，跳过了属性赋值。

最后，我设法通过实例化一个对象然后分配属性来编写未知语法。

这是我用来设置DataProtectorTokenProvider.TokenLifespan值的代码：

If dataProtectionProvider IsNot Nothing Then
   Dim oTokenProvider As Microsoft.AspNet.Identity.Owin.DataProtectorTokenProvider(Of ApplicationUser)
   oTokenProvider = New DataProtectorTokenProvider(Of ApplicationUser)(dataProtectionProvider.Create("ASP.NET Identity"))

   oTokenProvider.TokenLifespan = TimeSpan.FromMinutes(15)

   manager.UserTokenProvider = oTokenProvider
End If

也许这将有助于其他人在路上。 :-)