如何从嵌套页面中访问顶级母版页子？

Question

母版页结构

TOP MASTER
    PAGE MASTER "TopMaster.ErrorMsg(ErrMsg) Here throws NO error"
        PAGE "TopMaster.ErrorMsg(ErrMsg) Here throws error"

我无法从基本页面访问顶级类。

顶级大师 ASPX

<asp:Literal ID="litMsg" runat="Server"/>

PAGE.VB

Partial Public Class BasePage
  Inherits System.Web.UI.Page

  Public Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    TopMaster.ErrorMsg(ErrMsg) 
    "Error BC30451: TopMaster is not declared it may be inaccessible due to its protection level."
  End Sub

End Class

MASTER.VB

Partial Public Class PageMaster
  Inherits System.Web.UI.MasterPage

End Class

TOP MASTER.VB

Partial Public Class TopMaster
  Inherits System.Web.UI.MasterPage

  Public Shared Sub ErrorMsg(ErrMsg As String)
    Dim myPage = TryCast(HttpContext.Current.Handler, Page)

    If myPage IsNot Nothing Then
      Dim master = myPage.Master
      Dim myMaster = TryCast(master.Master, TopMaster)
      While master.Master IsNot Nothing AndAlso myMaster Is Nothing
        master = master.Master
        myMaster = TryCast(master, TopMaster)
      End While

      myMaster.litMsg.Text = ErrMsg
    End If

  End Sub

End Class

Answer 1

更新：现在清楚了，把类设为Public，否则访问不了：

Partial Public Class TopMaster

你应该向我们展示包括堆栈跟踪在内的确切错误消息。似乎没有声明类型 Top Master，这没有任何意义，因为您属于 TopMaster 类。

所以我怀疑以下是否解决了您的核心问题“错误：未声明顶级大师”，但无论如何它可能有用。

如果您想访问该文字，您应该在 TopMaster 中提供一个属性，如下所示：

Public Property ErrorMsg As String
    Get
        Return Me.litMsg.Text
    End Get
    Set(value As String)
        Me.litMsg.Text = value
    End Set
End Property

通过这种方式，您甚至可以在不破坏代码的情况下更改控件类型。它比暴露控件本身要好得多。

我猜您还必须将分配从循环内部移动到外部。您还应该在开头使用Dim myMaster = TryCast(master, TopMaster)，而不是像使用TryCast(master.Master, TopMaster)那样直接跳转到页面的主人的主人：

Public Shared Sub ErrorMsg(ErrMsg As String)
    Dim myPage = TryCast(HttpContext.Current.Handler, Page)

    If myPage IsNot Nothing Then
        Dim master = myPage.Master
        Dim myMaster = TryCast(master, TopMaster)
        While master.Master IsNot Nothing AndAlso myMaster Is Nothing
            master = master.Master
            myMaster = TryCast(master, TopMaster)
        End While
        myMaster.ErrorMsg = ErrMsg
    End If

End Sub

否则，如果母版是页面的母版的母版，或者嵌套更深，您只会分配ErrorMsg。