BC36645 ошибка в vb.net - PullRequest
Новая
       9

BC36645 ошибка в vb.net

0 голосов
/ 04 мая 2018

Я использую Visual Studio 2015 для разработки веб-сайта с использованием веб-форм и Visual Basic. Моя проблема - ошибка BC36645, которая не позволяет мне построить решение. Он описывается как "Тип (ы) данных типа (ов) параметра (ов) типа в методе 'Public Shared Overloads Function FromResult (Of TResult) (result As TResult) As Task (Of TResult)" не может быть выведен из этих аргументов . Указание типов данных в явном виде может исправить эту ошибку. "

Что я понимаю основной смысл. Тем не менее, он указан в файле, который я не трогал, он генерируется автоматически. Файл IdentityModels.vb находится в папке Models.

Я получил ту же ошибку в другом проекте в том же решении, которое я решил, удалив, заново создав проект и перестроив. Но это не совсем удобный способ решения проблемы.

Есть ли у кого-то такая же проблема, может объяснить, о чем она, или даже найти правильное решение?

// Eva-Lotta

РЕДАКТИРОВАТЬ:

Это содержимое файла, на который указывает ошибка (с ошибкой в ​​«Return Task.FromResult (GenerateUserIdentity (manager))»: 

Imports System
Imports System.Threading.Tasks
Imports System.Security.Claims
Imports Microsoft.AspNet.Identity
Imports Microsoft.AspNet.Identity.EntityFramework
Imports Microsoft.AspNet.Identity.Owin
Imports Microsoft.Owin.Security

Public Class ApplicationUser
    Inherits IdentityUser

Public Function GenerateUserIdentity(manager As ApplicationUserManager) As 

    Dim userIdentity = manager.CreateIdentity(Me, DefaultAuthenticationTypes.ApplicationCookie)

    Return userIdentity
End Function

Public Function GenerateUserIdentityAsync(manager As ApplicationUserManager) 
    As Task(Of ClaimsIdentity)
        Return Task.FromResult(GenerateUserIdentity(manager))
End Function

End Class

Public Class ApplicationDbContext
Inherits IdentityDbContext(Of ApplicationUser)
Public Sub New()
    MyBase.New("DefaultConnection", throwIfV1Schema:=False)
End Sub

Public Shared Function Create As ApplicationDbContext
    Return New ApplicationDbContext()
End Function

Конечный класс 

#Region "Helpers"
Public Class 
Public Const XsrfKey As String = "xsrfKey"

Public Const ProviderNameKey As String = "providerName"
Public Shared Function GetProviderNameFromRequest(request As HttpRequest) As String
    Return request.QueryString(ProviderNameKey)
End Function

Public Const CodeKey As String = "code"
Public Shared Function GetCodeFromRequest(request As HttpRequest) As String
    Return request.QueryString(CodeKey)
End Function

Public Const UserIdKey As String = "userId"
Public Shared Function GetUserIdFromRequest(request As HttpRequest) As String
    Return HttpUtility.UrlDecode(request.QueryString(UserIdKey))
End Function

Public Shared Function GetResetPasswordRedirectUrl(code As String, request As HttpRequest) As String
    Dim absoluteUri = "/Account/ResetPassword?" + CodeKey + "=" + HttpUtility.UrlEncode(code)
    Return New Uri(request.Url, absoluteUri).AbsoluteUri.ToString()
End Function

Public Shared Function GetUserConfirmationRedirectUrl(code As String, userId As String, request As HttpRequest) As String
    Dim absoluteUri = "/Account/Confirm?" + CodeKey + "=" + HttpUtility.UrlEncode(code) + "&" + UserIdKey + "=" + HttpUtility.UrlEncode(userId)
    Return New Uri(request.Url, absoluteUri).AbsoluteUri.ToString()
End Function

Private Shared Function IsLocalUrl(url As String) As Boolean
    Return Not String.IsNullOrEmpty(url) AndAlso ((url(0) = "/"c AndAlso (url.Length = 1 OrElse (url(1) <> "/"c AndAlso url(1) <> "\"c))) OrElse (url.Length > 1 AndAlso url(0) = "~"c AndAlso url(1) = "/"c))
End Function

Public Shared Sub RedirectToReturnUrl(returnUrl As String, response As HttpResponse)
    If Not [String].IsNullOrEmpty(returnUrl) AndAlso IsLocalUrl(returnUrl) Then
        response.Redirect(returnUrl)
    Else
        response.Redirect("~/")
    End If
End Sub
End Class
#End Region

1 Ответ

0 голосов
/ 04 мая 2018

Для устранения этой ошибки Вы можете указать тип данных для параметра типа или параметров вместо того, чтобы полагаться на вывод типа.

...