上传公开代码

2022-07-27 18:48:13 +08:00
parent 6a3f4d35d4
commit b0b02291cc
208 changed files with 38567 additions and 0 deletions
@@ -0,0 +1,23 @@
+<local:MyPageRight
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:local="clr-namespace:PCL" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             mc:Ignorable="d" x:Class="PageOtherHelp"
+             d:DesignWidth="800" d:DesignHeight="800">
+    <Grid>
+        <local:MyScrollViewer Visibility="Collapsed" VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Disabled" x:Name="PanBack">
+            <StackPanel x:Name="PanMain" Margin="25,25,25,10" Grid.IsSharedSizeScope="True">
+                <local:MySearchBox Margin="0,0,0,15" HintText="搜索帮助" x:Name="SearchBox" />
+                <Grid>
+                    <local:MyCard x:Name="PanSearch" Visibility="Collapsed" VerticalAlignment="Top" Opacity="0" Margin="0,0,0,15" Title=" " MinHeight="40">
+                        <StackPanel Margin="20,40,18,18" Name="PanSearchList" VerticalAlignment="Top" />
+                    </local:MyCard>
+                    <StackPanel Name="PanList" />
+                </Grid>
+            </StackPanel>
+        </local:MyScrollViewer>
+        <local:MyCard Visibility="Collapsed" HorizontalAlignment="Center" VerticalAlignment="Center" Margin="40,0" SnapsToDevicePixels="True" x:Name="PanLoad" UseAnimation="False">
+            <local:MyLoading Text="正在加载帮助列表" Margin="20,20,20,17" x:Name="Load" HorizontalAlignment="Center" VerticalAlignment="Center" />
+        </local:MyCard>
+    </Grid>
+</local:MyPageRight>
@@ -0,0 +1,177 @@
+Public Class PageOtherHelp
+
+#Region "初始化"
+
+    '滚动条
+    Private Sub PageOther_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        PanBack.ScrollToHome()
+    End Sub
+    '初始化加载器信息
+    Private Sub PageOther_Inited(sender As Object, e As EventArgs) Handles Me.Initialized
+        PageLoaderInit(Load, PanLoad, PanBack, Nothing, HelpLoader, AddressOf HelpListLoad)
+    End Sub
+
+#End Region
+
+    ''' <summary>
+    ''' 将帮助列表对象实例化为主页 UI。
+    ''' </summary>
+    Private Sub HelpListLoad(Loader As LoaderTask(Of Integer, List(Of HelpEntry)))
+        Try
+
+            '初始化
+            PanList.Children.Clear()
+            PanBack.ScrollToHome()
+            Dim HelpItems = Loader.Output
+            '获取全部分类
+            Dim Types As New List(Of String)
+            For Each Item As HelpEntry In HelpItems
+                If Val(VersionBranchCode) = 50 AndAlso Not Item.ShowInPublic Then Continue For
+                If Val(VersionBranchCode) <> 50 AndAlso Not Item.ShowInSnapshot Then Continue For
+                For Each Type In Item.Types
+                    If Not Types.Contains(Type) Then Types.Add(Type)
+                Next
+            Next
+            '将指南页面置顶
+            If Types.Contains("指南") Then
+                Types.Remove("指南")
+                Types.Insert(0, "指南")
+            End If
+            '转化为 UI
+            For Each Type As String In Types
+                '确认所属该分类的项目
+                Dim TypeItems As New List(Of HelpEntry)
+                For Each Item In HelpItems
+                    If Val(VersionBranchCode) = 50 AndAlso Not Item.ShowInPublic Then Continue For
+                    If Val(VersionBranchCode) <> 50 AndAlso Not Item.ShowInSnapshot Then Continue For
+                    If Item.Types.Contains(Type) Then TypeItems.Add(Item)
+                Next
+                '增加卡片
+                Dim NewCard As New MyCard With {.Title = Type, .Margin = New Thickness(0, 0, 0, 15), .SwapType = 11}
+                Dim NewStack As New StackPanel With {.Margin = New Thickness(20, MyCard.SwapedHeight, 18, 0), .VerticalAlignment = VerticalAlignment.Top, .RenderTransform = New TranslateTransform(0, 0), .Tag = TypeItems}
+                NewCard.Children.Add(NewStack)
+                NewCard.SwapControl = NewStack
+                If Type = "指南" Then
+                    MyCard.StackInstall(NewStack, 11, "指南")
+                Else
+                    NewCard.IsSwaped = True
+                End If
+                PanList.Children.Add(NewCard)
+            Next
+
+        Catch ex As Exception
+            Log(ex, "加载帮助列表 UI 失败", LogLevel.Feedback)
+        End Try
+    End Sub
+
+    ''' <summary>
+    ''' 帮助项目的点击事件。
+    ''' </summary>
+    Public Shared Sub OnItemClick(Entry As HelpEntry)
+        Try
+            If Entry.IsEvent Then
+                ModEvent.TryStartEvent(Entry.EventType, Entry.EventData)
+            Else
+                EnterHelpPage(Entry)
+            End If
+        Catch ex As Exception
+            Log(ex, "处理帮助项目点击时发生意外错误", LogLevel.Feedback)
+        End Try
+    End Sub
+    Public Shared Sub EnterHelpPage(Location As String)
+        RunInThread(Sub()
+                        If Not HelpLoader.State = LoadState.Finished Then HelpLoader.WaitForExit(GetUuid)
+                        Dim Entry As New HelpEntry(Location)
+                        RunInUi(Sub()
+                                    Dim FrmHelpDetail As New PageOtherHelpDetail
+                                    If FrmHelpDetail.Init(Entry) Then
+                                        FrmMain.PageChange(New FormMain.PageStackData With {.Page = FormMain.PageType.HelpDetail, .Additional = {Entry, FrmHelpDetail}})
+                                    Else
+                                        Log("[Help] 已取消进入帮助项目，这一般是由于 xaml 初始化失败，且用户在弹窗中手动放弃", LogLevel.Debug)
+                                    End If
+                                End Sub)
+                    End Sub)
+    End Sub
+    Public Shared Sub EnterHelpPage(Entry As HelpEntry)
+        RunInThread(Sub()
+                        If Not HelpLoader.State = LoadState.Finished Then HelpLoader.WaitForExit(GetUuid)
+                        RunInUi(Sub()
+                                    Dim FrmHelpDetail As New PageOtherHelpDetail
+                                    If FrmHelpDetail.Init(Entry) Then
+                                        FrmMain.PageChange(New FormMain.PageStackData With {.Page = FormMain.PageType.HelpDetail, .Additional = {Entry, FrmHelpDetail}})
+                                    Else
+                                        Log("[Help] 已取消进入帮助项目，这一般是由于 xaml 初始化失败，且用户在弹窗中手动放弃", LogLevel.Debug)
+                                    End If
+                                End Sub)
+                    End Sub)
+    End Sub
+    Public Shared Function GetHelpPage(Location As String) As PageOtherHelpDetail
+        If Not HelpLoader.State = LoadState.Finished Then HelpLoader.WaitForExit(GetUuid)
+        Dim FrmHelpDetail As New PageOtherHelpDetail
+        If FrmHelpDetail.Init(New HelpEntry(Location)) Then
+            Return FrmHelpDetail
+        Else
+            Throw New Exception("已取消进入帮助项目，这一般是由于 xaml 初始化失败，且用户在弹窗中手动放弃")
+        End If
+    End Function
+
+    ''' <summary>
+    ''' 搜索帮助。
+    ''' </summary>
+    Public Sub SearchRun() Handles SearchBox.TextChanged
+        If String.IsNullOrWhiteSpace(SearchBox.Text) Then
+            '隐藏
+            AniStart({
+                     AaOpacity(PanSearch, -PanSearch.Opacity, 100),
+                     AaCode(Sub()
+                                PanSearch.Height = 0
+                                PanSearch.Visibility = Visibility.Collapsed
+                                PanList.Visibility = Visibility.Visible
+                            End Sub,, True),
+                     AaOpacity(PanList, 1 - PanList.Opacity, 150, 30)
+                }, "FrmOtherHelp Search Switch")
+        Else
+            '构造请求
+            Dim QueryList As New List(Of SearchEntry(Of HelpEntry))
+            For Each Entry As HelpEntry In HelpLoader.Output
+                If Not Entry.ShowInSearch OrElse (Val(VersionBranchCode) = 50 AndAlso Not Entry.ShowInPublic) Then Continue For
+                If Not Entry.ShowInSearch OrElse (Val(VersionBranchCode) <> 50 AndAlso Not Entry.ShowInSnapshot) Then Continue For
+                QueryList.Add(New SearchEntry(Of HelpEntry) With {
+                    .Item = Entry,
+                    .SearchSource = New List(Of KeyValuePair(Of String, Double)) From {
+                        New KeyValuePair(Of String, Double)(Entry.Title, 1),
+                        New KeyValuePair(Of String, Double)(Entry.Desc, 0.5),
+                        New KeyValuePair(Of String, Double)(Entry.Search, 1.5)
+                    }
+                })
+                'New KeyValuePair(Of String, Double)(If(Entry.IsEvent, If(Entry.EventData, ""), Entry.XamlContent), 0.2)
+            Next
+            '进行搜索，构造列表
+            Dim SearchResult = Search(QueryList, SearchBox.Text, MaxBlurCount:=5, MinBlurSimilarity:=0.08)
+            PanSearchList.Children.Clear()
+            If SearchResult.Count = 0 Then
+                PanSearch.Title = "无搜索结果"
+                PanSearchList.Visibility = Visibility.Collapsed
+            Else
+                PanSearch.Title = "搜索结果"
+                For Each Result In SearchResult
+                    Dim Item = Result.Item.ToListItem
+                    If ModeDebug Then Item.Info = If(Result.AbsoluteRight, "完全匹配，", "") & "相似度：" & Math.Round(Result.Similarity, 3) & "，" & Item.Info
+                    PanSearchList.Children.Add(Item)
+                Next
+                PanSearchList.Visibility = Visibility.Visible
+            End If
+            '显示
+            AniStart({
+                     AaOpacity(PanList, -PanList.Opacity, 100),
+                     AaCode(Sub()
+                                PanList.Visibility = Visibility.Collapsed
+                                PanSearch.Visibility = Visibility.Visible
+                                PanSearch.TriggerForceResize()
+                            End Sub,, True),
+                     AaOpacity(PanSearch, 1 - PanSearch.Opacity, 150, 30)
+                }, "FrmOtherHelp Search Switch")
+        End If
+    End Sub
+
+End Class
@@ -0,0 +1,24 @@
+<local:MyPageRight x:Class="PageOtherHelpDetail"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:local="clr-namespace:PCL"
+             mc:Ignorable="d">
+    <local:MyScrollViewer VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Disabled" x:Name="PanBack">
+        <StackPanel x:Name="PanCustom" Margin="25,25,25,10">
+            <StackPanel.Resources>
+                <Style TargetType="TextBlock" BasedOn="{StaticResource BasedOnTextBlock}">
+                    <Setter Property="TextWrapping" Value="Wrap"/>
+                </Style>
+                <Style TargetType="local:MyCard">
+                    <Setter Property="Margin" Value="0,0,0,15"/>
+                </Style>
+                <Style TargetType="Image">
+                    <Setter Property="RenderOptions.BitmapScalingMode" Value="HighQuality"/>
+                    <Setter Property="HorizontalAlignment" Value="Center"/>
+                </Style>
+            </StackPanel.Resources>
+        </StackPanel>
+    </local:MyScrollViewer>
+</local:MyPageRight>
@@ -0,0 +1,27 @@
+Public Class PageOtherHelpDetail
+    Public Entry As HelpEntry
+
+    Private Sub PageOtherHelpDetail_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        PanBack.ScrollToTop()
+    End Sub
+
+    ''' <summary>
+    ''' 根据特定帮助项初始化页面 UI，返回是否成功加载。
+    ''' </summary>
+    Public Function Init(Entry As HelpEntry) As Boolean
+        Dim FileContent = "<StackPanel xmlns=""http://schemas.microsoft.com/winfx/2006/xaml/presentation"" xmlns:x=""http://schemas.microsoft.com/winfx/2006/xaml"" xmlns:local=""clr-namespace:PCL;assembly=Plain Craft Launcher 2"">" & If(Entry.XamlContent, "") & "</StackPanel>"
+        Try
+            If String.IsNullOrEmpty(Entry.XamlContent) Then Throw New Exception("帮助 xaml 文件为空")
+            Me.Entry = Entry
+            PanCustom.Children.Clear()
+            FileContent = FileContent.Replace("{path}", Path)
+            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
@@ -0,0 +1,27 @@
+<local:MyPageLeft x:Class="PageOtherLeft"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:local="clr-namespace:PCL" AnimatedControl="{Binding ElementName=PanItem, Mode=OneWay}">
+    <StackPanel Margin="0,12,0,0" Name="PanItem">
+        <local:MyListItem x:Name="ItemHelp" IsScaleAnimationEnabled="False" Checked="True" Type="RadioBox" Tag="0" PaddingRight="35" Height="36" VerticalAlignment="Top" Title="帮助"
+                          LogoScale="0.97" Logo="M520.6 620.3c-11.3-0.6-20.1-4-26.9-10.5-6.6-6.3-8.1-11-10.1-20.8-1.9-9.5-1.5-16.7-1-24.9l0.3-5.3c0.5-9.9 3.5-19.6 8.8-28.1 5.7-9 12.5-17.2 20.8-25.1 8.6-8 17.7-15.7 27-22.9 9.4-7.2 18.7-14.8 27.7-22.7 9-7.9 16.2-15.8 22.1-24.3 6.2-9 9.3-18.8 9.3-29.4 1.2-20.3-6.5-37.7-22.8-51.3-16-13.3-37.4-20-63.5-20-13.7 0-26.3 3.3-37.4 10-10.9 6.5-20.2 14.5-27.7 23.8-7.5 9.2-13.5 19-17.9 29.2-4.5 10.6-6.7 19.4-6.7 26.8 0 9.2-3.3 16-10.1 20.8-6.9 4.8-14.6 7.3-22.8 7.3h-1.3c-9-0.3-17-3.3-24.6-9.2-7.3-5.6-11.1-14.6-11.6-27.5-0.6-11.5 1.9-26.1 7.2-43.5 5.4-17.4 14.8-34.4 28.1-50.5 13.4-16.3 31.2-30.4 52.8-41.8 21.6-11.4 49.2-17.2 81.9-17.2 26.4 0 49.6 3.9 69.1 11.7 19.4 7.7 35.4 18.2 47.5 31.1l1.6 1.7c11.8 12.6 20.3 21.7 29.4 44.4 11.6 28.9 7.1 52.1 5.5 58.5-5.8 22.6-12.6 37.7-22.7 50.4-11.7 14.6-24.9 28.2-39.2 40.4-14 11.7-39.2 33.3-39.2 33.3-13.3 11.4-19.4 22.1-18.6 32.9V587c0.5 8.7-2.4 16.1-8.8 22.8-6.2 6.4-14.8 10-26.2 10.5zM519 766.1c-13 0-23.6-4.2-32.2-12.9-8.7-8.7-13-19-13-31.4 0-12.9 4.2-23.5 12.9-32.2 8.7-8.7 19.2-12.9 32.2-12.9 13 0 23.5 4.2 32.2 12.9s12.9 19.2 12.9 32.2c0 12.4-4.2 22.7-12.9 31.4-8.6 8.6-19.2 12.9-32.1 12.9z M515 928.3c-228.1 0-413.7-185.6-413.7-413.7S286.9 100.9 515 100.9s413.7 185.6 413.7 413.7c0.1 228.1-185.5 413.7-413.7 413.7z m0-747.4c-184 0-333.7 149.7-333.7 333.7S331 848.3 515 848.3s333.7-149.7 333.7-333.7S699 180.9 515 180.9z">
+            <local:MyListItem.Buttons>
+                <x:Array Type="{x:Type local:MyIconButton}">
+                    <local:MyIconButton Tag="0" ToolTip="刷新" ToolTipService.Placement="Right" ToolTipService.ShowDuration="2333333" ToolTipService.InitialShowDelay="200" Click="Refresh" LogoScale="0.85" Logo="M875.52 148.48C783.36 56.32 655.36 0 512 0 291.84 0 107.52 138.24 30.72 332.8l122.88 46.08C204.8 230.4 348.16 128 512 128c107.52 0 199.68 40.96 271.36 112.64L640 384h384V0L875.52 148.48zM512 896c-107.52 0-199.68-40.96-271.36-112.64L384 640H0v384l148.48-148.48C240.64 967.68 368.64 1024 512 1024c220.16 0 404.48-138.24 481.28-332.8L870.4 645.12C819.2 793.6 675.84 896 512 896z" />
+                </x:Array>
+            </local:MyListItem.Buttons>
+        </local:MyListItem>
+        <local:MyListItem x:Name="ItemAbout" IsScaleAnimationEnabled="False" Type="RadioBox" Tag="1" PaddingRight="28" Height="36" VerticalAlignment="Top" Title="关于与鸣谢"
+                          LogoScale="0.98" Logo="M149.883623 873.911618c47.094581 47.094581 101.765247 83.95121 162.783444 109.75085 63.065787 26.618676 130.226755 40.337532 199.230553 40.337532 69.003799 0 136.164767-13.514097 199.230554-40.337532 61.018196-25.79964 115.688862-62.656269 162.783444-109.75085s83.95121-101.765247 109.75085-162.783444c26.618676-63.065787 40.337532-130.226755 40.337532-199.230554 0-69.003799-13.514097-136.164767-40.337532-199.230553-25.79964-61.018196-62.656269-115.688862-109.75085-162.783444-46.889822-46.889822-101.765247-83.95121-162.783444-109.75085C648.062388 13.514097 580.90142 0 511.89762 0s-136.164767 13.514097-199.230553 40.337532c-61.018196 25.79964-115.688862 62.656269-162.783444 109.75085s-83.95121 101.765247-109.75085 162.783444C13.514097 375.732853 0 442.893821 0 511.89762s13.514097 136.164767 40.337532 199.230554c25.594881 61.018196 62.656269 115.688862 109.546091 162.783444zM97.670066 511.89762c0-228.511098 185.921216-414.227554 414.227554-414.227554 228.511098 0 414.227554 185.921216 414.227555 414.227554S740.408718 926.125175 511.89762 926.125175c-228.511098 0-414.227554-185.716457-414.227554-414.227555z M539.130574 244.277544c-8.190362-4.709458-17.609278-7.371326-27.232954-7.371325-9.623675 0-19.042591 2.457109-27.232953 7.371325-16.790242 9.623675-27.232953 27.847231-27.232953 47.299341 0 30.09958 24.366327 54.465907 54.465906 54.465906 30.09958 0 54.465907-24.366327 54.465907-54.465906 0-19.45211-10.442711-37.470906-27.232953-47.299341zM566.363527 732.218356v-284.615077c0-30.09958-24.366327-54.465907-54.465907-54.465906-30.09958 0-54.465907 24.366327-54.465906 54.465906v284.615077c0 30.09958 24.366327 54.465907 54.465906 54.465907 30.09958 0 54.465907-24.366327 54.465907-54.465907z" />
+        <local:MyListItem x:Name="ItemTest" IsScaleAnimationEnabled="False" Tag="2" PaddingRight="35" Type="RadioBox" Height="36" VerticalAlignment="Top" Title="百宝箱"
+                          LogoScale="0.97" Logo="M511.488 995.328a128.654222 128.654222 0 0 1-57.116444-13.112889L70.769778 791.808a126.833778 126.833778 0 0 1-70.769778-113.777778V311.608889a126.179556 126.179556 0 0 1 15.36-60.103111V248.604444c1.479111-2.901333 3.356444-5.603556 5.518222-8.021333a127.630222 127.630222 0 0 1 49.891556-42.325333L454.371556 13.368889a128.739556 128.739556 0 0 1 112.981333 0l383.601778 190.407111a126.862222 126.862222 0 0 1 72.049777 113.379556v360.874666a126.805333 126.805333 0 0 1-70.769777 115.939556L568.604444 984.32c-17.92 7.964444-37.461333 11.747556-57.116444 11.008z m42.638222-470.897778v370.204445l360.192-178.545778c14.449778-7.253333 23.552-21.987556 23.438222-38.087111v-335.928889L554.097778 524.430222zM85.248 330.666667v347.335111a42.268444 42.268444 0 0 0 23.438222 38.087111l360.192 178.545778V523.576889L85.248 330.666667zM135.537778 260.835556l375.950222 189.952 137.671111-65.564445L286.435556 188.074667 135.537778 260.864z m245.105778-118.471112l363.576888 197.973334 150.897778-71.480889-365.283555-180.224a42.922667 42.922667 0 0 0-37.518223 0l-111.672888 53.731555z" />
+        <local:MyListItem x:Name="ItemFeedback" IsScaleAnimationEnabled="False" Type="RadioBox" Tag="3" PaddingRight="35" Height="36" VerticalAlignment="Top" Title="反馈"
+                          LogoScale="0.9" Logo="M613.717333 64.426667l3.413334 3.242666 331.861333 331.861334a85.333333 85.333333 0 0 1 3.2 117.269333l-3.2 3.413333L573.162667 896H960a21.333333 21.333333 0 0 1 21.333333 21.333333v42.666667a21.333333 21.333333 0 0 1-21.333333 21.333333H64a21.333333 21.333333 0 0 1-21.333333-21.333333v-42.666667a21.333333 21.333333 0 0 1 21.333333-21.333333h295.338667L74.069333 610.709333a85.333333 85.333333 0 0 1-3.221333-117.269333l3.2-3.413333 422.4-422.357334a85.333333 85.333333 0 0 1 117.269333-3.221333z m-20.629333 99.882666l-21.418667 321.493334a85.333333 85.333333 0 0 1-74.944 79.04l-4.522666 0.426666-321.493334 21.44 295.552 295.530667 422.4-422.378667L593.066667 164.309333z m-86.442667 13.824L184.533333 500.266667l301.994667-20.117334 20.117333-301.994666z">
+            <local:MyListItem.Buttons>
+                <x:Array Type="{x:Type local:MyIconButton}">
+                    <local:MyIconButton Tag="3" ToolTip="刷新" ToolTipService.Placement="Right" ToolTipService.ShowDuration="2333333" ToolTipService.InitialShowDelay="200" Click="Refresh" LogoScale="0.85" Logo="M875.52 148.48C783.36 56.32 655.36 0 512 0 291.84 0 107.52 138.24 30.72 332.8l122.88 46.08C204.8 230.4 348.16 128 512 128c107.52 0 199.68 40.96 271.36 112.64L640 384h384V0L875.52 148.48zM512 896c-107.52 0-199.68-40.96-271.36-112.64L384 640H0v384l148.48-148.48C240.64 967.68 368.64 1024 512 1024c220.16 0 404.48-138.24 481.28-332.8L870.4 645.12C819.2 793.6 675.84 896 512 896z" />
+                </x:Array>
+            </local:MyListItem.Buttons>
+        </local:MyListItem>
+    </StackPanel>
+</local:MyPageLeft>
@@ -0,0 +1,140 @@
+Public Class PageOtherLeft
+
+    Private IsLoad As Boolean = False
+    Private IsPageSwitched As Boolean = False '如果在 Loaded 前切换到其他页面，会导致触发 Loaded 时再次切换一次
+    Private Sub PageOtherLeft_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        '是否处于隐藏的子页面
+        Dim IsHiddenPage As Boolean = False
+        If ItemHelp.Checked AndAlso Setup.Get("UiHiddenOtherHelp") Then IsHiddenPage = True
+        If ItemFeedback.Checked AndAlso Setup.Get("UiHiddenOtherFeedback") Then IsHiddenPage = True
+        If ItemAbout.Checked AndAlso Setup.Get("UiHiddenOtherAbout") Then IsHiddenPage = True
+        If ItemTest.Checked AndAlso Setup.Get("UiHiddenOtherTest") Then IsHiddenPage = True
+        If PageSetupUI.HiddenForceShow Then IsHiddenPage = False
+        '若页面错误，或尚未加载，则继续
+        If IsLoad AndAlso Not IsHiddenPage Then Exit Sub
+        IsLoad = True
+        '刷新子页面隐藏情况
+        PageSetupUI.HiddenRefresh()
+        '选择第一个未被禁用的子页面
+        If IsPageSwitched Then Exit Sub
+        If Not Setup.Get("UiHiddenOtherHelp") Then
+            ItemHelp.SetChecked(True, False, False)
+        ElseIf Not Setup.Get("UiHiddenOtherAbout") Then
+            ItemAbout.SetChecked(True, False, False)
+        ElseIf Not Setup.Get("UiHiddenOtherTest") Then
+            ItemTest.SetChecked(True, False, False)
+        Else
+            ItemFeedback.SetChecked(True, False, False)
+        End If
+    End Sub
+    Private Sub PageOtherLeft_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
+        IsPageSwitched = False
+    End Sub
+
+#Region "页面切换"
+
+    ''' <summary>
+    ''' 当前页面的编号。从 0 开始计算。
+    ''' </summary>
+    Public PageID As FormMain.PageSubType
+    Public Sub New()
+        InitializeComponent()
+        '选择第一个未被禁用的子页面
+        If Not Setup.Get("UiHiddenOtherHelp") Then
+            PageID = FormMain.PageSubType.OtherHelp
+        ElseIf Not Setup.Get("UiHiddenOtherAbout") Then
+            PageID = FormMain.PageSubType.OtherAbout
+        ElseIf Not Setup.Get("UiHiddenOtherTest") Then
+            PageID = FormMain.PageSubType.OtherTest
+        Else
+            PageID = FormMain.PageSubType.OtherFeedback
+        End If
+    End Sub
+
+    ''' <summary>
+    ''' 勾选事件改变页面。
+    ''' </summary>
+    Private Sub PageCheck(sender As MyListItem, e As RouteEventArgs) Handles ItemAbout.Check, ItemHelp.Check, ItemFeedback.Check, ItemTest.Check
+        '尚未初始化控件属性时，sender.Tag 为 Nothing，会导致切换到页面 0
+        '若使用 IsLoaded，则会导致模拟点击不被执行（模拟点击切换页面时，控件的 IsLoaded 为 False）
+        If sender.Tag IsNot Nothing Then PageChange(Val(sender.Tag))
+    End Sub
+
+    Public Function PageGet(Optional ID As FormMain.PageSubType = -1)
+        If ID = -1 Then ID = PageID
+        Select Case ID
+            Case FormMain.PageSubType.OtherHelp
+                If FrmOtherHelp Is Nothing Then FrmOtherHelp = New PageOtherHelp
+                Return FrmOtherHelp
+            Case FormMain.PageSubType.OtherFeedback
+                If FrmOtherFeedback Is Nothing Then FrmOtherFeedback = New PageOtherFeedback
+                Return FrmOtherFeedback
+            Case FormMain.PageSubType.OtherAbout
+                If FrmOtherAbout Is Nothing Then FrmOtherAbout = New PageOtherAbout
+                Return FrmOtherAbout
+            Case FormMain.PageSubType.OtherTest
+                If FrmOtherTest Is Nothing Then FrmOtherTest = New PageOtherTest
+                Return FrmOtherTest
+            Case Else
+                Throw New Exception("未知的更多子页面种类：" & ID)
+        End Select
+    End Function
+
+    ''' <summary>
+    ''' 切换现有页面。
+    ''' </summary>
+    Public Sub PageChange(ID As FormMain.PageSubType)
+        If PageID = ID Then Exit Sub
+        AniControlEnabled += 1
+        IsPageSwitched = True
+        Try
+            PageChangeRun(PageGet(ID))
+            PageID = ID
+        Catch ex As Exception
+            Log(ex, "切换设置分页面失败（ID " & ID & "）", LogLevel.Feedback)
+        Finally
+            AniControlEnabled -= 1
+        End Try
+    End Sub
+    Private Shared Sub PageChangeRun(Target As MyPageRight)
+        AniStop("FrmMain PageChangeRight") '停止主页面的右页面切换动画，防止它与本动画一起触发多次 PageOnEnter
+        If Target.Parent IsNot Nothing Then Target.SetValue(ContentPresenter.ContentProperty, Nothing)
+        FrmMain.PageRight = Target
+        CType(FrmMain.PanMainRight.Child, MyPageRight).PageOnExit()
+        AniStart({
+                         AaCode(Sub()
+                                    CType(FrmMain.PanMainRight.Child, MyPageRight).PageOnForceExit()
+                                    FrmMain.PanMainRight.Child = FrmMain.PageRight
+                                    FrmMain.PageRight.Opacity = 0
+                                End Sub, 130),
+                         AaCode(Sub()
+                                    '延迟触发页面通用动画，以使得在 Loaded 事件中加载的控件得以处理
+                                    FrmMain.PageRight.Opacity = 1
+                                    FrmMain.PageRight.PageOnEnter()
+                                End Sub, 30, True)
+                     }, "PageLeft PageChange")
+    End Sub
+
+#End Region
+
+    '强制刷新
+    Public Sub Refresh(sender As Object, e As EventArgs) '由边栏按钮匿名调用
+        Select Case Val(sender.Tag)
+            Case FormMain.PageSubType.OtherHelp
+                RefreshHelp()
+            Case FormMain.PageSubType.OtherFeedback
+                If FrmOtherFeedback IsNot Nothing Then
+                    FrmOtherFeedback.PageLoaderRestart()
+                    FrmOtherFeedback.SearchBox.Text = ""
+                Else
+                    FeedbackLoader.Start()
+                End If
+        End Select
+    End Sub
+    Public Shared Sub RefreshHelp()
+        Setup.Set("SystemHelpVersion", 0) '强制重新解压文件
+        FrmOtherHelp.PageLoaderRestart()
+        FrmOtherHelp.SearchBox.Text = ""
+    End Sub
+
+End Class