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