Public Class PageOtherHelpDetail Public Entry As HelpEntry Private Sub PageOtherHelpDetail_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded PanBack.ScrollToTop() End Sub ''' ''' 根据特定帮助项初始化页面 UI,返回是否成功加载。 ''' Public Function Init(Entry As HelpEntry) As Boolean Dim FileContent = "" & If(Entry.XamlContent, "") & "" Try If String.IsNullOrEmpty(Entry.XamlContent) Then Throw New Exception("帮助 xaml 文件为空") Me.Entry = Entry PanCustom.Children.Clear() FileContent = HelpArgumentReplace(FileContent) PanCustom.Children.Add(GetObjectFromXML(FileContent)) Return True Catch ex As Exception Log("[System] 自定义信息内容:" & vbCrLf & FileContent) Log(ex, "加载帮助 xaml 文件失败", LogLevel.Msgbox) Return False End Try End Function End Class