Расширение HTML в приложении VB.NET MVC 3 - PullRequest
Новая
       17

Расширение HTML в приложении VB.NET MVC 3

1 голос
/ 17 июня 2011

Я реализовал Модуль с использованием VB.NET для обработки локализации в приложении MVC .NET.

Однако, когда я пытаюсь вызвать метод расширения LanguageSelectorLink с моей точки зрения, необходимо предоставить что-то для первого параметра типа HtmlHelper. Во всех примерах C #, которые я нашел в Интернете, этот параметр никогда не указывается и, похоже, работает нормально.

@App_Code.LanguageSelectorLink (Ничего, «en-CA», «[Английский]», «Английский», Ничего)

Я пропустил шаг? Кто-нибудь может мне помочь?

Imports System.Threading

Namespace App_Code 

Public Module SwitchLanguageHelper
    <System.Runtime.CompilerServices.Extension()>
    Public Function LanguageUrl(ByVal helper As HtmlHelper,
                                       ByVal cultureName As String,
                                       Optional ByVal languageRouteName As String = "lang",
                                       Optional ByVal strictSelected As Boolean = False) As Language
        'Set the input language to lower
        cultureName = cultureName.ToLower()

        'retrieve the route values from the view context
        Dim routeValues = New RouteValueDictionary(helper.ViewContext.RouteData.Values)

        'copy the query strings into the route values to generate the link
        Dim queryString = helper.ViewContext.HttpContext.Request.QueryString

        For Each key In queryString
            If (Not (IsNothing(queryString(key))) And
               Not (String.IsNullOrWhiteSpace(queryString(key)))) Then
                If (routeValues.ContainsKey(key)) Then
                    routeValues(key) = queryString(key)
                Else
                    routeValues.Add(key, queryString(key))
                End If

            End If
        Next

        Dim actionName = routeValues("action").ToString()
        Dim controllerName = routeValues("controller").ToString()

        'set the language into route values
        routeValues(languageRouteName) = cultureName

        'generate the language specify url
        Dim urlHelper = New UrlHelper(helper.ViewContext.RequestContext, helper.RouteCollection)
        Dim url = urlHelper.RouteUrl("Localization", routeValues)

        'check whether the current thread ui culture is this language
        Dim current_lang_name = Thread.CurrentThread.CurrentUICulture.Name.ToLower()
        Dim isSelected As Boolean

        If (strictSelected) Then
            current_lang_name = cultureName
        Else
            current_lang_name.StartsWith(cultureName)
        End If

        isSelected = current_lang_name

        Dim language As Language = New Language()

        language.Url = url
        language.ActionName = actionName
        language.ControllerName = controllerName
        language.RouteValues = routeValues
        language.IsSelected = isSelected

        Return language
    End Function

    <System.Runtime.CompilerServices.Extension()>
    Public Function LanguageSelectorLink(ByVal helper As HtmlHelper, ByVal cultureName As String, ByVal selectedText As String, ByVal unselectedText As String, ByVal htmlAttributes As IDictionary(Of String, Object), Optional ByVal languageRouteName As String = "lang", _
                                         Optional ByVal strictSelected As Boolean = False) As MvcHtmlString
        Dim language = helper.LanguageUrl(cultureName, languageRouteName, strictSelected)
        Dim link = helper.RouteLink(If(language.IsSelected, selectedText, unselectedText), "Localization", language.RouteValues, htmlAttributes)

        Return link
    End Function


End Module

Конечное пространство имен

1 Ответ

0 голосов
/ 19 июня 2011

Что вы сделали, так это добавили два метода расширения к классу HtmlHelper.ByVal helper as HtmlHelper передается неявно как экземпляр класса HtmlHelper при использовании этих методов.

Вот как вы используете их в представлении: 

@Imports YourApplicationName.AppCode

@Html.LanguageSelectorLink("en-CA", "[English]", "English", Nothing)

Надеюсь, это поможет.

...