Вызов общей процедуры из модуля

Question

Я бы хотел использовать следующую процедуру для установки заголовка, ключевых слов и т. Д. Моих страниц в модуле.

  Public Shared Sub SetTitle(ByVal Heading As String, ByVal Keywords As String())
        Dim myMaster As Masterpage = DirectCast(Me.Master, Masterpage)
        If Request.QueryString("lng") = "es" Then
            myMaster.MasterHeading = Heading
            myMaster.MetaTitle = Heading
            myMaster.MetaDescription = ""
            myMaster.MetaKeywords = GetKeywords(Keywords)
        End If
        myMaster.MetaTitle = myMaster.MasterHeading
    End Sub

Проблема в том, что я получаю две ошибки.

При Me.Master я получаю ошибку 'Me' is valid only within an instance method. и при

If Request... я получаю ошибку

Cannot refer to an instance member of a class from within a shared method or shared member initializer without an explicit instance of the class.

Так как мне это исправить? Я хотел бы, чтобы эта процедура была в общем месте, а не на каждой странице.

Заранее спасибо.

Answer 1

Если вы переместите эту функцию в модуль, вам не нужно ключевое слово shared, поскольку функции в модуле эффективно используются совместно. Смотрите этот ответ .