如何从嵌套页面访问顶级主页面子？

Question

母版页结构

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

我无法获得从基本页面访问顶层类。

TOP MASTER 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如果主是网页的主人的主人的主人或者它更深深嵌套。