上传公开代码

Plain Craft Launcher 2/Controls/IMyRadio.vb

@@ -0,0 +1,4 @@
+Public Interface IMyRadio
+    Event Check(sender As Object, e As RouteEventArgs)
+    Event Changed(sender As Object, e As RouteEventArgs)
+End Interface

Plain Craft Launcher 2/Controls/MyButton.xaml

@@ -0,0 +1,16 @@
+<Border x:Class="MyButton"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             FocusVisualStyle="{x:Null}" x:Name="PanBack"
+             Focusable="True" UseLayoutRounding="False" SnapsToDevicePixels="False" Background="{StaticResource ColorBrushSemiTransparent}">
+    <Border CornerRadius="3" x:Name="PanFore" BorderThickness="1" BorderBrush="{DynamicResource ColorBrush1}" RenderTransformOrigin="0.5,0.5" Background="{StaticResource ColorBrushHalfWhite}">
+        <Border.RenderTransform>
+            <ScaleTransform />
+        </Border.RenderTransform>
+        <TextBlock TextOptions.TextFormattingMode="Display" SnapsToDevicePixels="True" TextTrimming="None" Text="Button" HorizontalAlignment="Center" x:Name="LabText" VerticalAlignment="Center" RenderTransformOrigin="0.5,0.5" Foreground="{Binding Parent.BorderBrush, RelativeSource={RelativeSource Self}}" FontSize="13" IsHitTestVisible="False">
+            <TextBlock.RenderTransform>
+                <ScaleTransform />
+            </TextBlock.RenderTransform>
+        </TextBlock>
+    </Border>
+</Border>

Plain Craft Launcher 2/Controls/MyButton.xaml.vb

@@ -0,0 +1,196 @@
+Public Class MyButton
+
+    '声明
+    Public Event Click(sender As Object, e As EventArgs) '自定义事件
+
+    '自定义属性
+    Public Uuid As Integer = GetUuid()
+    Public Property Text As String
+        Get
+            Return LabText.Text
+        End Get
+        Set(value As String)
+            LabText.Text = value
+        End Set
+    End Property '显示文本
+    Public Shared ReadOnly TextProperty As DependencyProperty = DependencyProperty.Register("Text", GetType(String), GetType(MyButton), New PropertyMetadata(New PropertyChangedCallback(
+                                                                                                                                                               Sub(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
+                                                                                                                                                                   If Not IsNothing(sender) Then CType(sender, MyButton).LabText.Text = e.NewValue
+                                                                                                                                                               End Sub)))
+    Public Property TextPadding As Thickness
+        Get
+            Return LabText.Padding
+        End Get
+        Set(value As Thickness)
+            LabText.Padding = value
+        End Set
+    End Property
+    Private _ColorType As ColorState = ColorState.Normal  '配色方案
+    Public Property ColorType As ColorState
+        Get
+            Return _ColorType
+        End Get
+        Set(value As ColorState)
+            _ColorType = value
+            RefreshColor()
+        End Set
+    End Property
+    Public Enum ColorState
+        Normal = 0
+        Highlight = 1
+        Red = 2
+    End Enum
+    '属性穿透
+    Public Shared Shadows ReadOnly PaddingProperty As DependencyProperty = DependencyProperty.Register("Padding", GetType(Thickness), GetType(MyButton), New PropertyMetadata(New PropertyChangedCallback(
+        Sub(sender As MyButton, e As DependencyPropertyChangedEventArgs) If sender IsNot Nothing Then sender.PanFore.Padding = e.NewValue)))
+    Public Overloads Property Padding As Thickness
+        Get
+            Return PanFore.Padding
+        End Get
+        Set(value As Thickness)
+            PanFore.Padding = value
+        End Set
+    End Property
+    Public Property RealRenderTransform As Transform
+        Get
+            Return PanFore.RenderTransform
+        End Get
+        Set(value As Transform)
+            PanFore.RenderTransform = value
+        End Set
+    End Property
+
+    '自定义事件
+    Private Const AnimationColorIn As Integer = 100
+    Private Const AnimationColorOut As Integer = 200
+    Private Sub RefreshColor(Optional obj = Nothing, Optional e = Nothing) Handles Me.MouseEnter, Me.MouseLeave, Me.Loaded, Me.IsEnabledChanged
+        Try
+            If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+
+                If IsEnabled Then
+                    Select Case ColorType
+                        Case ColorState.Normal
+                            If IsMouseOver Then
+                                '指向（Main 3）
+                                AniStart({AaColor(PanFore, Border.BorderBrushProperty, "ColorBrush3", AnimationColorIn)}, "MyButton Color " & Uuid)
+                            Else
+                                '普通（Main 1）
+                                AniStart({AaColor(PanFore, Border.BorderBrushProperty, "ColorBrush1", AnimationColorOut)}, "MyButton Color " & Uuid)
+                            End If
+                        Case ColorState.Highlight
+                            If IsMouseOver Then
+                                '指向（Main 3）
+                                AniStart({AaColor(PanFore, Border.BorderBrushProperty, "ColorBrush3", AnimationColorIn)}, "MyButton Color " & Uuid)
+                            Else
+                                '高亮（Main 2）
+                                AniStart({AaColor(PanFore, Border.BorderBrushProperty, "ColorBrush2", AnimationColorOut)}, "MyButton Color " & Uuid)
+                            End If
+                        Case ColorState.Red
+                            If IsMouseOver Then
+                                '红色指向
+                                AniStart({AaColor(PanFore, Border.BorderBrushProperty, "ColorBrushRedLight", AnimationColorIn)}, "MyButton Color " & Uuid)
+                            Else
+                                '红色
+                                AniStart({AaColor(PanFore, Border.BorderBrushProperty, "ColorBrushRedDark", AnimationColorOut)}, "MyButton Color " & Uuid)
+                            End If
+                    End Select
+                Else
+                    '不可用（Gray 4）
+                    AniStart({AaColor(PanFore, Border.BorderBrushProperty, ColorGray4 - PanFore.BorderBrush, AnimationColorOut)}, "MyButton Color " & Uuid)
+                End If
+            Else
+
+                AniStop("MyButton Color " & Uuid)
+                If IsEnabled Then
+                    Select Case ColorType
+                        Case ColorState.Normal
+                            If IsMouseOver Then
+                                PanFore.SetResourceReference(Border.BorderBrushProperty, "ColorBrush3")
+                            Else
+                                PanFore.SetResourceReference(Border.BorderBrushProperty, "ColorBrush1")
+                            End If
+                        Case ColorState.Highlight
+                            If IsMouseOver Then
+                                PanFore.SetResourceReference(Border.BorderBrushProperty, "ColorBrush3")
+                            Else
+                                PanFore.SetResourceReference(Border.BorderBrushProperty, "ColorBrush2")
+                            End If
+                        Case ColorState.Red
+                            If IsMouseOver Then
+                                PanFore.SetResourceReference(Border.BorderBrushProperty, "ColorBrushRedLight")
+                            Else
+                                PanFore.SetResourceReference(Border.BorderBrushProperty, "ColorBrushRedDark")
+                            End If
+                    End Select
+                Else
+                    PanFore.BorderBrush = ColorGray4
+                End If
+
+            End If
+        Catch ex As Exception
+            Log(ex, "刷新按钮颜色出错")
+        End Try
+    End Sub
+
+    '实现自定义事件
+    Private Sub Button_MouseUp(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonUp
+        If IsMouseDown Then
+            Log("[Control] 按下按钮：" & Text)
+            RaiseEvent Click(sender, e)
+            If Not String.IsNullOrEmpty(Tag) Then
+                If Tag.ToString.StartsWith("链接-") OrElse Tag.ToString.StartsWith("启动-") Then
+                    Hint("主页自定义按钮语法已更新，且不再兼容老版本语法，请查看新的自定义示例！")
+                End If
+            End If
+            ModEvent.TryStartEvent(EventType, EventData)
+        End If
+    End Sub
+    Public Property EventType As String
+        Get
+            Return GetValue(EventTypeProperty)
+        End Get
+
+        Set(ByVal value As String)
+            SetValue(EventTypeProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly EventTypeProperty As DependencyProperty = DependencyProperty.Register("EventType", GetType(String), GetType(MyButton), New PropertyMetadata(Nothing))
+    Public Property EventData As String
+        Get
+            Return GetValue(EventDataProperty)
+        End Get
+
+        Set(ByVal value As String)
+            SetValue(EventDataProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly EventDataProperty As DependencyProperty = DependencyProperty.Register("EventData", GetType(String), GetType(MyButton), New PropertyMetadata(Nothing))
+
+    '鼠标点击判定（务必放在点击事件之后，以使得 Button_MouseUp 先于 Button_MouseLeave 执行）
+    Private IsMouseDown As Boolean = False
+    Private Sub Button_MouseDown(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonDown
+        IsMouseDown = True
+        Focus()
+        AniStart({
+                 AaScaleTransform(PanFore, 0.955 - CType(PanFore.RenderTransform, ScaleTransform).ScaleX, 80,, New AniEaseOutFluent(AniEasePower.ExtraStrong)),
+                 AaScaleTransform(PanFore, -0.01, 700,, New AniEaseOutFluent(AniEasePower.Middle))
+                 }, "MyButton Scale " & Uuid)
+    End Sub
+    Private Sub Button_MouseEnter() Handles Me.MouseEnter
+        AniStart(AaColor(PanFore, BackgroundProperty, If(_ColorType = ColorState.Red, "ColorBrushRedBack", "ColorBrush9"), AnimationColorIn), "MyButton Background " & Uuid)
+    End Sub
+    Private Sub Button_MouseUp() Handles Me.MouseLeftButtonUp
+        If Not IsMouseDown Then Exit Sub
+        IsMouseDown = False
+        AniStart({
+               AaScaleTransform(PanFore, 1 - CType(PanFore.RenderTransform, ScaleTransform).ScaleX, 300, 10, New AniEaseOutFluent(AniEasePower.Middle))
+           }, "MyButton Scale " & Uuid)
+    End Sub
+    Private Sub Button_MouseLeave() Handles Me.MouseLeave
+        AniStart(AaColor(PanFore, BackgroundProperty, "ColorBrushHalfWhite", AnimationColorOut), "MyButton Background " & Uuid)
+        If Not IsMouseDown Then Exit Sub
+        IsMouseDown = False
+        AniStart(AaScaleTransform(PanFore, 1 - CType(PanFore.RenderTransform, ScaleTransform).ScaleX, 800,, New AniEaseOutFluent(AniEasePower.Strong)), "MyButton Scale " & Uuid)
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyCard.vb

@@ -0,0 +1,300 @@
+Public Class MyCard
+
+    '控件
+    Inherits Grid
+    Private ReadOnly MainGrid As Grid
+    Private ReadOnly MainChrome As SystemDropShadowChrome
+    Private ReadOnly MainBorder As Border
+    Public MainTextBlock As TextBlock
+    Public MainSwap As Shapes.Path
+
+    '属性
+    Public Uuid As Integer = GetUuid()
+    Public Property Title As String
+        Get
+            Return GetValue(TitleProperty)
+        End Get
+        Set(value As String)
+            SetValue(TitleProperty, value)
+            If MainTextBlock IsNot Nothing Then MainTextBlock.Text = value
+        End Set
+    End Property
+    Public Shared ReadOnly TitleProperty As DependencyProperty = DependencyProperty.Register("Title", GetType(String), GetType(MyCard), New PropertyMetadata(""))
+
+    'UI 建立
+    Public Sub New()
+        MainChrome = New SystemDropShadowChrome With {.Margin = New Thickness(-9.5, -9, 0.5, -0.5), .Opacity = 0.1, .CornerRadius = New CornerRadius(6)}
+        MainChrome.SetResourceReference(SystemDropShadowChrome.ColorProperty, "ColorObject1")
+        Children.Add(MainChrome)
+        MainBorder = New Border With {.Background = New SolidColorBrush(Color.FromArgb(205, 255, 255, 255)), .CornerRadius = New CornerRadius(6), .IsHitTestVisible = False}
+        Children.Add(MainBorder)
+        MainGrid = New Grid
+        Children.Add(MainGrid)
+    End Sub
+    Private IsLoad As Boolean = False
+    Private Sub MyCard_Loaded() Handles Me.Loaded
+        '卡片的进入时动画已被页面通用切换动画替代
+        'If LoadAnimation AndAlso IsLoad Then
+        '    StartHeightAnimation(Math.Min(50, ActualHeight), ActualHeight - Math.Min(50, ActualHeight), True)
+        'End If
+        If IsLoad Then Exit Sub
+        '初次加载限定
+        If Not Title = "" AndAlso IsNothing(MainTextBlock) Then
+            MainTextBlock = New TextBlock With {.HorizontalAlignment = HorizontalAlignment.Left, .VerticalAlignment = VerticalAlignment.Top, .Margin = New Thickness(15, 12, 0, 0), .FontWeight = FontWeights.Bold, .FontSize = 13, .IsHitTestVisible = False}
+            MainTextBlock.SetResourceReference(TextBlock.ForegroundProperty, "ColorBrush1")
+            MainTextBlock.SetBinding(TextBlock.TextProperty, New Binding("Title") With {.Source = Me, .Mode = BindingMode.OneWay})
+            MainGrid.Children.Add(MainTextBlock)
+        End If
+        If CanSwap OrElse SwapControl IsNot Nothing Then
+            If SwapControl Is Nothing AndAlso Children.Count > 3 Then SwapControl = Children(3)
+            MainSwap = New Shapes.Path With {.HorizontalAlignment = HorizontalAlignment.Right, .Stretch = Stretch.Uniform, .Height = 6, .Width = 10, .VerticalAlignment = VerticalAlignment.Top, .Margin = New Thickness(0, 17, 16, 0), .Data = New GeometryConverter().ConvertFromString("M2,4 l-2,2 10,10 10,-10 -2,-2 -8,8 -8,-8 z"), .RenderTransform = New RotateTransform(180), .RenderTransformOrigin = New Point(0.5, 0.5)}
+            MainSwap.SetResourceReference(Shapes.Path.FillProperty, "ColorBrush1")
+            MainGrid.Children.Add(MainSwap)
+        End If
+        IsLoad = True
+        '改变默认的折叠
+        If IsSwaped AndAlso SwapControl IsNot Nothing Then
+            MainSwap.RenderTransform = New RotateTransform(If(SwapLogoRight, 270, 0))
+            '取消由于高度变化被迫触发的高度动画
+            Dim RawUseAnimation As Boolean = UseAnimation
+            UseAnimation = False
+            Height = SwapedHeight
+            AniStop("MyCard Height " & Uuid)
+            IsHeightAnimating = False
+            RunInUi(Sub() UseAnimation = RawUseAnimation, True)
+        End If
+    End Sub
+    Public Sub StackInstall()
+        StackInstall(SwapControl, SwapType, Title)
+        TriggerForceResize()
+    End Sub
+    Public Shared Sub StackInstall(ByRef Stack As StackPanel, Type As Integer, Optional CardTitle As String = "")
+        '这一部分的代码是好几年前留下的究极屎坑，当时还不知道该咋正确调用这种方法，就写了这么一坨屎
+        '但是现在……反正勉强能用……懒得改了就这样吧.jpg
+        '别骂了别骂了.jpg
+        If IsNothing(Stack.Tag) Then Exit Sub
+        '排序
+        Select Case Type
+            Case 3
+                Stack.Tag = Sort(CType(Stack.Tag, List(Of DlOptiFineListEntry)), Function(Left As DlOptiFineListEntry, Right As DlOptiFineListEntry) As Boolean
+                                                                                     Return VersionSortBoolean(Left.NameDisplay, Right.NameDisplay)
+                                                                                 End Function)
+            Case 4, 10
+                Stack.Tag = Sort(CType(Stack.Tag, List(Of DlLiteLoaderListEntry)), Function(Left As DlLiteLoaderListEntry, Right As DlLiteLoaderListEntry) As Boolean
+                                                                                       Return VersionSortBoolean(Left.Inherit, Right.Inherit)
+                                                                                   End Function)
+            Case 6
+                Stack.Tag = Sort(CType(Stack.Tag, List(Of DlForgeVersionEntry)), Function(Left As DlForgeVersionEntry, Right As DlForgeVersionEntry) As Boolean
+                                                                                     Return VersionSortBoolean(Left.Version, Right.Version)
+                                                                                 End Function)
+            Case 8, 9
+                Stack.Tag = Sort(CType(Stack.Tag, List(Of DlCfFile)), Function(Left As DlCfFile, Right As DlCfFile) As Boolean
+                                                                          Return Left.Date > Right.Date
+                                                                      End Function)
+        End Select
+        '控件转换
+        Select Case Type
+            Case 5
+                Dim LoadingPickaxe As New MyLoading With {.Text = "正在获取版本列表", .Margin = New Thickness(5)}
+                Dim Loader = New LoaderTask(Of String, List(Of DlForgeVersionEntry))("DlForgeVersion Main", AddressOf DlForgeVersionMain)
+                LoadingPickaxe.State = Loader
+                Loader.Start(Stack.Tag)
+                AddHandler LoadingPickaxe.StateChanged, AddressOf FrmDownloadForge.Forge_StateChanged
+                AddHandler LoadingPickaxe.Click, AddressOf FrmDownloadForge.Forge_Click
+                Stack.Children.Add(LoadingPickaxe)
+            Case 6
+                ForgeDownloadListItemPreload(Stack, Stack.Tag, AddressOf ForgeSave_Click, True)
+            Case 8
+                DlCfFilesPreload(Stack, Stack.Tag, AddressOf FrmDownloadMod.ProjectClick)
+        End Select
+        '实现控件虚拟化
+        For Each Data As Object In Stack.Tag
+            Select Case Type
+                Case 0
+                    Stack.Children.Add(PageSelectRight.McVersionListItem(Data))
+                Case 1
+                    Stack.Children.Add(PageOtherFeedback.FeedbackListItem(Data, CardTitle))
+                Case 2
+                    Stack.Children.Add(McDownloadListItem(Data, AddressOf McDownloadMenuSave, True))
+                Case 3
+                    Stack.Children.Add(OptiFineDownloadListItem(Data, AddressOf OptiFineSave_Click, True))
+                Case 4
+                    Stack.Children.Add(LiteLoaderDownloadListItem(Data, AddressOf FrmDownloadLiteLoader.DownloadStart, False))
+                Case 5
+                Case 6
+                    Stack.Children.Add(ForgeDownloadListItem(Data, AddressOf ForgeSave_Click, True))
+                Case 7
+                    Stack.Children.Add(McDownloadListItem(Data, AddressOf FrmDownloadInstall.MinecraftSelected, False))
+                Case 8
+                    Stack.Children.Add(CType(Data, DlCfFile).ToListItem(AddressOf FrmDownloadCfDetail.Save_Click))
+                Case 9
+                    Stack.Children.Add(CType(Data, DlCfFile).ToListItem(AddressOf FrmDownloadCfDetail.Install_Click, AddressOf FrmDownloadCfDetail.Save_Click))
+                Case 10
+                    Stack.Children.Add(LiteLoaderDownloadListItem(Data, AddressOf LiteLoaderSave_Click, True))
+                Case 11
+                    Stack.Children.Add(CType(Data, HelpEntry).ToListItem)
+                Case Else
+                    Log("未知的虚拟化种类：" & Type, LogLevel.Feedback)
+            End Select
+        Next
+        Stack.Children.Add(New FrameworkElement With {.Height = 18}) '下边距，同时适应折叠
+        Stack.Tag = Nothing
+    End Sub
+
+    '事件
+    Private Sub MyCard_MouseEnter(sender As Object, e As MouseEventArgs) Handles Me.MouseEnter
+        Dim AniList As New List(Of AniData)
+        If Not IsNothing(MainTextBlock) Then AniList.Add(AaColor(MainTextBlock, TextBlock.ForegroundProperty, "ColorBrush2", 150))
+        If Not IsNothing(MainSwap) Then AniList.Add(AaColor(MainSwap, Shapes.Path.FillProperty, "ColorBrush2", 150))
+        AniList.AddRange({
+                         AaColor(MainChrome, SystemDropShadowChrome.ColorProperty, "ColorObject2", 180),
+                         AaColor(MainBorder, Border.BackgroundProperty, New MyColor(230, 255, 255, 255) - MainBorder.Background, 180),
+                         AaOpacity(MainChrome, 0.3 - MainChrome.Opacity, 180)
+                     })
+        AniStart(AniList, "MyCard Mouse " & Uuid)
+    End Sub
+    Private Sub MyCard_MouseLeave(sender As Object, e As MouseEventArgs) Handles Me.MouseLeave
+        Dim AniList As New List(Of AniData)
+        If Not IsNothing(MainTextBlock) Then AniList.Add(AaColor(MainTextBlock, TextBlock.ForegroundProperty, "ColorBrush1", 250))
+        If Not IsNothing(MainSwap) Then AniList.Add(AaColor(MainSwap, Shapes.Path.FillProperty, "ColorBrush1", 250))
+        AniList.AddRange({
+                         AaColor(MainChrome, SystemDropShadowChrome.ColorProperty, "ColorObject1", 300),
+                         AaColor(MainBorder, Border.BackgroundProperty, New MyColor(205, 255, 255, 255) - MainBorder.Background, 300),
+                         AaOpacity(MainChrome, 0.1 - MainChrome.Opacity, 300)
+                     })
+        AniStart(AniList, "MyCard Mouse " & Uuid)
+    End Sub
+
+    '高度改变动画
+    Public Property UseAnimation As Boolean = True
+    Private IsHeightAnimating As Boolean = False
+    Private ActualUsedHeight As Double '回滚实际高度（例如 NaN）
+    Private Sub MySizeChanged(sender As Object, e As SizeChangedEventArgs) Handles Me.SizeChanged
+        If Not UseAnimation Then Exit Sub
+        Dim DeltaHeight As Double = If(IsSwaped, SwapedHeight, e.NewSize.Height) - e.PreviousSize.Height
+        '卡片的进入时动画已被页面通用切换动画替代
+        If e.PreviousSize.Height = 0 OrElse IsHeightAnimating OrElse Math.Abs(DeltaHeight) < 1 OrElse ActualHeight = 0 Then Exit Sub
+        StartHeightAnimation(DeltaHeight, e.PreviousSize.Height, False)
+    End Sub
+    Private Sub StartHeightAnimation(DeltaHeight As Double, PreviousHeight As Double, IsLoadAnimation As Boolean)
+        If IsHeightAnimating OrElse FrmMain Is Nothing Then Exit Sub '避免 XAML 设计器出错
+
+        Dim AnimList As New List(Of AniData)
+        If DeltaHeight > 10 OrElse (DeltaHeight < -10 AndAlso Not IsNothing(SwapControl)) Then '如果不是需要折叠的卡片，高度减小时的弹跳会吞掉按钮下边框
+            '高度增加较大，使用弹起动画
+            Dim Delta As Double = MathRange(Math.Abs(DeltaHeight) * 0.05, 3, 10) * Math.Sign(DeltaHeight)
+            AnimList.AddRange({
+                     AaHeight(Me, DeltaHeight + Delta, 300, If(IsLoadAnimation, 30, 0), If(DeltaHeight > FrmMain.Height, New AniEaseInFluent(AniEasePower.ExtraStrong), New AniEaseOutFluent(AniEasePower.ExtraStrong))),
+                     AaHeight(Me, -Delta, 150, 260, Ease:=New AniEaseOutFluent(AniEasePower.Strong))
+                })
+        Else
+            '普通的改变就行啦
+            AnimList.AddRange({
+                         AaHeight(Me, DeltaHeight, MathRange(Math.Abs(DeltaHeight) * 4, 150, 250),, New AniEaseOutFluent)
+                    })
+        End If
+        AnimList.Add(AaCode(Sub()
+                                IsHeightAnimating = False
+                                Height = ActualUsedHeight
+                                If IsSwaped Then SwapControl.Visibility = Visibility.Collapsed
+                            End Sub,, True))
+        AniStart(AnimList, "MyCard Height " & Uuid)
+
+        IsHeightAnimating = True
+        ActualUsedHeight = If(IsSwaped, SwapedHeight, Height)
+        Height = PreviousHeight
+    End Sub
+    ''' <summary>
+    ''' 通知 MyCard，控件内容已改变，需要中断动画并更新高度。
+    ''' </summary>
+    Public Sub TriggerForceResize()
+        Height = If(IsSwaped, SwapedHeight, Double.NaN)
+        AniStop("MyCard Height " & Uuid)
+        IsHeightAnimating = False
+    End Sub
+
+    '折叠
+    '若设置了 CanSwap，或 SwapControl 不为空，则判定为会进行折叠
+    '这是因为不能直接在 XAML 中设置 SwapControl
+    Public SwapControl As Object
+    Public Property CanSwap As Boolean = False
+    ''' <summary>
+    ''' 被折叠的种类，用于控件虚拟化。
+    ''' </summary>
+    Public Property SwapType As Integer
+    ''' <summary>
+    ''' 是否已被折叠。
+    ''' </summary>
+    Public Property IsSwaped As Boolean
+        Get
+            Return _IsSwaped
+        End Get
+        Set(ByVal value As Boolean)
+            If _IsSwaped = value Then Exit Property
+            _IsSwaped = value
+            If SwapControl Is Nothing Then Exit Property
+            '展开
+            If Not IsSwaped AndAlso TypeOf SwapControl Is StackPanel Then StackInstall(SwapControl, SwapType, Title)
+            '若尚未加载，会在 Loaded 事件中触发无动画的折叠，不需要在这里进行
+            If Not IsLoaded Then Exit Property
+            '更新高度
+            SwapControl.Visibility = Visibility.Visible
+            TriggerForceResize()
+            '改变箭头
+            AniStart(AaRotateTransform(MainSwap, If(_IsSwaped, If(SwapLogoRight, 270, 0), 180) - CType(MainSwap.RenderTransform, RotateTransform).Angle, 400,, New AniEaseOutBack(AniEasePower.Weak)), "MyCard Swap " & Uuid, True)
+        End Set
+    End Property
+    Private _IsSwaped As Boolean = False
+
+    Public Property SwapLogoRight As Boolean = False
+    Private IsMouseDown As Boolean = False
+    Public Event PreviewSwap(sender As Object, e As RouteEventArgs)
+    Public Event Swap(sender As Object, e As RouteEventArgs)
+    Public Const SwapedHeight As Integer = 40
+    Private Sub MyCard_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonDown
+        Dim Pos As Double = Mouse.GetPosition(Me).Y
+        If Not IsSwaped AndAlso (IsNothing(SwapControl) OrElse Pos > SwapedHeight OrElse (Pos = 0 AndAlso Not IsMouseDirectlyOver)) Then Exit Sub '检测点击位置；或已经不在可视树上的误判
+        IsMouseDown = True
+    End Sub
+    Private Sub MyCard_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonUp
+        If IsMouseDown Then
+            IsMouseDown = False
+            Dim Pos As Double = Mouse.GetPosition(Me).Y
+            If Not IsSwaped AndAlso (IsNothing(SwapControl) OrElse Pos > SwapedHeight OrElse (Pos = 0 AndAlso Not IsMouseDirectlyOver)) Then Exit Sub '检测点击位置；或已经不在可视树上的误判
+
+            Dim ee = New RouteEventArgs(True)
+            RaiseEvent PreviewSwap(Me, ee)
+            If ee.Handled Then
+                IsMouseDown = False
+                Exit Sub
+            End If
+
+            IsSwaped = Not IsSwaped
+            Log("[Control] " & If(IsSwaped, "折叠卡片", "展开卡片") & If(Title Is Nothing, "", "：" & Title))
+            RaiseEvent Swap(Me, ee)
+        End If
+    End Sub
+    Private Sub MyCard_MouseLeave_Swap(sender As Object, e As MouseEventArgs) Handles Me.MouseLeave
+        IsMouseDown = False
+    End Sub
+
+End Class
+Partial Public Module ModAnimation
+    Public Sub AniDispose(Control As MyCard, RemoveFromChildren As Boolean, Optional CallBack As ParameterizedThreadStart = Nothing)
+        If Not Control.IsHitTestVisible Then Exit Sub
+        Control.IsHitTestVisible = False
+        AniStart({
+                     AaScaleTransform(Control, -0.08, 200,, New AniEaseInFluent),
+                     AaOpacity(Control, -1, 200,, New AniEaseOutFluent),
+                     AaHeight(Control, -Control.ActualHeight, 150, 100, New AniEaseOutFluent),
+                     AaCode(Sub()
+                                If RemoveFromChildren Then
+                                    CType(Control.Parent, Object).Children.Remove(Control)
+                                Else
+                                    Control.Visibility = Visibility.Collapsed
+                                End If
+                                If CallBack IsNot Nothing Then CallBack(Control)
+                            End Sub,, True)
+            }, "MyCard Dispose " & Control.Uuid)
+    End Sub
+End Module

Plain Craft Launcher 2/Controls/MyCheckBox.xaml

@@ -0,0 +1,14 @@
+<Grid
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="d" x:Class="MyCheckBox"
+             FocusVisualStyle="{x:Null}"
+            MinWidth="20" x:Name="PanBack" UseLayoutRounding="False" SnapsToDevicePixels="False" MinHeight="20" Background="{StaticResource ColorBrushSemiTransparent}" Focusable="True" d:DesignWidth="126.4" d:DesignHeight="44.8">
+    <TextBlock IsHitTestVisible="False" FontSize="13" x:Name="LabText" Padding="0" Margin="26,0,0,0" Text="Checkbox" Foreground="{DynamicResource ColorBrush1}" HorizontalAlignment="Left" VerticalAlignment="Center" />
+    <Border IsHitTestVisible="False" x:Name="ShapeBorder" BorderThickness="1.1" HorizontalAlignment="Left" VerticalAlignment="Center" Width="18" Height="18" BorderBrush="{DynamicResource ColorBrush1}" CornerRadius="3" Margin="1,0,0,0" Background="{StaticResource ColorBrushHalfWhite}" />
+    <Path IsHitTestVisible="False" x:Name="ShapeCheck" HorizontalAlignment="Left" VerticalAlignment="Center" Fill="{Binding BorderBrush, ElementName=ShapeBorder}" Width="12" Height="12" Margin="4,0,0,0" Data="M0,6L1.5,4.5 4.5,7.5 10.5,1.5 12,3 4.5,10.5 0,6z">
+        <Path.RenderTransform>
+            <ScaleTransform CenterX="6" CenterY="6" ScaleX="0" ScaleY="0" />
+        </Path.RenderTransform>
+    </Path>
+</Grid>

Plain Craft Launcher 2/Controls/MyCheckBox.xaml.vb

@@ -0,0 +1,202 @@
+Public Class MyCheckBox
+
+    '基础
+
+    Public Uuid As Integer = GetUuid()
+    ''' <summary>
+    ''' 复选框勾选状态改变。
+    ''' </summary>
+    ''' <param name="user">是否为用户手动改变的勾选状态。</param>
+    Public Event Change(sender As Object, user As Boolean)
+    Public Event PreviewChange(sender As Object, e As RouteEventArgs)
+    Public Sub RaiseChange()
+        RaiseEvent Change(Me, False)
+    End Sub '使外部程序引发本控件的 Change 事件
+
+    '自定义属性
+
+    Private _Checked As Boolean = False '是否选中
+    Public Property Checked As Boolean
+        Get
+            Return _Checked
+        End Get
+        Set(value As Boolean)
+            SetChecked(value, False, True)
+        End Set
+    End Property
+    Private Const AnimationTimeOfCheck As Integer = 150 '勾选状态变更动画长度
+    ''' <summary>
+    ''' 手动设置 Checked 属性。
+    ''' </summary>
+    ''' <param name="value">新的 Checked 属性。</param>
+    ''' <param name="user">是否由用户引发。</param>
+    ''' <param name="anime">是否执行动画。</param>
+    Public Sub SetChecked(value As Boolean, user As Boolean, anime As Boolean)
+        Try
+            If value = _Checked Then Exit Sub
+
+            'Preview 事件
+
+            If value AndAlso user Then
+                Dim e = New RouteEventArgs(user)
+                RaiseEvent PreviewChange(Me, e)
+                If e.Handled Then
+                    MouseDowned = True
+                    Checkbox_MouseLeave()
+                    MouseDowned = False
+                    Exit Sub
+                End If
+            End If
+
+            _Checked = value
+            If IsLoaded Then RaiseEvent Change(Me, user)
+
+            '更改动画
+
+            If IsLoaded AndAlso AniControlEnabled = 0 AndAlso anime Then '防止默认属性变更触发动画
+                AllowMouseDown = False
+                If Checked Then
+                    '由无变有
+                    AniStart({
+                          AaScale(ShapeBorder, 12 - ShapeBorder.Width, AnimationTimeOfCheck, , New AniEaseOutFluent, , True),
+                          AaScaleTransform(ShapeCheck, 1 - CType(ShapeCheck.RenderTransform, ScaleTransform).ScaleX, AnimationTimeOfCheck * 2, AnimationTimeOfCheck * 0.7, New AniEaseOutBack(AniEasePower.Weak)),
+                          AaScale(ShapeBorder, 6, AnimationTimeOfCheck * 2, AnimationTimeOfCheck * 0.7, New AniEaseOutBack, , True)
+                     }, "MyCheckBox Scale " & Uuid)
+                    AniStart({
+                          AaColor(ShapeBorder, Border.BorderBrushProperty, If(IsEnabled, If(IsMouseOver, "ColorBrush3", "ColorBrush2"), "ColorBrushGray4"), AnimationTimeOfCheck)
+                     }, "MyCheckBox BorderColor " & Uuid)
+                    AniStart({
+                          AaCode(Sub() AllowMouseDown = True, AnimationTimeOfCheck * 2)
+                     }, "MyCheckBox AllowMouseDown " & Uuid)
+                Else
+                    '由有变无
+                    AniStart({
+                          AaScale(ShapeBorder, 12 - ShapeBorder.Width, AnimationTimeOfCheck, , New AniEaseOutFluent, , True),
+                          AaScaleTransform(ShapeCheck, -CType(ShapeCheck.RenderTransform, ScaleTransform).ScaleX, AnimationTimeOfCheck * 0.9, , New AniEaseInFluent(AniEasePower.Weak)),
+                          AaScale(ShapeBorder, 6, AnimationTimeOfCheck * 2, AnimationTimeOfCheck * 0.7, New AniEaseOutBack, , True)
+                     }, "MyCheckBox Scale " & Uuid)
+                    AniStart({
+                          AaColor(ShapeBorder, Border.BorderBrushProperty, If(IsEnabled, If(IsMouseOver, "ColorBrush3", "ColorBrush1"), "ColorBrushGray4"), AnimationTimeOfCheck)
+                     }, "MyCheckBox BorderColor " & Uuid)
+                    AniStart({
+                          AaCode(Sub() AllowMouseDown = True, AnimationTimeOfCheck * 2)
+                     }, "MyCheckBox AllowMouseDown " & Uuid)
+                End If
+            Else
+                '不使用动画
+                AniStop("MyCheckBox Scale " & Uuid)
+                AniStop("MyCheckBox BorderColor " & Uuid)
+                AniStop("MyCheckBox AllowMouseDown " & Uuid)
+                If Checked Then
+                    CType(ShapeCheck.RenderTransform, ScaleTransform).ScaleX = 1
+                    CType(ShapeCheck.RenderTransform, ScaleTransform).ScaleY = 1
+                    ShapeBorder.SetResourceReference(Border.BorderBrushProperty, If(IsEnabled, "ColorBrush2", "ColorBrushGray4"))
+                Else
+                    CType(ShapeCheck.RenderTransform, ScaleTransform).ScaleX = 0
+                    CType(ShapeCheck.RenderTransform, ScaleTransform).ScaleY = 0
+                    ShapeBorder.SetResourceReference(Border.BorderBrushProperty, If(IsEnabled, "ColorBrush1", "ColorBrushGray4"))
+                End If
+            End If
+
+        Catch ex As Exception
+            Log(ex, "设置 Checked 失败")
+        End Try
+    End Sub
+    Public Property Text As String
+        Get
+            Return GetValue(TextProperty)
+        End Get
+        Set(value As String)
+            SetValue(TextProperty, value)
+        End Set
+    End Property '内容
+    Public Shared ReadOnly TextProperty As DependencyProperty = DependencyProperty.Register("Text", GetType(String), GetType(MyCheckbox), New PropertyMetadata(New PropertyChangedCallback(
+                                                                                                                                                               Sub(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
+                                                                                                                                                                   If Not IsNothing(sender) Then CType(sender, MyCheckbox).LabText.Text = e.NewValue
+                                                                                                                                                               End Sub)))
+
+    '点击事件
+
+    Private MouseDowned As Boolean = False
+    Private AllowMouseDown As Boolean = True
+    Private Sub Checkbox_MouseUp() Handles Me.MouseLeftButtonUp
+        If Not MouseDowned Then Exit Sub
+        Log("[Control] 按下复选框（" & (Not Checked).ToString & "）：" & Text)
+        MouseDowned = False
+        SetChecked(Not Checked, True, True)
+        AniStart(AaColor(ShapeBorder, Border.BackgroundProperty, "ColorBrushHalfWhite", 100), "MyCheckBox Background " & Uuid)
+    End Sub
+    Private Sub Checkbox_MouseDown() Handles Me.MouseLeftButtonDown
+        If Not AllowMouseDown Then Exit Sub
+        MouseDowned = True
+        Focus()
+        AniStart(AaColor(ShapeBorder, Border.BackgroundProperty, "ColorBrush9", 100), "MyCheckBox Background " & Uuid)
+        If Checked Then
+            AniStart({
+                     AaScale(ShapeBorder, 16.5 - ShapeBorder.Width, 1000, , New AniEaseOutFluent(AniEasePower.Strong), Absolute:=True),
+                     AaScaleTransform(ShapeCheck, 0.9 - CType(ShapeCheck.RenderTransform, ScaleTransform).ScaleX, 1000, , New AniEaseOutFluent(AniEasePower.Strong))
+                 }, "MyCheckBox Scale " & Uuid)
+        Else
+            AniStart(AaScale(ShapeBorder, 16.5 - ShapeBorder.Width, 1000, , New AniEaseOutFluent(AniEasePower.Strong), Absolute:=True), "MyCheckBox Scale " & Uuid)
+        End If
+    End Sub
+    Private Sub Checkbox_MouseLeave() Handles Me.MouseLeave
+        If Not MouseDowned Then Exit Sub
+        MouseDowned = False
+        AniStart(AaColor(ShapeBorder, Border.BackgroundProperty, "ColorBrushHalfWhite", 100), "MyCheckBox Background " & Uuid)
+        If Checked Then
+            AniStart({
+                     AaScale(ShapeBorder, 18 - ShapeBorder.Width, 400, , New AniEaseOutFluent(AniEasePower.Strong), Absolute:=True),
+                     AaScaleTransform(ShapeCheck, 1 - CType(ShapeCheck.RenderTransform, ScaleTransform).ScaleX, 500, , New AniEaseOutFluent(AniEasePower.Strong))
+                 }, "MyCheckBox Scale " & Uuid)
+        Else
+            AniStart(AaScale(ShapeBorder, 18 - ShapeBorder.Width, 400, , New AniEaseOutFluent(AniEasePower.Strong), Absolute:=True), "MyCheckBox Scale " & Uuid)
+        End If
+    End Sub
+
+    '指向动画
+
+    Private Const AnimationTimeOfMouseIn As Integer = 100
+    Private Const AnimationTimeOfMouseOut As Integer = 200
+    Private Sub Checkbox_IsEnabledChanged() Handles Me.IsEnabledChanged
+        If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+            '有动画
+            If IsEnabled Then
+                '可用
+                Checkbox_MouseLeaveAnimation()
+            Else
+                '不可用
+                AniStart({
+                         AaColor(ShapeBorder, Border.BorderBrushProperty, ColorGray4 - ShapeBorder.BorderBrush, AnimationTimeOfMouseOut)
+                 }, "MyCheckBox BorderColor " & Uuid)
+                AniStart({
+                         AaColor(LabText, TextBlock.ForegroundProperty, ColorGray4 - LabText.Foreground, AnimationTimeOfMouseOut)
+                 }, "MyCheckBox TextColor " & Uuid)
+            End If
+        Else
+            '无动画
+            AniStop("MyCheckBox TextColor " & Uuid)
+            AniStop("MyCheckBox BorderColor " & Uuid)
+            LabText.SetResourceReference(TextBlock.ForegroundProperty, If(Me.IsEnabled, "ColorBrush1", "ColorBrushGray4"))
+            ShapeBorder.SetResourceReference(Border.BorderBrushProperty, If(Me.IsEnabled, If(Checked, "ColorBrush2", "ColorBrush1"), "ColorBrushGray4"))
+        End If
+    End Sub
+    Private Sub Checkbox_MouseEnterAnimation() Handles Me.MouseEnter
+        AniStart({
+                 AaColor(LabText, TextBlock.ForegroundProperty, "ColorBrush3", AnimationTimeOfMouseIn)
+         }, "MyCheckBox TextColor " & Uuid)
+        AniStart({
+                 AaColor(ShapeBorder, Border.BorderBrushProperty, "ColorBrush3", AnimationTimeOfMouseIn)
+         }, "MyCheckBox BorderColor " & Uuid)
+    End Sub
+    Private Sub Checkbox_MouseLeaveAnimation() Handles Me.MouseLeave
+        If Not IsEnabled Then Exit Sub 'MouseLeave 比 IsEnabledChanged 后执行，所以如果自定义事件修改了 IsEnabled，将导致显示错误
+        AniStart({
+                 AaColor(LabText, TextBlock.ForegroundProperty, If(Me.IsEnabled, "ColorBrush1", "ColorBrushGray4"), AnimationTimeOfMouseOut)
+         }, "MyCheckBox TextColor " & Uuid)
+        AniStart({
+                 AaColor(ShapeBorder, Border.BorderBrushProperty, If(Me.IsEnabled, If(Checked, "ColorBrush2", "ColorBrush1"), "ColorBrushGray4"), AnimationTimeOfMouseOut)
+         }, "MyCheckBox BorderColor " & Uuid)
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyComboBox.vb

@@ -0,0 +1,135 @@
+Public Class MyComboBox
+    Inherits ComboBox
+    Public Event TextChanged(sender As Object, e As TextChangedEventArgs)
+
+    '基础
+    Public Uuid As Integer = GetUuid()
+    Private TextBox As MyTextBox
+    Public Property HintText As String = ""
+    Public Overrides Sub OnApplyTemplate()
+        MyBase.OnApplyTemplate()
+        If Not IsEditable Then Exit Sub
+        Try
+            TextBox = Template.FindName("PART_EditableTextBox", Me)
+            TextBox.AddHandler(LostFocusEvent, New RoutedEventHandler(AddressOf RefreshColor))
+            TextBox.ChangedEventList.Add(New RoutedEventHandler(Sub(sender, e) RaiseEvent TextChanged(sender, e)))
+            TextBox.Tag = Tag '有时需要用文本框的 Tag 来写入设置
+            If Text = "" Then
+                TextBox.Text = _Text
+            Else
+                RaiseEvent TextChanged(Me, Nothing)
+            End If
+            If HintText.Length > 0 Then TextBox.HintText = HintText
+        Catch ex As Exception
+            Log(ex, "初始化可编辑文本框失败（" & If(Name, "") & "）", LogLevel.Feedback)
+        End Try
+    End Sub
+    Private _Text As String = SelectedItem
+    Public Shadows Property Text As String
+        Get
+            If IsEditable Then
+                If TextBox Is Nothing Then
+                    Return If(_Text, "")
+                Else
+                    Return If(TextBox.Text, "")
+                End If
+            Else
+                Return If(SelectedItem, "").ToString
+            End If
+        End Get
+        Set(value As String)
+            If IsEditable Then
+                If IsNothing(TextBox) Then
+                    _Text = value
+                Else
+                    TextBox.Text = value
+                End If
+            Else
+                Throw New NotSupportedException("该 ComboBox 不支持修改文本。")
+            End If
+        End Set
+    End Property
+
+    '鼠标按下接口
+    Private IsMouseDown As Boolean = False
+    Private Sub MyComboBox_PreviewMouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs) Handles Me.PreviewMouseLeftButtonDown
+        IsMouseDown = True
+    End Sub
+    Private Sub MyComboBox_PreviewMouseLeftButtonUp(sender As Object, e As EventArgs) Handles Me.PreviewMouseLeftButtonUp, Me.MouseLeave
+        IsMouseDown = False
+    End Sub
+
+    '指向动画
+    Public Sub RefreshColor() Handles Me.IsEnabledChanged, Me.MouseEnter, Me.MouseLeave, Me.PreviewMouseLeftButtonDown, Me.PreviewMouseLeftButtonUp, Me.GotKeyboardFocus
+        '判断当前颜色
+        Dim ColorName As String
+        Dim BackName As String
+        Dim Time As Integer
+        If IsEnabled Then
+            If IsEditable AndAlso Template.FindName("PART_EditableTextBox", Me).IsFocused Then
+                ColorName = "ColorBrush4"
+                BackName = "ColorBrush9"
+                Time = 60
+            ElseIf IsMouseDown OrElse IsDropDownOpen Then
+                ColorName = "ColorBrush3"
+                BackName = "ColorBrush9"
+                Time = 60
+            ElseIf IsMouseOver Then
+                ColorName = "ColorBrush3"
+                BackName = "ColorBrushHalfWhite"
+                Time = 100
+            Else
+                ColorName = "ColorBrush1"
+                BackName = "ColorBrushHalfWhite"
+                Time = 200
+            End If
+        Else
+            ColorName = "ColorBrushGray4"
+            BackName = "ColorBrushHalfWhite"
+            Time = 200
+        End If
+        '触发颜色动画
+        If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+            '有动画
+            AniStart({
+                     AaColor(Me, ForegroundProperty, ColorName, Time),
+                     AaColor(Me, BackgroundProperty, BackName, Time)
+                 }, "MyComboBox Color " & Uuid)
+        Else
+            '无动画
+            AniStop("MyComboBox Color " & Uuid)
+            SetResourceReference(ForegroundProperty, ColorName)
+            SetResourceReference(BackgroundProperty, BackName)
+        End If
+    End Sub
+
+    Private RealWidth As Double '由于下拉框 Popup 宽度与 Width 一致，故不能为 NaN（Auto）
+    Private Sub MyComboBox_DropDownOpened(sender As Object, e As EventArgs) Handles Me.DropDownOpened
+        RealWidth = Width
+        Width = ActualWidth
+        Try
+            CType(Template.FindName("PanPopup", Me), Grid).Opacity = FrmMain.Opacity
+        Catch ex As Exception
+            Log(ex, "设置下拉框透明度失败", LogLevel.Feedback)
+        End Try
+    End Sub
+    Private Sub MyComboBox_DropDownClosed(sender As Object, e As EventArgs) Handles Me.DropDownClosed
+        Width = RealWidth
+    End Sub
+
+    '修复 WPF Bug：下拉框文本修改后，依然误认为还选择着此前的选项，导致再次点击该选项时内容不变
+    Private IsTextChanging As Boolean = False
+    Private Sub MyComboBox_TextChanged(sender As Object, e As TextChangedEventArgs) Handles Me.TextChanged
+        If IsTextChanging OrElse Not IsEditable Then Exit Sub
+        If SelectedItem IsNot Nothing AndAlso Text <> SelectedItem.ToString Then
+            Dim RawText As String = Text
+            Dim RawSelectionStart As Integer = TextBox.SelectionStart
+            IsTextChanging = True
+            SelectedItem = Nothing
+            Text = RawText
+            TextBox.SelectionStart = RawSelectionStart
+            IsTextChanging = False
+        End If
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyComboBoxItem.vb

@@ -0,0 +1,67 @@
+Public Class MyComboBoxItem
+    Inherits ComboBoxItem
+
+    '基础
+
+    Public Uuid As Integer = GetUuid()
+    Public Sub New()
+        Style = FindResource("MyComboBoxItem")
+    End Sub
+
+    '指向动画
+
+    Private Const AnimationTimeIn As Integer = 100
+    Private Const AnimationTimeOut As Integer = 300
+    Private BackColorName As String, FontOpacity As Double
+
+    Private Sub RefreshColor() Handles Me.Unselected, Me.MouseMove, Me.MouseLeave, Me.Selected, Me.IsEnabledChanged
+        '判断当前颜色
+        Dim NewBackColorName As String, NewFontOpacity As Double
+        Dim Time As Integer
+        If IsSelected Then
+            NewBackColorName = "ColorBrush6"
+            NewFontOpacity = 1
+            Time = AnimationTimeIn
+        ElseIf IsMouseOver Then
+            NewBackColorName = "ColorBrush8"
+            NewFontOpacity = 1
+            Time = AnimationTimeIn
+        ElseIf IsEnabled Then
+            NewBackColorName = "ColorBrushTransparent"
+            NewFontOpacity = 1
+            Time = AnimationTimeOut
+        Else
+            NewBackColorName = "ColorBrushTransparent"
+            NewFontOpacity = 0.4
+            Time = AnimationTimeOut
+        End If
+        If BackColorName = NewBackColorName AndAlso FontOpacity = NewFontOpacity Then Exit Sub
+        BackColorName = NewBackColorName
+        FontOpacity = NewFontOpacity
+        '触发颜色动画
+        If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+            '有动画
+            AniStart({
+                AaColor(Me, BackgroundProperty, BackColorName, Time),
+                AaOpacity(Me, FontOpacity - Opacity, Time)
+            }, "ComboBoxItem Color " & Uuid)
+        Else
+            '无动画
+            AniStop("ComboBoxItem Color " & Uuid)
+            SetResourceReference(BackgroundProperty, BackColorName)
+            Opacity = FontOpacity
+        End If
+    End Sub
+
+    Public Overrides Function Tostring() As String
+        Return Content.ToString
+    End Function
+    Public Shared Widening Operator CType(Value As MyComboBoxItem) As String
+        Return Value.Content.ToString
+    End Operator
+
+    Private Sub MyComboBoxItem_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonUp
+        Log("[Control] 选择下拉列表项：" & Tostring())
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyExtraButton.xaml

@@ -0,0 +1,25 @@
+<Grid
+            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+            xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" x:Name="PanBack" mc:Ignorable="d" x:Class="MyExtraButton"
+            Width="40" RenderTransformOrigin="0.5,0.5" ToolTipService.ShowDuration="2333333" ToolTipService.Placement="Left" ToolTipService.VerticalOffset="16" ToolTipService.HorizontalOffset="-8" Height="0">
+    <Grid.RenderTransform>
+        <ScaleTransform ScaleX="0" ScaleY="0" />
+    </Grid.RenderTransform>
+    <Border x:Name="PanClick" CornerRadius="1000" BorderThickness="0.001" Background="{StaticResource ColorBrushSemiTransparent}"/>
+    <Grid x:Name="PanScale" IsHitTestVisible="False" RenderTransformOrigin="0.5,0.5" Margin="0,10,0,0">
+        <Grid.RenderTransform>
+            <ScaleTransform />
+        </Grid.RenderTransform>
+        <Border x:Name="PanColor" CornerRadius="1000" BorderThickness="0.001" Background="{DynamicResource ColorBrush3}">
+            <Border.Effect>
+                <DropShadowEffect ShadowDepth="0" BlurRadius="10" Opacity="0.2" />
+            </Border.Effect>
+        </Border>
+        <Path x:Name="Path" Stretch="Uniform" Margin="12" Fill="{DynamicResource ColorBrush8}" RenderTransformOrigin="0.5,0.5">
+            <Path.RenderTransform>
+                <ScaleTransform />
+            </Path.RenderTransform>
+        </Path>
+    </Grid>
+</Grid>

Plain Craft Launcher 2/Controls/MyExtraButton.xaml.vb

@@ -0,0 +1,191 @@
+Public Class MyExtraButton
+
+    '声明
+    Public Event Click(sender As Object, e As MouseButtonEventArgs) '自定义事件
+    Public Event RightClick(sender As Object, e As MouseButtonEventArgs)
+
+    '自定义属性
+    Public Uuid As Integer = GetUuid()
+    Private _Logo As String = ""
+    Public Property Logo As String
+        Get
+            Return _Logo
+        End Get
+        Set(value As String)
+            If value = _Logo Then Exit Property
+            _Logo = value
+            Path.Data = (New GeometryConverter).ConvertFromString(value)
+        End Set
+    End Property
+    Private _LogoScale As Double = 1
+    Public Property LogoScale() As Double
+        Get
+            Return _LogoScale
+        End Get
+        Set(value As Double)
+            _LogoScale = value
+            If Not IsNothing(Path) Then Path.RenderTransform = New ScaleTransform With {.ScaleX = LogoScale, .ScaleY = LogoScale}
+        End Set
+    End Property
+    Private _Show As Boolean = False
+    Public Property Show As Boolean
+        Get
+            Return _Show
+        End Get
+        Set(value As Boolean)
+            If _Show = value Then Exit Property
+            _Show = value
+            RunInUi(Sub()
+                        If value Then
+                            '有了
+                            Visibility = Visibility.Visible
+                            AniStart({
+                                AaScaleTransform(Me, 0.3 - CType(RenderTransform, ScaleTransform).ScaleX, 500, 60, New AniEaseOutFluent(AniEasePower.Weak)),
+                                AaScaleTransform(Me, 0.7, 500, 60, New AniEaseOutBack(AniEasePower.Weak)),
+                                AaHeight(Me, 50 - Height, 200,, New AniEaseOutFluent(AniEasePower.Weak))
+                            }, "MyExtraButton MainScale " & Uuid)
+                        Else
+                            '没了
+                            AniStart({
+                                AaScaleTransform(Me, -CType(RenderTransform, ScaleTransform).ScaleX, 100,, New AniEaseInFluent(AniEasePower.Weak)),
+                                AaHeight(Me, -Height, 400, 100, New AniEaseOutFluent()),
+                                AaCode(Sub() Visibility = Visibility.Collapsed,, True)
+                            }, "MyExtraButton MainScale " & Uuid)
+                        End If
+                        IsHitTestVisible = value '防止缩放动画中依然可以点进去
+                    End Sub)
+        End Set
+    End Property
+    Public Delegate Function ShowCheckDelegate() As Boolean
+    Public ShowCheck As ShowCheckDelegate = Nothing
+    Public Sub ShowRefresh()
+        If ShowCheck IsNot Nothing Then Show = ShowCheck()
+    End Sub
+
+    '触发点击事件
+    Private Sub Button_LeftMouseUp(sender As Object, e As MouseButtonEventArgs) Handles PanClick.MouseLeftButtonUp
+        If IsLeftMouseHeld Then
+            Log("[Control] 按下附加按钮" & If(ToolTip = "", "", "：" & ToolTip.ToString))
+            RaiseEvent Click(sender, e)
+            e.Handled = True
+            Button_LeftMouseUp()
+        End If
+    End Sub
+    Private Sub Button_RightMouseUp(sender As Object, e As MouseButtonEventArgs) Handles PanClick.MouseRightButtonUp
+        If IsRightMouseHeld Then
+            Log("[Control] 右键按下附加按钮" & If(ToolTip = "", "", "：" & ToolTip.ToString))
+            RaiseEvent RightClick(sender, e)
+            e.Handled = True
+            Button_RightMouseUp()
+        End If
+    End Sub
+    Private _CanRightClick As Boolean = False
+    Public Property CanRightClick As Boolean
+        Get
+            Return _CanRightClick
+        End Get
+        Set(ByVal value As Boolean)
+            _CanRightClick = value
+        End Set
+    End Property
+
+    '鼠标点击判定（务必放在点击事件之后，以使得 Button_MouseUp 先于 Button_MouseLeave 执行）
+    Private IsLeftMouseHeld As Boolean = False
+    Private IsRightMouseHeld As Boolean = False
+    Private Sub Button_LeftMouseDown(sender As Object, e As MouseButtonEventArgs) Handles PanClick.MouseLeftButtonDown
+        If Not IsLeftMouseHeld AndAlso Not IsRightMouseHeld Then
+            AniStart({
+                     AaScaleTransform(PanScale, 0.85 - CType(PanScale.RenderTransform, ScaleTransform).ScaleX, 800,, New AniEaseOutFluent(AniEasePower.Strong)),
+                     AaScaleTransform(PanScale, -0.05, 60,, New AniEaseOutFluent)
+                     }, "MyExtraButton Scale " & Uuid)
+        End If
+        IsLeftMouseHeld = True
+        Focus()
+    End Sub
+    Private Sub Button_RightMouseDown(sender As Object, e As MouseButtonEventArgs) Handles PanClick.MouseRightButtonDown
+        If Not CanRightClick Then Exit Sub
+        If Not IsLeftMouseHeld AndAlso Not IsRightMouseHeld Then
+            AniStart({
+                     AaScaleTransform(PanScale, 0.85 - CType(PanScale.RenderTransform, ScaleTransform).ScaleX, 800,, New AniEaseOutFluent(AniEasePower.Strong)),
+                     AaScaleTransform(PanScale, -0.05, 60,, New AniEaseOutFluent)
+                     }, "MyExtraButton Scale " & Uuid)
+        End If
+        IsRightMouseHeld = True
+        Focus()
+    End Sub
+    Private Sub Button_LeftMouseUp() Handles PanClick.MouseLeftButtonUp
+        If Not IsRightMouseHeld Then
+            AniStart({
+                         AaScaleTransform(PanScale, 1 - CType(PanScale.RenderTransform, ScaleTransform).ScaleX, 300,, New AniEaseOutBack)
+                     }, "MyExtraButton Scale " & Uuid)
+        End If
+        IsLeftMouseHeld = False
+        RefreshColor() '直接刷新颜色以判断是否已触发 MouseLeave
+    End Sub
+    Private Sub Button_RightMouseUp() Handles PanClick.MouseRightButtonUp
+        If Not CanRightClick Then Exit Sub
+        If Not IsLeftMouseHeld Then
+            AniStart({
+                         AaScaleTransform(PanScale, 1 - CType(PanScale.RenderTransform, ScaleTransform).ScaleX, 300,, New AniEaseOutBack)
+                     }, "MyExtraButton Scale " & Uuid)
+        End If
+        IsRightMouseHeld = False
+        RefreshColor() '直接刷新颜色以判断是否已触发 MouseLeave
+    End Sub
+    Private Sub Button_MouseLeave() Handles PanClick.MouseLeave
+        IsLeftMouseHeld = False
+        IsRightMouseHeld = False
+        AniStart({
+                     AaScaleTransform(PanScale, 1 - CType(PanScale.RenderTransform, ScaleTransform).ScaleX, 500,, New AniEaseOutFluent)
+                 }, "MyExtraButton Scale " & Uuid)
+        RefreshColor() '直接刷新颜色以判断是否已触发 MouseLeave
+    End Sub
+
+    '自定义事件
+    '务必放在 IsMouseDown 更新之后
+    Private Const AnimationColorIn As Integer = 120
+    Private Const AnimationColorOut As Integer = 150
+    Public Sub RefreshColor() Handles PanClick.MouseEnter, PanClick.MouseLeave, Me.Loaded
+        Try
+            If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+
+                If IsMouseOver Then
+                    '指向
+                    AniStart(AaColor(PanColor, BackgroundProperty, "ColorBrush4", AnimationColorIn), "MyExtraButton Color " & Uuid)
+                Else
+                    '普通
+                    AniStart(AaColor(PanColor, BackgroundProperty, "ColorBrush3", AnimationColorOut), "MyExtraButton Color " & Uuid)
+                End If
+
+            Else
+
+                AniStop("MyExtraButton Color " & Uuid)
+                If IsMouseOver Then
+                    PanColor.SetResourceReference(BackgroundProperty, "ColorBrush2")
+                Else
+                    PanColor.SetResourceReference(BackgroundProperty, "ColorBrush3")
+                End If
+
+            End If
+        Catch ex As Exception
+            Log(ex, "刷新图标按钮颜色出错")
+        End Try
+    End Sub
+
+    ''' <summary>
+    ''' 发出一圈波浪效果提示。
+    ''' </summary>
+    Public Sub Ribble()
+        RunInUi(Sub()
+                    Dim Shape As New Border With {.CornerRadius = New CornerRadius(1000), .BorderThickness = New Thickness(0.001), .Opacity = 0.5, .RenderTransformOrigin = New Point(0.5, 0.5), .RenderTransform = New ScaleTransform()}
+                    Shape.SetResourceReference(Border.BackgroundProperty, "ColorBrush5")
+                    PanScale.Children.Insert(0, Shape)
+                    AniStart({
+                       AaScaleTransform(Shape, 13, 1000, Ease:=New AniEaseInoutFluent(AniEasePower.Strong, 0.3)),
+                       AaOpacity(Shape, -Shape.Opacity, 1000),
+                       AaCode(Sub() PanScale.Children.Remove(Shape), After:=True)
+                    }, "ExtraButton Ribble " & GetUuid())
+                End Sub)
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyHint.xaml

@@ -0,0 +1,24 @@
+<Border x:Class="MyHint" x:Name="PanBack"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:local="clr-namespace:PCL"
+             FocusVisualStyle="{x:Null}"
+             UseLayoutRounding="True" SnapsToDevicePixels="True" HorizontalAlignment="Stretch" BorderThickness="1" BorderBrush="#99FF4444" CornerRadius="3">
+    <Border.Background>
+        <LinearGradientBrush EndPoint="1,0.5" StartPoint="0,0.5">
+            <GradientStop x:Name="Gradient1" Color="#88FFBBBB" Offset="0.3"/>
+            <GradientStop x:Name="Gradient2" Color="#88FF8888" Offset="0.9"/>
+        </LinearGradientBrush>
+    </Border.Background>
+    <Grid UseLayoutRounding="False" SnapsToDevicePixels="False">
+        <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="Auto" />
+            <ColumnDefinition Width="1*" />
+            <ColumnDefinition Width="Auto" />
+        </Grid.ColumnDefinitions>
+        <Path IsHitTestVisible="False" Grid.Column="0" x:Name="Path" VerticalAlignment="Center" Fill="#BF0000" Width="14" Stretch="Uniform" Margin="10,0,2,0" Data="F1 M 58.5832,55.4172L 17.4169,55.4171C 15.5619,53.5621 15.5619,50.5546 17.4168,48.6996L 35.201,15.8402C 37.056,13.9852 40.0635,13.9852 41.9185,15.8402L 58.5832,48.6997C 60.4382,50.5546 60.4382,53.5622 58.5832,55.4172 Z M 34.0417,25.7292L 36.0208,41.9584L 39.9791,41.9583L 41.9583,25.7292L 34.0417,25.7292 Z M 38,44.3333C 36.2511,44.3333 34.8333,45.7511 34.8333,47.5C 34.8333,49.2489 36.2511,50.6667 38,50.6667C 39.7489,50.6667 41.1666,49.2489 41.1666,47.5C 41.1666,45.7511 39.7489,44.3333 38,44.3333 Z " />
+        <TextBlock IsHitTestVisible="False" Grid.Column="1" x:Name="LabText" Margin="0,0.5,0,0" Padding="6,6,8,6" Text="提示文本" VerticalAlignment="Center" Foreground="#BF0000" TextWrapping="Wrap" />
+        <local:MyIconButton x:Name="BtnClose" SnapsToDevicePixels="True" Visibility="Collapsed" Foreground="#BF0000" Theme="Custom" Margin="0,0,6,0" Grid.Column="2" Height="20" Width="20" VerticalAlignment="Center" Logo="F1 M 26.9166,22.1667L 37.9999,33.25L 49.0832,22.1668L 53.8332,26.9168L 42.7499,38L 53.8332,49.0834L 49.0833,53.8334L 37.9999,42.75L 26.9166,53.8334L 22.1666,49.0833L 33.25,38L 22.1667,26.9167L 26.9166,22.1667 Z"
+                           ToolTip="不再显示" ToolTipService.Placement="Center" ToolTipService.VerticalOffset="29" ToolTipService.HorizontalOffset="2" />
+    </Grid>
+</Border>

Plain Craft Launcher 2/Controls/MyHint.xaml.vb

@@ -0,0 +1,82 @@
+Public Class MyHint
+
+    Public Uuid As Integer = GetUuid()
+
+    Private _IsWarn As Boolean = True
+    Public Property IsWarn As Boolean
+        Get
+            Return _IsWarn
+        End Get
+        Set(value As Boolean)
+            If _IsWarn = value Then Exit Property
+            _IsWarn = value
+            If _IsWarn Then
+                BorderBrush = New MyColor("#99FF4444")
+                Gradient1.Color = New MyColor("#88FFBBBB")
+                Gradient2.Color = New MyColor("#88FF8888")
+                Path.Fill = New MyColor("#BF0000")
+                LabText.Foreground = New MyColor("#BF0000")
+                BtnClose.Foreground = New MyColor("#BF0000")
+                Path.Data = (New GeometryConverter).ConvertFromString("F1 M 58.5832,55.4172L 17.4169,55.4171C 15.5619,53.5621 15.5619,50.5546 17.4168,48.6996L 35.201,15.8402C 37.056,13.9852 40.0635,13.9852 41.9185,15.8402L 58.5832,48.6997C 60.4382,50.5546 60.4382,53.5622 58.5832,55.4172 Z M 34.0417,25.7292L 36.0208,41.9584L 39.9791,41.9583L 41.9583,25.7292L 34.0417,25.7292 Z M 38,44.3333C 36.2511,44.3333 34.8333,45.7511 34.8333,47.5C 34.8333,49.2489 36.2511,50.6667 38,50.6667C 39.7489,50.6667 41.1666,49.2489 41.1666,47.5C 41.1666,45.7511 39.7489,44.3333 38,44.3333 Z ")
+            Else
+                BorderBrush = New MyColor("#994D76FF")
+                Gradient1.Color = New MyColor("#88B0D0FF")
+                Gradient2.Color = New MyColor("#889EBAFF")
+                Path.Fill = New MyColor("#0062BF")
+                LabText.Foreground = New MyColor("#0062BF")
+                BtnClose.Foreground = New MyColor("#0062BF")
+                Path.Data = (New GeometryConverter).ConvertFromString("F1M38,19C48.4934,19 57,27.5066 57,38 57,48.4934 48.4934,57 38,57 27.5066,57 19,48.4934 19,38 19,27.5066 27.5066,19 38,19z M33.25,33.25L33.25,36.4167 36.4166,36.4167 36.4166,47.5 33.25,47.5 33.25,50.6667 44.3333,50.6667 44.3333,47.5 41.1666,47.5 41.1666,36.4167 41.1666,33.25 33.25,33.25z M38.7917,25.3333C37.48,25.3333 36.4167,26.3967 36.4167,27.7083 36.4167,29.02 37.48,30.0833 38.7917,30.0833 40.1033,30.0833 41.1667,29.02 41.1667,27.7083 41.1667,26.3967 40.1033,25.3333 38.7917,25.3333z")
+            End If
+        End Set
+    End Property
+
+    Public Property Text As String
+        Get
+            Return LabText.Text
+        End Get
+        Set(ByVal value As String)
+            LabText.Text = value
+        End Set
+    End Property
+
+    Public Property CanClose As Boolean
+        Get
+            Return BtnClose.Visibility = Visibility.Visible
+        End Get
+        Set(ByVal value As Boolean)
+            BtnClose.Visibility = If(value, Visibility.Visible, Visibility.Collapsed)
+        End Set
+    End Property
+
+    Public RelativeSetup As String = ""
+
+    Private Sub MyHint_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        If CanClose AndAlso Setup.Get(RelativeSetup) Then
+            Visibility = Visibility.Collapsed
+        End If
+    End Sub
+    Private Sub BtnClose_Click(sender As Object, e As EventArgs) Handles BtnClose.Click
+        Setup.Set(RelativeSetup, True)
+        AniDispose(Me, False)
+    End Sub
+
+End Class
+Partial Public Module ModAnimation
+    Public Sub AniDispose(Control As MyHint, RemoveFromChildren As Boolean, Optional CallBack As ParameterizedThreadStart = Nothing)
+        If Not Control.IsHitTestVisible Then Exit Sub
+        Control.IsHitTestVisible = False
+        AniStart({
+                     AaScaleTransform(Control, -0.08, 200,, New AniEaseInFluent),
+                     AaOpacity(Control, -1, 200,, New AniEaseOutFluent),
+                     AaHeight(Control, -Control.ActualHeight, 150, 100, New AniEaseOutFluent),
+                     AaCode(Sub()
+                                If RemoveFromChildren Then
+                                    CType(Control.Parent, Object).Children.Remove(Control)
+                                Else
+                                    Control.Visibility = Visibility.Collapsed
+                                End If
+                                If CallBack IsNot Nothing Then CallBack(Control)
+                            End Sub,, True)
+            }, "MyCard Dispose " & Control.Uuid)
+    End Sub
+End Module

Plain Craft Launcher 2/Controls/MyIconButton.xaml

@@ -0,0 +1,15 @@
+<Border x:Class="MyIconButton"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+            CornerRadius="1000" Background="{StaticResource ColorBrushSemiTransparent}" BorderThickness="0.001">
+    <Border x:Name="PanBack" CornerRadius="1000"  RenderTransformOrigin="0.5,0.5" BorderThickness="0.001" IsHitTestVisible="False">
+        <Path x:Name="Path" Stretch="Uniform" Margin="5" RenderTransformOrigin="0.5,0.5">
+            <Path.RenderTransform>
+                <ScaleTransform />
+            </Path.RenderTransform>
+        </Path>
+        <Border.RenderTransform>
+            <ScaleTransform />
+        </Border.RenderTransform>
+    </Border>
+</Border>

Plain Craft Launcher 2/Controls/MyIconButton.xaml.vb

@@ -0,0 +1,168 @@
+Public Class MyIconButton
+
+    '声明
+    Public Event Click(sender As Object, e As EventArgs) '自定义事件
+
+    '自定义属性
+
+    Public Uuid As Integer = GetUuid()
+    Public Property Logo As String
+        Get
+            Return Path.Data.ToString
+        End Get
+        Set(value As String)
+            Path.Data = (New GeometryConverter).ConvertFromString(value)
+        End Set
+    End Property
+
+    Private _LogoScale As Double = 1
+    Public Property LogoScale() As Double
+        Get
+            Return _LogoScale
+        End Get
+        Set(value As Double)
+            _LogoScale = value
+            If Not IsNothing(Path) Then Path.RenderTransform = New ScaleTransform With {.ScaleX = LogoScale, .ScaleY = LogoScale}
+        End Set
+    End Property
+
+    Public Enum Themes
+        Color
+        White
+        Black
+        Custom
+    End Enum
+    Public Property Theme As Themes = Themes.Color
+
+    Private _Foreground As New SolidColorBrush(Color.FromRgb(128, 128, 128))
+    Public Property Foreground As SolidColorBrush
+        Get
+            Return _Foreground
+        End Get
+        Set(value As SolidColorBrush)
+            _Foreground = value
+            AniControlEnabled += 1
+            RefreshAnim()
+            AniControlEnabled -= 1
+        End Set
+    End Property
+
+    '触发点击事件
+    Private Sub Button_MouseUp(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonUp
+        If IsMouseDown Then
+            Log("[Control] 按下图标按钮" & If(String.IsNullOrEmpty(Name), "", "：" & Name))
+            RaiseEvent Click(sender, e)
+            e.Handled = True
+            Button_MouseUp()
+        End If
+    End Sub
+
+    '鼠标点击判定（务必放在点击事件之后，以使得 Button_MouseUp 先于 Button_MouseLeave 执行）
+    Private IsMouseDown As Boolean = False
+    Private Sub Button_MouseDown(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonDown
+        IsMouseDown = True
+        Focus()
+        '指向
+        AniStart(AaScaleTransform(PanBack, 0.8 - CType(PanBack.RenderTransform, ScaleTransform).ScaleX, 400,, New AniEaseOutFluent(AniEasePower.Strong)), "MyIconButton Scale " & Uuid)
+    End Sub
+    Private Sub Button_MouseUp() Handles Me.MouseLeftButtonUp
+        If IsMouseDown Then
+            IsMouseDown = False
+            AniStart({
+                     AaScaleTransform(PanBack, 1.05 - CType(PanBack.RenderTransform, ScaleTransform).ScaleX, 250,, New AniEaseOutBack(AniEasePower.Weak)),
+                     AaScaleTransform(PanBack, -0.05, 250,, New AniEaseOutFluent(AniEasePower.Strong))
+                 }, "MyIconButton Scale " & Uuid)
+        End If
+        RefreshAnim() '直接刷新颜色以判断是否已触发 MouseLeave
+    End Sub
+    Private Sub Button_MouseLeave() Handles Me.MouseLeave
+        IsMouseDown = False
+        AniStart({
+                     AaScaleTransform(PanBack, 1 - CType(PanBack.RenderTransform, ScaleTransform).ScaleX, 250,, New AniEaseOutFluent)
+                 }, "MyIconButton Scale " & Uuid)
+        RefreshAnim() '直接刷新颜色以判断是否已触发 MouseLeave
+    End Sub
+
+    '自定义事件
+    '务必放在 IsMouseDown 更新之后
+    Private Const AnimationColorIn As Integer = 120
+    Private Const AnimationColorOut As Integer = 150
+    Public Sub RefreshAnim() Handles Me.MouseEnter, Me.MouseLeave, Me.Loaded
+        Try
+            If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+
+                If PanBack.Background Is Nothing Then PanBack.Background = New MyColor(0, 255, 255, 255)
+                If Path.Fill Is Nothing AndAlso Theme = Themes.Black Then Path.Fill = New MyColor(140, 0, 0, 0)
+                If IsMouseOver Then
+                    '指向
+                    Dim AnimList As New List(Of AniData)
+                    Select Case Theme
+                        Case Themes.Color
+                            AnimList.Add(AaColor(Path, Shape.FillProperty, "ColorBrush2", AnimationColorIn))
+                        Case Themes.White
+                            AnimList.Add(AaColor(PanBack, BackgroundProperty, New MyColor(50, 255, 255, 255) - PanBack.Background, AnimationColorIn))
+                        Case Themes.Black
+                            AnimList.Add(AaColor(Path, Shape.FillProperty, New MyColor(230, 0, 0, 0) - Path.Fill, AnimationColorIn))
+                        Case Themes.Custom
+                            AnimList.Add(AaColor(Path, Shape.FillProperty, New MyColor(255, Foreground) - Path.Fill, AnimationColorIn))
+                    End Select
+                    AniStart(AnimList, "MyIconButton Color " & Uuid)
+                Else
+                    '普通
+                    Dim AnimList As New List(Of AniData)
+                    Select Case Theme
+                        Case Themes.Color
+                            AnimList.Add(AaColor(Path, Shape.FillProperty, "ColorBrush4", AnimationColorOut))
+                            PanBack.Background = New MyColor(0, 255, 255, 255)
+                        Case Themes.White
+                            AnimList.Add(AaColor(Path, Shape.FillProperty, "ColorBrush8", AnimationColorOut))
+                            AnimList.Add(AaColor(PanBack, BackgroundProperty, New MyColor(0, 255, 255, 255) - PanBack.Background, AnimationColorOut))
+                        Case Themes.Black
+                            AnimList.Add(AaColor(Path, Shape.FillProperty, New MyColor(160, 0, 0, 0) - Path.Fill, AnimationColorOut))
+                            PanBack.Background = New MyColor(0, 255, 255, 255)
+                        Case Themes.Custom
+                            AnimList.Add(AaColor(Path, Shape.FillProperty, New MyColor(160, Foreground) - Path.Fill, AnimationColorOut))
+                            PanBack.Background = New MyColor(0, 255, 255, 255)
+                    End Select
+                    AniStart(AnimList, "MyIconButton Color " & Uuid)
+                End If
+
+            Else
+
+                AniStop("MyIconButton Color " & Uuid)
+                Select Case Theme
+                    Case Themes.Color
+                        Path.SetResourceReference(Shape.FillProperty, "ColorBrush5")
+                    Case Themes.White
+                        Path.SetResourceReference(Shape.FillProperty, "ColorBrush8")
+                    Case Themes.Black
+                        Path.Fill = New MyColor(160, 0, 0, 0)
+                    Case Themes.Custom
+                        Path.Fill = New MyColor(160, Foreground)
+                End Select
+                PanBack.Background = New MyColor(0, 255, 255, 255)
+
+            End If
+        Catch ex As Exception
+            Log(ex, "刷新图标按钮动画状态出错")
+        End Try
+    End Sub
+
+End Class
+Partial Public Module ModAnimation
+    Public Sub AniDispose(Control As MyIconButton, RemoveFromChildren As Boolean, Optional CallBack As ParameterizedThreadStart = Nothing)
+        If Not Control.IsHitTestVisible Then Exit Sub
+        Control.IsHitTestVisible = False
+        AniStart({
+                 AaScaleTransform(Control, -1.5, 200,, New AniEaseInFluent),
+                 AaCode(Sub()
+                            If RemoveFromChildren Then
+                                CType(Control.Parent, Object).Children.Remove(Control)
+                            Else
+                                Control.Visibility = Visibility.Collapsed
+                            End If
+                            If CallBack IsNot Nothing Then CallBack(Control)
+                        End Sub,, True)
+        }, "MyIconButton Dispose " & Control.Uuid)
+    End Sub
+End Module

Plain Craft Launcher 2/Controls/MyListItem.xaml

@@ -0,0 +1,27 @@
+<Grid x:Class="MyListItem"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             x:Name="PanBack"
+            RenderTransformOrigin="0.5,0.5" Background="{StaticResource ColorBrushSemiTransparent}" Height="42">
+    <Grid.RenderTransform>
+        <ScaleTransform ScaleX="1" ScaleY="1" />
+    </Grid.RenderTransform>
+    <Grid.ColumnDefinitions>
+        <ColumnDefinition x:Name="ColumnCheck" Width="2"/>
+        <ColumnDefinition x:Name="ColumnPaddingLeft" Width="0" />
+        <ColumnDefinition x:Name="ColumnLogo" Width="4" />
+        <ColumnDefinition Width="1*"/>
+        <ColumnDefinition x:Name="ColumnPaddingRight" Width="0" />
+    </Grid.ColumnDefinitions>
+    <Grid.RowDefinitions>
+        <RowDefinition Height="1*" />
+        <RowDefinition Height="Auto" />
+        <RowDefinition Height="Auto" />
+        <RowDefinition Height="1*" />
+    </Grid.RowDefinitions>
+    <!--<Border x:Name="RectBack" CornerRadius="3" RenderTransformOrigin="0.5,0.5" SnapsToDevicePixels="True" IsHitTestVisible="False" Opacity="0" Grid.ColumnSpan="4" Background="{DynamicResource ColorBrush7}" BorderBrush="{DynamicResource ColorBrush6}" BorderThickness="1" />-->
+    <!--<StackPanel VerticalAlignment="Center">-->
+    <TextBlock Grid.Row="1" SnapsToDevicePixels="False" UseLayoutRounding="False" HorizontalAlignment="Left" x:Name="LabTitle" IsHitTestVisible="False" Grid.Column="3" Text="{Binding Title, ElementName=PanBack}" TextTrimming="CharacterEllipsis" FontSize="{Binding FontSize, ElementName=PanBack}" Foreground="{Binding Foreground, ElementName=PanBack}" Margin="4,0,0,0" />
+    <!--<TextBlock Grid.Row="2" SnapsToDevicePixels="False" UseLayoutRounding="False" HorizontalAlignment="Left" x:Name="LabInfo" IsHitTestVisible="False" Grid.Column="2" TextTrimming="CharacterEllipsis" Visibility="Collapsed" FontSize="12" Foreground="{StaticResource ColorBrushGray2}" Margin="4,0,0,0" />-->
+    <!--</StackPanel>-->
+</Grid>

Plain Craft Launcher 2/Controls/MyListItem.xaml.vb

@@ -0,0 +1,668 @@
+Public Class MyListItem
+    Implements IMyRadio
+
+    Public Event Click(sender As Object, e As MouseButtonEventArgs)
+    Public Event LogoClick(sender As Object, e As MouseButtonEventArgs)
+    Public Event Check(sender As Object, e As RouteEventArgs) Implements IMyRadio.Check
+    Public Event Changed(sender As Object, e As RouteEventArgs) Implements IMyRadio.Changed
+
+#Region "后加载控件"
+
+    '指向背景
+    Private _RectBack As Border = Nothing
+    Public ReadOnly Property RectBack As Border
+        Get
+            If _RectBack Is Nothing Then
+                Dim Rect As New Border With {
+                    .Name = "RectBack",
+                    .CornerRadius = New CornerRadius(If(IsScaleAnimationEnabled, 6, 0)),
+                    .RenderTransform = If(IsScaleAnimationEnabled, New ScaleTransform(0.8, 0.8), Nothing),
+                    .RenderTransformOrigin = New Point(0.5, 0.5),
+                    .BorderThickness = New Thickness(GetWPFSize(1)),
+                    .SnapsToDevicePixels = True,
+                    .IsHitTestVisible = False,
+                    .Opacity = 0
+                }
+                Rect.SetResourceReference(Border.BackgroundProperty, "ColorBrush7")
+                Rect.SetResourceReference(Border.BorderBrushProperty, "ColorBrush6")
+                SetColumnSpan(Rect, 999)
+                SetRowSpan(Rect, 999)
+                Children.Insert(0, Rect)
+                _RectBack = Rect
+                '<!--<Border x:Name = "RectBack" CornerRadius="3" RenderTransformOrigin="0.5,0.5" SnapsToDevicePixels="True" 
+                'IsHitTestVisible = "False" Opacity="0" BorderThickness="1" 
+                'Grid.ColumnSpan = "4" Background="{DynamicResource ColorBrush7}" BorderBrush="{DynamicResource ColorBrush6}"/>-->
+            End If
+            Return _RectBack
+        End Get
+    End Property
+
+    '按钮
+    Public ButtonStack As FrameworkElement
+
+    '图标
+    Public PathLogo As FrameworkElement
+
+    '勾选条
+    Public RectCheck As Border
+
+    '副文本
+    Private _LabInfo As TextBlock = Nothing
+    Public ReadOnly Property LabInfo As TextBlock
+        Get
+            If _LabInfo Is Nothing Then
+                Dim Lab As New TextBlock With {
+                    .Name = "LabInfo",
+                    .SnapsToDevicePixels = False,
+                    .UseLayoutRounding = False,
+                    .HorizontalAlignment = HorizontalAlignment.Left,
+                    .IsHitTestVisible = False,
+                    .TextTrimming = TextTrimming.CharacterEllipsis,
+                    .Visibility = Visibility.Collapsed,
+                    .FontSize = 12,
+                    .Margin = New Thickness(4, 0, 0, 0),
+                    .Opacity = 0.6
+                }
+                SetColumn(Lab, 3)
+                SetRow(Lab, 2)
+                Children.Add(Lab)
+                _LabInfo = Lab
+                '<TextBlock Grid.Row="2" SnapsToDevicePixels="False" UseLayoutRounding="False" HorizontalAlignment="Left" x:Name = "LabInfo" IsHitTestVisible="False" Grid.Column="2" 
+                'TextTrimming = "CharacterEllipsis" Visibility="Collapsed" FontSize="12" Foreground="{StaticResource ColorBrushGray2}" Margin="4,0,0,0" />
+            End If
+            Return _LabInfo
+        End Get
+    End Property
+
+#End Region
+
+#Region "自定义属性"
+
+    'Uuid
+    Public Uuid As Integer = GetUuid()
+
+    ''' <summary>
+    ''' 是否启用缩放动画。
+    ''' </summary>
+    Public Property IsScaleAnimationEnabled As Boolean
+        Get
+            Return _IsScaleAnimationEnabled
+        End Get
+        Set
+            _IsScaleAnimationEnabled = Value
+            If _RectBack IsNot Nothing Then RectBack.CornerRadius = New CornerRadius(If(Value, 6, 0))
+        End Set
+    End Property
+    Private _IsScaleAnimationEnabled As Boolean = True
+
+    '边距
+    Public Property PaddingLeft As Integer
+        Get
+            Return ColumnPaddingLeft.Width.Value
+        End Get
+        Set(value As Integer)
+            ColumnPaddingLeft.Width = New GridLength(value)
+        End Set
+    End Property
+    Public Property PaddingRight As Integer
+        Get
+            Return ColumnPaddingRight.Width.Value
+        End Get
+        Set(value As Integer)
+            ColumnPaddingRight.Width = New GridLength(value)
+        End Set
+    End Property
+
+    '按钮
+    Private _Buttons As IEnumerable
+    Public Property Buttons As IEnumerable
+        Get
+            Return _Buttons
+        End Get
+        Set(value As IEnumerable)
+            _Buttons = value
+            '没有特殊按钮，移除原 Stack
+            If Not IsNothing(ButtonStack) Then
+                Children.Remove(ButtonStack)
+                ButtonStack = Nothing
+            End If
+            '获取按钮数量
+            Dim Count As Integer = 0
+            For Each Counter In value
+                Count += 1
+            Next
+            '添加新 Stack
+            Select Case Count
+                Case 0
+                    '没有按钮，不添加新的
+                Case 1
+                    '只有一个按钮
+                    For Each Btn As MyIconButton In value
+                        If Btn.Height.Equals(Double.NaN) Then Btn.Height = 23
+                        If Btn.Width.Equals(Double.NaN) Then Btn.Width = 23
+                        With Btn
+                            .Opacity = 0
+                            .Margin = New Thickness(0, 0, 5, 0)
+                            .SnapsToDevicePixels = False
+                            .HorizontalAlignment = HorizontalAlignment.Right
+                            .VerticalAlignment = VerticalAlignment.Center
+                            .SnapsToDevicePixels = False
+                            .UseLayoutRounding = False
+                        End With
+                        SetColumn(Btn, 4)
+                        SetColumnSpan(Btn, 4)
+                        SetRowSpan(Btn, 4)
+                        Children.Add(Btn)
+                        ButtonStack = Btn
+                    Next
+                Case Else
+                    '有复数按钮，使用 StackPanel
+                    ButtonStack = New StackPanel With {.Opacity = 0, .Margin = New Thickness(0, 0, 5, 0), .SnapsToDevicePixels = False, .Orientation = Orientation.Horizontal, .HorizontalAlignment = HorizontalAlignment.Right, .VerticalAlignment = VerticalAlignment.Center, .UseLayoutRounding = False}
+                    SetColumn(ButtonStack, 4)
+                    SetColumnSpan(ButtonStack, 4)
+                    SetRowSpan(ButtonStack, 4)
+                    '构造按钮
+                    For Each Btn As MyIconButton In value
+                        If Btn.Height.Equals(Double.NaN) Then Btn.Height = 23
+                        If Btn.Width.Equals(Double.NaN) Then Btn.Width = 23
+                        CType(ButtonStack, StackPanel).Children.Add(Btn)
+                    Next
+                    Children.Add(ButtonStack)
+            End Select
+        End Set
+    End Property
+
+    '标题
+    Public Property Title As String
+        Get
+            Return GetValue(TitleProperty)
+        End Get
+        Set(value As String)
+            SetValue(TitleProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly TitleProperty As DependencyProperty = DependencyProperty.Register("Title", GetType(String), GetType(MyListItem))
+
+    '字号
+    Public Property FontSize As Double
+        Get
+            Return GetValue(FontSizeProperty)
+        End Get
+        Set(value As Double)
+            SetValue(FontSizeProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly FontSizeProperty As DependencyProperty = DependencyProperty.Register("FontSize", GetType(Double), GetType(MyListItem), New PropertyMetadata(CType(14, Double)))
+
+    '信息
+    Private _Info As String = ""
+    Public Property Info As String
+        Get
+            Return _Info
+        End Get
+        Set(value As String)
+            If _Info = value Then Exit Property
+            value = value.Replace(vbCr, "").Replace(vbLf, "")
+            _Info = value
+            LabInfo.Text = value
+            LabInfo.Visibility = If(value = "", Visibility.Collapsed, Visibility.Visible)
+        End Set
+    End Property
+
+    '图片
+    Private _Logo As String = ""
+    Public Property Logo As String
+        Get
+            Return _Logo
+        End Get
+        Set(value As String)
+            If _Logo = value Then Exit Property
+            _Logo = value
+            '删除旧 Logo
+            If Not IsNothing(PathLogo) Then Children.Remove(PathLogo)
+            '添加新 Logo
+            If Not _Logo = "" Then
+                If _Logo.ToLower.StartsWith("http") Then
+                    '网络图片
+                    PathLogo = New Image With {
+                            .IsHitTestVisible = LogoClickable,
+                            .Source = New ImageSourceConverter().ConvertFromString(_Logo),
+                            .RenderTransformOrigin = New Point(0.5, 0.5),
+                            .RenderTransform = New ScaleTransform With {.ScaleX = LogoScale, .ScaleY = LogoScale},
+                            .SnapsToDevicePixels = True, .UseLayoutRounding = False}
+                    RenderOptions.SetBitmapScalingMode(PathLogo, BitmapScalingMode.Linear)
+                ElseIf _Logo.ToLower.EndsWith(".png") Then
+                    '位图
+                    Dim Bitmap = New MyBitmap(_Logo)
+                    PathLogo = New Canvas With {
+                            .IsHitTestVisible = LogoClickable,
+                            .Background = Bitmap,
+                            .RenderTransformOrigin = New Point(0.5, 0.5),
+                            .RenderTransform = New ScaleTransform With {.ScaleX = LogoScale, .ScaleY = LogoScale},
+                            .SnapsToDevicePixels = True, .UseLayoutRounding = False}
+                    'If Bitmap.Pic.Width = 16 AndAlso Bitmap.Pic.Height = 16 Then
+                    '    '使用最适合 16x16 物品图片显示的大小
+                    '    RenderOptions.SetBitmapScalingMode(PathLogo, BitmapScalingMode.NearestNeighbor)
+                    '    PathLogo.HorizontalAlignment = HorizontalAlignment.Center : PathLogo.VerticalAlignment = VerticalAlignment.Center
+                    '    PathLogo.Width = GetWPFSize(Math.Floor(GetPixelSize(32) / 16) * 16) : PathLogo.Height = PathLogo.Width
+                    'Else
+                    PathLogo.HorizontalAlignment = HorizontalAlignment.Stretch : PathLogo.VerticalAlignment = VerticalAlignment.Stretch
+                    RenderOptions.SetBitmapScalingMode(PathLogo, BitmapScalingMode.HighQuality)
+                    'End If
+                Else
+                    '矢量图
+                    PathLogo = New Shapes.Path With {
+                        .IsHitTestVisible = LogoClickable, .HorizontalAlignment = HorizontalAlignment.Center, .VerticalAlignment = VerticalAlignment.Center, .Stretch = Stretch.Uniform,
+                        .Data = (New GeometryConverter).ConvertFromString(_Logo),
+                        .RenderTransformOrigin = New Point(0.5, 0.5),
+                        .RenderTransform = New ScaleTransform With {.ScaleX = LogoScale, .ScaleY = LogoScale},
+                        .SnapsToDevicePixels = False, .UseLayoutRounding = False}
+                    PathLogo.SetBinding(Shapes.Path.FillProperty, New Binding("Foreground") With {.Source = Me})
+                End If
+                SetColumn(PathLogo, 2)
+                SetRowSpan(PathLogo, 4)
+                OnSizeChanged() '设置边距
+                Children.Add(PathLogo)
+                '图标的点击事件
+                If LogoClickable Then
+                    AddHandler PathLogo.MouseLeave, Sub(sender, e) IsLogoDown = False
+                    AddHandler PathLogo.MouseLeftButtonDown, Sub(sender, e) IsLogoDown = True
+                    AddHandler PathLogo.MouseLeftButtonUp, Sub(sender, e) If IsLogoDown Then IsLogoDown = False : RaiseEvent LogoClick(sender, e)
+                End If
+            End If
+            '改变行距
+            ColumnLogo.Width = New GridLength(If(_Logo = "", 0, 34) + If(Height < 40, 0, 4))
+        End Set
+    End Property
+    Private _LogoScale As Double = 1
+    Public Property LogoScale() As Double
+        Get
+            Return _LogoScale
+        End Get
+        Set(value As Double)
+            _LogoScale = value
+            If Not IsNothing(PathLogo) Then PathLogo.RenderTransform = New ScaleTransform With {.ScaleX = LogoScale, .ScaleY = LogoScale}
+        End Set
+    End Property
+
+    '图标的点击
+    Public Property LogoClickable As Boolean = False
+    Private IsLogoDown As Boolean = False
+
+    '勾选选项
+    Public Enum CheckType
+        None
+        Clickable
+        RadioBox
+        CheckBox
+    End Enum
+    Private _Type As CheckType = CheckType.None
+    Public Property Type As CheckType
+        Get
+            Return _Type
+        End Get
+        Set(value As CheckType)
+            If _Type = value Then Exit Property
+            _Type = value
+            '切换左栏大小
+            ColumnCheck.Width = New GridLength(If(_Type = CheckType.None OrElse _Type = CheckType.Clickable, If(Height < 40, 4, 2), 6))
+            '切换竖条控件
+            If _Type = CheckType.None OrElse _Type = CheckType.Clickable Then
+                '移除竖条控件
+                If Not IsNothing(RectCheck) Then
+                    Children.Remove(RectCheck)
+                    RectCheck = Nothing
+                End If
+                SetChecked(False, False, False)
+            Else
+                '添加竖条控件
+                If IsNothing(RectCheck) Then
+                    RectCheck = New Border With {.Width = 5, .Height = If(Checked, Double.NaN, 0), .CornerRadius = New CornerRadius(2, 2, 2, 2),
+                        .VerticalAlignment = If(Checked, VerticalAlignment.Stretch, VerticalAlignment.Center), .HorizontalAlignment = HorizontalAlignment.Left, .UseLayoutRounding = False, .SnapsToDevicePixels = False,
+                        .Margin = If(Checked, New Thickness(-1, 6, 0, 6), New Thickness(-1, 0, 0, 0))}
+                    RectCheck.SetResourceReference(Border.BackgroundProperty, "ColorBrush3")
+                    SetRowSpan(RectCheck, 4)
+                    Children.Add(RectCheck)
+                End If
+            End If
+        End Set
+    End Property
+
+    '适应尺寸
+    Private Sub OnSizeChanged() Handles Me.SizeChanged
+        ColumnCheck.Width = New GridLength(If(_Type = CheckType.None OrElse _Type = CheckType.Clickable, If(Height < 40, 4, 2), 6))
+        ColumnLogo.Width = New GridLength(If(_Logo = "", 0, 34) + If(Height < 40, 0, 4))
+        If Not IsNothing(PathLogo) Then
+            If _Logo.EndsWith(".png") Then
+                PathLogo.Margin = New Thickness(4, 5, 3, 5)
+            Else
+                PathLogo.Margin = New Thickness(If(Height < 40, 6, 8), 8, If(Height < 40, 4, 6), 8)
+            End If
+        End If
+        LabTitle.Margin = New Thickness(4, 0, 0, If(Height < 40, 0, 2))
+    End Sub
+
+    '勾选状态
+    Private _Checked As Boolean = False
+    Public Property Checked As Boolean
+        Get
+            Return _Checked
+        End Get
+        Set(value As Boolean)
+            SetChecked(value, False, True)
+        End Set
+    End Property
+    ''' <summary>
+    ''' 手动设置 Checked 属性。
+    ''' </summary>
+    ''' <param name="value">新的 Checked 属性。</param>
+    ''' <param name="user">是否由用户引发。</param>
+    ''' <param name="anime">是否执行动画。</param>
+    Public Sub SetChecked(value As Boolean, user As Boolean, anime As Boolean)
+        Try
+
+            '自定义属性基础
+
+            Dim ChangedEventArgs As New RouteEventArgs(user)
+            Dim RawValue = _Checked
+            If Type = CheckType.RadioBox Then
+                If IsInitialized AndAlso Not value = _Checked Then
+                    _Checked = value
+                    RaiseEvent Changed(Me, ChangedEventArgs)
+                    If ChangedEventArgs.Handled Then
+                        _Checked = RawValue
+                        Exit Sub
+                    End If
+                End If
+                _Checked = value
+            Else
+                If value = _Checked Then Exit Sub
+                _Checked = value
+                If IsInitialized Then
+                    RaiseEvent Changed(Me, ChangedEventArgs)
+                    If ChangedEventArgs.Handled Then
+                        _Checked = RawValue
+                        Exit Sub
+                    End If
+                End If
+            End If
+            If value Then
+                Dim CheckEventArgs As New RouteEventArgs(user)
+                RaiseEvent Check(Me, CheckEventArgs)
+                If CheckEventArgs.Handled Then Exit Sub
+            End If
+
+            '保证只有一个单选 ListItem 选中
+
+            If Type = CheckType.RadioBox Then
+                If IsNothing(Parent) Then Exit Sub
+                Dim RadioboxList As New List(Of MyListItem)
+                Dim CheckedCount As Integer = 0
+                '收集控件列表与选中个数
+                For Each Control In CType(Parent, Object).Children
+                    If TypeOf Control Is MyListItem AndAlso CType(Control, MyListItem).Type = CheckType.RadioBox Then
+                        RadioboxList.Add(Control)
+                        If Control.Checked Then CheckedCount += 1
+                    End If
+                Next
+                '判断选中情况
+                Select Case CheckedCount
+                    Case 0
+                        '没有任何单选框被选中，选择第一个
+                        RadioboxList(0).Checked = True
+                    Case Is > 1
+                        '选中项目多于 1 个
+                        If Me.Checked Then
+                            '如果本控件选中，则取消其他所有控件的选中
+                            For Each Control As MyListItem In RadioboxList
+                                If Control.Checked AndAlso Not Control.Equals(Me) Then Control.Checked = False
+                            Next
+                        Else
+                            '如果本控件未选中，则只保留第一个选中的控件
+                            Dim FirstChecked = False
+                            For Each Control As MyListItem In RadioboxList
+                                If Control.Checked Then
+                                    If FirstChecked Then
+                                        Control.Checked = False '修改 Checked 会自动触发 Change 事件，所以不用额外触发
+                                    Else
+                                        FirstChecked = True
+                                    End If
+                                End If
+                            Next
+                        End If
+                End Select
+            End If
+
+            '更改动画
+
+            If IsLoaded AndAlso AniControlEnabled = 0 AndAlso anime Then '防止默认属性变更触发动画
+                Dim Anim As New List(Of AniData)
+                If Checked Then
+                    '由无变有
+                    If Not IsNothing(RectCheck) Then
+                        Dim Delta = ActualHeight - RectCheck.ActualHeight - 12
+                        Anim.Add(AaHeight(RectCheck, Delta * 0.4, 200,, New AniEaseOutFluent(AniEasePower.Weak)))
+                        Anim.Add(AaHeight(RectCheck, Delta * 0.6, 300,, New AniEaseOutBack(AniEasePower.Weak)))
+                        Anim.Add(AaOpacity(RectCheck, 1 - RectCheck.Opacity, 30))
+                        RectCheck.VerticalAlignment = VerticalAlignment.Center
+                        RectCheck.Margin = New Thickness(-1, 0, 0, 0)
+                    End If
+                    Anim.Add(AaColor(Me, ForegroundProperty, "ColorBrush3", 200))
+                Else
+                    '由有变无
+                    If Not IsNothing(RectCheck) Then
+                        'Anim.Add(AaWidth(RectCheck, -RectCheck.Width, 120,, New AniEaseInFluent))
+                        Anim.Add(AaHeight(RectCheck, -RectCheck.ActualHeight, 120,, New AniEaseInFluent(AniEasePower.Weak)))
+                        Anim.Add(AaOpacity(RectCheck, -RectCheck.Opacity, 70, 40))
+                        RectCheck.VerticalAlignment = VerticalAlignment.Center
+                    End If
+                    Anim.Add(AaColor(Me, ForegroundProperty, "ColorBrush1", 120))
+                End If
+                AniStart(Anim, "MyListItem Checked " & Uuid)
+            Else
+                '不使用动画
+                If Checked Then
+                    'If Not IsNothing(RectCheck) Then RectCheck.Width = 4
+                    If Not IsNothing(RectCheck) Then
+                        RectCheck.Height = Double.NaN
+                        RectCheck.Margin = New Thickness(-1, 6, 0, 6)
+                        RectCheck.Opacity = 1
+                        RectCheck.VerticalAlignment = VerticalAlignment.Stretch
+                    End If
+                    SetResourceReference(ForegroundProperty, "ColorBrush3")
+                Else
+                    'If Not IsNothing(RectCheck) Then RectCheck.Width = 0
+                    If Not IsNothing(RectCheck) Then
+                        RectCheck.Height = 0
+                        RectCheck.Margin = New Thickness(-1, 0, 0, 0)
+                        RectCheck.Opacity = 0
+                        RectCheck.VerticalAlignment = VerticalAlignment.Center
+                    End If
+                    SetResourceReference(ForegroundProperty, "ColorBrush1")
+                End If
+            End If
+
+        Catch ex As Exception
+            Log(ex, "设置 Checked 失败")
+        End Try
+    End Sub
+
+    '前景色绑定
+    Public Property Foreground As Brush
+        Get
+            Return GetValue(ForegroundProperty)
+        End Get
+        Set(value As Brush)
+            SetValue(ForegroundProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly ForegroundProperty As DependencyProperty = DependencyProperty.Register("Foreground", GetType(Brush), GetType(MyListItem), New PropertyMetadata(CType(Color1, SolidColorBrush)))
+
+    '菜单与按钮绑定
+    Public ContentHandler As Action(Of MyListItem, EventArgs)
+
+#End Region
+
+#Region "点击"
+
+    '触发点击事件
+    Private Sub Button_MouseUp(sender As Object, e As MouseButtonEventArgs) Handles Me.PreviewMouseLeftButtonUp
+        If IsMouseDown Then
+            RaiseEvent Click(sender, e)
+            If e.Handled Then Exit Sub
+            '触发自定义事件
+            If Not String.IsNullOrEmpty(EventType) Then
+                ModEvent.TryStartEvent(EventType, EventData)
+                e.Handled = True
+            End If
+            If e.Handled Then Exit Sub
+            '实际的单击处理
+            Select Case Type
+                Case CheckType.Clickable
+                    Log("[Control] 按下单击列表项：" & Title)
+                Case CheckType.RadioBox
+                    Log("[Control] 按下单选列表项：" & Title)
+                    If Not Checked Then SetChecked(True, True, True)
+                Case CheckType.CheckBox
+                    Log("[Control] 按下复选列表项（" & (Not Checked).ToString & "）：" & Title)
+                    SetChecked(Not Checked, True, True)
+            End Select
+        End If
+        'AniStart({
+        '       AaScaleTransform(Me, 1.004 - CType(RenderTransform, ScaleTransform).ScaleX, 150,, New AniEaseOutFluent),
+        '       AaScaleTransform(Me, -0.004, 100, 150, New AniEaseInFluent)
+        '   }, "MyListItem Scale " & Uuid)
+    End Sub
+
+    '鼠标点击判定
+    Private IsMouseDown As Boolean = False
+    Private Sub Button_MouseDown(sender As Object, e As MouseButtonEventArgs) Handles Me.PreviewMouseLeftButtonDown
+        If IsMouseDirectlyOver AndAlso Not Type = CheckType.None Then
+            IsMouseDown = True
+            If Not IsNothing(ButtonStack) Then ButtonStack.IsHitTestVisible = False
+        End If
+        'AniStart({
+        '       AaScaleTransform(Me, 0.985 - CType(RenderTransform, ScaleTransform).ScaleX, 50,, New AniEaseOutFluent)
+        '   }, "MyListItem Scale " & Uuid)
+    End Sub
+    Private Sub Button_MouseLeave(sender As Object, e As Object) Handles Me.MouseLeave, Me.PreviewMouseLeftButtonUp
+        IsMouseDown = False
+        If Not IsNothing(ButtonStack) Then ButtonStack.IsHitTestVisible = True
+    End Sub
+
+    '实现自定义事件
+    Public Property EventType As String
+        Get
+            Return GetValue(EventTypeProperty)
+        End Get
+        Set(value As String)
+            SetValue(EventTypeProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly EventTypeProperty As DependencyProperty = DependencyProperty.Register("EventType", GetType(String), GetType(MyListItem), New PropertyMetadata(Nothing))
+    Public Property EventData As String
+        Get
+            Return GetValue(EventDataProperty)
+        End Get
+        Set(value As String)
+            SetValue(EventDataProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly EventDataProperty As DependencyProperty = DependencyProperty.Register("EventData", GetType(String), GetType(MyListItem), New PropertyMetadata(Nothing))
+
+#End Region
+
+    Private StateLast As String
+    Public IsMouseOverAnimationEnabled As Boolean = True
+    Public Sub RefreshColor(sender As Object, e As EventArgs) Handles Me.MouseEnter, Me.MouseLeave, Me.MouseLeftButtonDown, Me.MouseLeftButtonUp
+        '菜单虚拟化检测
+        If ContentHandler IsNot Nothing Then
+            ContentHandler(sender, e)
+            ContentHandler = Nothing
+        End If
+        '判断当前颜色
+        Dim StateNew As String, Time As Integer
+        If IsMouseDown AndAlso Not (Type = CheckType.RadioBox AndAlso Checked) Then
+            StateNew = "MouseDown"
+            Time = 120
+        Else
+            If IsMouseOver AndAlso IsMouseOverAnimationEnabled Then
+                StateNew = "MouseOver"
+                Time = 120
+            Else
+                StateNew = "Idle"
+                Time = 180
+            End If
+        End If
+        If StateLast = StateNew Then Exit Sub
+        StateLast = StateNew
+        '触发颜色动画
+        If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+            '有动画
+            Dim Ani As New List(Of AniData)
+            If IsMouseOver AndAlso IsMouseOverAnimationEnabled Then
+                If ButtonStack IsNot Nothing Then Ani.Add(AaOpacity(ButtonStack, 1 - ButtonStack.Opacity, Time * 0.7, Time * 0.3))
+                Ani.AddRange({
+                             AaColor(RectBack, Border.BackgroundProperty, If(IsMouseDown, "ColorBrush6", "ColorBrush9"), Time),
+                             AaOpacity(RectBack, 1 - RectBack.Opacity, Time,, New AniEaseOutFluent)
+                         })
+                If IsScaleAnimationEnabled Then
+                    Ani.Add(AaScaleTransform(RectBack, 1 - CType(RectBack.RenderTransform, ScaleTransform).ScaleX, Time * 1.6,, New AniEaseOutFluent))
+                    If IsMouseDown Then
+                        Ani.Add(AaScaleTransform(Me, 0.98 - CType(Me.RenderTransform, ScaleTransform).ScaleX, Time * 0.9,, New AniEaseOutFluent))
+                    Else
+                        Ani.Add(AaScaleTransform(Me, 1 - CType(Me.RenderTransform, ScaleTransform).ScaleX, Time * 1.2,, New AniEaseOutFluent))
+                    End If
+                End If
+            Else
+                If ButtonStack IsNot Nothing Then Ani.Add(AaOpacity(ButtonStack, -ButtonStack.Opacity, Time * 0.5))
+                Ani.Add(AaOpacity(RectBack, -RectBack.Opacity, Time))
+                If IsScaleAnimationEnabled Then Ani.AddRange({
+                             AaColor(RectBack, Border.BackgroundProperty, If(IsMouseDown, "ColorBrush6", "ColorBrush7"), Time),
+                             AaScaleTransform(Me, 1 - CType(Me.RenderTransform, ScaleTransform).ScaleX, Time * 3,, New AniEaseOutFluent),
+                             AaScaleTransform(RectBack, 0.996 - CType(RectBack.RenderTransform, ScaleTransform).ScaleX, Time,, New AniEaseOutFluent),
+                             AaScaleTransform(RectBack, -0.246, 1,,, True)
+                         })
+            End If
+            AniStart(Ani, "ListItem Color " & Uuid)
+        Else
+            '无动画
+            If IsMouseOver AndAlso IsMouseOverAnimationEnabled Then
+                If ButtonStack IsNot Nothing Then ButtonStack.Opacity = 1
+                '由于鼠标已经移入，所以直接实例化 RectBack
+                RectBack.Background = Color9
+                RectBack.Opacity = 1
+                RectBack.RenderTransform = New ScaleTransform(1, 1)
+                Me.RenderTransform = New ScaleTransform(1, 1)
+            Else
+                If ButtonStack IsNot Nothing Then ButtonStack.Opacity = 0
+                Me.RenderTransform = New ScaleTransform(1, 1)
+                If _RectBack IsNot Nothing Then
+                    If IsScaleAnimationEnabled Then RectBack.Background = Color7
+                    RectBack.Opacity = 0
+                    RectBack.RenderTransform = New ScaleTransform(0.75, 0.75)
+                End If
+            End If
+            AniStop("ListItem Color " & Uuid)
+        End If
+    End Sub
+
+    Private Sub MyListItem_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        If Checked Then
+            SetResourceReference(ForegroundProperty, "ColorBrush3")
+        Else
+            SetResourceReference(ForegroundProperty, "ColorBrush1")
+        End If
+        If EventType = "打开帮助" Then
+            Try
+                Dim NewElem = New HelpEntry(GetEventAbsoluteUrls(EventData, EventType)(0)).SetToListItem(Me)
+            Catch ex As Exception
+                Log(ex, "设置帮助 MyListItem 失败", LogLevel.Msgbox)
+            End Try
+        End If
+    End Sub
+    Public Overrides Function ToString() As String
+        Return Title
+    End Function
+
+End Class

Plain Craft Launcher 2/Controls/MyLoading.xaml

@@ -0,0 +1,37 @@
+<Grid
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" x:Name="PanBack" mc:Ignorable="d" x:Class="MyLoading"
+             MinWidth="50" MinHeight="50" Background="{StaticResource ColorBrushSemiTransparent}">
+    <Grid.RowDefinitions>
+        <RowDefinition Height="1*"/>
+        <RowDefinition Height="Auto"/>
+        <RowDefinition Height="Auto"/>
+        <RowDefinition Height="1*"/>
+    </Grid.RowDefinitions>
+    <Grid UseLayoutRounding="False" SnapsToDevicePixels="False" Width="60" Height="47" HorizontalAlignment="Center" VerticalAlignment="Top" Grid.Row="1">
+        <Path Name="PathPickaxe" Stretch="Uniform" Height="35" Margin="10,6,0,0" StrokeThickness="2"
+              Data="M 963.6 858.2 410.816 305.504 C 508.116 213.304 609.204 196.8 711.104 128.6 837.11367 49.573762 879.34045 50.334062 751.5 49.5 611.3 52 471.8 96.2 353.3 182.4 309.8 155.7 252.1 161.2 214.5 198.9 176.9 236.6 171.3 294.2 198 337.7 111.8 456.3 67.6 595.8 65.1 735.9 63.315254 883.82034 65.077966 837.29308 144.2 695.488 212.4 593.588 228.888 492.4 321.088 395.2 L 873.9 948 c 0.60001 0.59999 1.6 0.6 2.2 0 l 87.5 -87.5 c 0.6 -0.7 0.6 -1.6 0 -2.3 z"
+              Stroke="{Binding Foreground, ElementName=PanBack}" HorizontalAlignment="Left" VerticalAlignment="Top">
+            <Path.RenderTransform>
+                <RotateTransform Angle="55" CenterX="30" CenterY="30" />
+            </Path.RenderTransform>
+        </Path>
+        <Path Opacity="0" Name="PathLeft" Stretch="Uniform" Fill="{Binding Foreground, ElementName=PanBack}" Width="3" Height="5" Data="M0,0L2,0L1,4" Margin="7,41,0,0" RenderTransformOrigin="0.5,0.5" HorizontalAlignment="Left" VerticalAlignment="Top" >
+            <Path.RenderTransform>
+                <RotateTransform Angle="-45"/>
+            </Path.RenderTransform>
+        </Path>
+        <Path Opacity="0" Name="PathRight" Stretch="Uniform" Fill="{Binding Foreground, ElementName=PanBack}" Width="3" Height="5" Data="M0,0L2,0L1,4" Margin="14,41,0,0" RenderTransformOrigin="0.5,0.5" HorizontalAlignment="Left" VerticalAlignment="Top" >
+            <Path.RenderTransform>
+                <RotateTransform Angle="45"/>
+            </Path.RenderTransform>
+        </Path>
+        <Path Opacity="0" Name="PathError" Stretch="Uniform" Fill="{Binding Foreground, ElementName=PanBack}" Width="17" Height="17" Data="F1 M2,0 L0,2 8,10 0,18 2,20 10,12 18,20 20,18 12,10 20,2 18,0 10,8 2,0Z" Margin="4,23,0,0" RenderTransformOrigin="0.5,0.5" HorizontalAlignment="Left" VerticalAlignment="Top" >
+            <Path.RenderTransform>
+                <ScaleTransform ScaleX="0.6" ScaleY="0.6" />
+            </Path.RenderTransform>
+        </Path>
+        <Rectangle Width="25" Height="2"  Fill="{Binding Foreground, ElementName=PanBack}" VerticalAlignment="Bottom" HorizontalAlignment="Left" />
+    </Grid>
+    <TextBlock x:Name="LabText" Text="Loading" HorizontalAlignment="Center" TextWrapping="Wrap" VerticalAlignment="Top" Foreground="{Binding Foreground, ElementName=PanBack}" FontSize="16" Margin="0,10,0,0" Grid.Row="2"/>
+</Grid>

Plain Craft Launcher 2/Controls/MyLoading.xaml.vb

@@ -0,0 +1,313 @@
+Imports PCL.MyLoading
+
+Public Class MyLoading
+
+    Public Event IsErrorChanged(sender As Object, isError As Boolean)
+    Public Event StateChanged(sender As Object, newState As MyLoadingState, oldState As MyLoadingState)
+    Public Event Click(sender As Object, e As MouseButtonEventArgs)
+
+    Public Property AutoRun As Boolean = True
+    Private Uuid As Integer = GetUuid()
+
+#Region "颜色"
+
+    Public Property Foreground As SolidColorBrush
+        Get
+            Return GetValue(ForegroundProperty)
+        End Get
+        Set(value As SolidColorBrush)
+            SetValue(ForegroundProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly ForegroundProperty As DependencyProperty = DependencyProperty.Register("Foreground", GetType(SolidColorBrush), GetType(MyLoading))
+    Public Sub New()
+        InitializeComponent()
+        SetResourceReference(ForegroundProperty, "ColorBrush3")
+    End Sub
+
+#End Region
+
+#Region "文本"
+
+    Private Property _ShowProgress As Boolean = False
+    Public Property ShowProgress As Boolean
+        Get
+            Return _ShowProgress
+        End Get
+        Set(value As Boolean)
+            If _ShowProgress = value Then Exit Property
+            _ShowProgress = value
+            RefreshText()
+        End Set
+    End Property
+
+    Private _Text As String = "加载中"
+    Public Property Text As String
+        Get
+            Return _Text
+        End Get
+        Set(ByVal value As String)
+            _Text = value
+            RefreshText()
+        End Set
+    End Property
+
+    Private _TextError As String = "加载失败"
+    Public Property TextError As String
+        Get
+            Return _TextError
+        End Get
+        Set(ByVal value As String)
+            _TextError = value
+            RefreshText()
+        End Set
+    End Property
+    ''' <summary>
+    ''' 是否在使用 Loader 时使用 Loader 的错误输出来替换默认的错误文本显示。
+    ''' </summary>
+    Public Property TextErrorInherit As Boolean = True
+
+    Private Sub RefreshText() Handles Me.IsErrorChanged, Me.Loaded
+        If InnerState = MyLoadingState.Error Then
+            If TextErrorInherit AndAlso State.IsLoader Then
+                Dim Ex As Exception = CType(State, Object).Error
+                If Ex Is Nothing Then
+                    LabText.Text = "未知错误"
+                Else
+                    Do While Ex.InnerException IsNot Nothing
+                        Ex = Ex.InnerException
+                    Loop
+                    LabText.Text = StrTrim(Ex.Message)
+                    If LabText.Text.Contains("远程主机强迫关闭了一个现有的连接") OrElse LabText.Text.Contains("操作已超时") OrElse LabText.Text.Contains("操作超时") OrElse LabText.Text.Contains("服务器超时") OrElse LabText.Text.Contains("连接超时") Then LabText.Text = "网络环境不佳，请重试或尝试使用 VPN"
+                End If
+            Else
+                LabText.Text = TextError
+            End If
+        Else
+            If ShowProgress AndAlso State.IsLoader Then
+                LabText.Text = Text & " - " & Math.Floor(CType(State, Object).Progress * 100) & "%"
+            Else
+                LabText.Text = Text
+            End If
+        End If
+    End Sub
+
+#End Region
+
+#Region "状态改变"
+
+    '状态枚举
+    Public Enum MyLoadingState
+        Unloaded = -1
+        Run = 0
+        [Stop] = 1
+        [Error] = 2
+    End Enum
+
+    '用于外部改变的公开状态
+    Private WithEvents _State As ILoadingTrigger
+    Public Property State As ILoadingTrigger
+        Get
+            InitState()
+            Return _State
+        End Get
+        Set(value As ILoadingTrigger)
+            _State = value
+            RefreshState()
+        End Set
+    End Property
+    Private Sub InitState() Handles Me.Loaded
+        If _State Is Nothing Then
+            _State = New MyLoadingStateSimulator
+            If AutoRun Then _State.LoadingState = MyLoadingState.Run
+        End If
+    End Sub
+    Private Sub RefreshState() Handles _State.LoadingStateChanged, Me.Loaded, Me.Unloaded
+        If _State.LoadingState = MyLoadingState.Run AndAlso Not IsLoaded Then InnerState = MyLoadingState.Stop
+        InnerState = _State.LoadingState
+        OuterState = _State.LoadingState
+        AniLoop()
+    End Sub
+
+    '用于引发外部事件的状态
+    Private Property _OuterState As MyLoadingState = MyLoadingState.Unloaded
+    Private Property OuterState As MyLoadingState
+        Get
+            Return _OuterState
+        End Get
+        Set(value As MyLoadingState)
+            If _OuterState = value Then Exit Property
+            Dim OldValue = _OuterState
+            _OuterState = value
+            '引发事件
+            RaiseEvent StateChanged(Me, value, OldValue)
+            If (OldValue = MyLoadingState.Error) <> (value = MyLoadingState.Error) Then RaiseEvent IsErrorChanged(Me, value = MyLoadingState.Error)
+        End Set
+    End Property
+
+
+    '用于引发内部动画事件的状态
+    Private Property _InnerState As MyLoadingState = MyLoadingState.Unloaded
+    Private Property InnerState As MyLoadingState
+        Get
+            Return _InnerState
+        End Get
+        Set(value As MyLoadingState)
+            If _InnerState = value Then Exit Property
+            Dim OldValue = _InnerState
+            _InnerState = value
+            '引发事件
+            AniLoop()
+            If (OldValue = MyLoadingState.Error) <> (value = MyLoadingState.Error) Then ErrorAnimation(Me, value = MyLoadingState.Error)
+        End Set
+    End Property
+
+#End Region
+
+#Region "动画"
+
+    ''' <summary>
+    ''' 是否需要动画。
+    ''' </summary>
+    Public Property HasAnimation As Boolean = True
+
+    ''' <summary>
+    ''' 主动画循环是否正在运行中。
+    ''' </summary>
+    Private IsLooping As Boolean = False
+    Private Sub AniLoop()
+        '这坨循环代码也是老屎坑了，救救.jpg
+        If Not HasAnimation OrElse IsLooping OrElse Not InnerState = MyLoadingState.Run OrElse AniSpeed > 10 OrElse Not IsLoaded Then Exit Sub
+        IsLooping = True
+        ErrorAnimationWaiting = True
+        If ShowProgress Then
+            RefreshText()
+            AniStart({
+                    AaRotateTransform(PathPickaxe, -20 - CType(PathPickaxe.RenderTransform, RotateTransform).Angle, 350, 250, New AniEaseInBack(AniEasePower.Weak)),
+                    AaCode(AddressOf RefreshText, 100), '这是为了省下一个 Timer 线程……
+                    AaCode(AddressOf RefreshText, 200),
+                    AaCode(AddressOf RefreshText, 300),
+                    AaCode(AddressOf RefreshText, 400),
+                    AaCode(AddressOf RefreshText, 500),
+                    AaRotateTransform(PathPickaxe, 50, 900,, New AniEaseOutFluent, True),
+                    AaRotateTransform(PathPickaxe, 25, 900,, New AniEaseOutElastic(AniEasePower.Weak)),
+                    AaCode(Sub()
+                               PathLeft.Opacity = 1
+                               PathLeft.Margin = New Thickness(7, 41, 0, 0)
+                               PathRight.Opacity = 1
+                               PathRight.Margin = New Thickness(14, 41, 0, 0)
+                               ErrorAnimationWaiting = False
+                               RefreshText()
+                           End Sub),
+                    AaCode(AddressOf RefreshText, 100),
+                    AaCode(AddressOf RefreshText, 200),
+                    AaCode(AddressOf RefreshText, 300),
+                    AaCode(AddressOf RefreshText, 400),
+                    AaCode(AddressOf RefreshText, 500),
+                    AaCode(AddressOf RefreshText, 600),
+                    AaCode(AddressOf RefreshText, 700),
+                    AaCode(AddressOf RefreshText, 800),
+                    AaOpacity(PathLeft, -1, 100, 70),
+                    AaX(PathLeft, -5, 180, 20, New AniEaseOutFluent),
+                    AaY(PathLeft, -6, 180, 20, New AniEaseOutFluent),
+                    AaOpacity(PathRight, -1, 100, 70),
+                    AaX(PathRight, 5, 180, 20, New AniEaseOutFluent),
+                    AaY(PathRight, -6, 180, 20, New AniEaseOutFluent),
+                    AaCode(Sub()
+                               IsLooping = False
+                               AniLoop()
+                           End Sub,, True)
+            }, "MyLoader Loop " & Uuid & "/" & GetUuid())
+        Else
+            AniStart({
+                    AaRotateTransform(PathPickaxe, -20 - CType(PathPickaxe.RenderTransform, RotateTransform).Angle, 350, 250, New AniEaseInBack(AniEasePower.Weak)),
+                    AaRotateTransform(PathPickaxe, 50, 900,, New AniEaseOutFluent, True),
+                    AaRotateTransform(PathPickaxe, 25, 900,, New AniEaseOutElastic(AniEasePower.Weak)),
+                    AaCode(Sub()
+                               PathLeft.Opacity = 1
+                               PathLeft.Margin = New Thickness(7, 41, 0, 0)
+                               PathRight.Opacity = 1
+                               PathRight.Margin = New Thickness(14, 41, 0, 0)
+                               ErrorAnimationWaiting = False
+                           End Sub),
+                    AaOpacity(PathLeft, -1, 100, 50),
+                    AaX(PathLeft, -5, 180,, New AniEaseOutFluent),
+                    AaY(PathLeft, -6, 180,, New AniEaseOutFluent),
+                    AaOpacity(PathRight, -1, 100, 50),
+                    AaX(PathRight, 5, 180,, New AniEaseOutFluent),
+                    AaY(PathRight, -6, 180,, New AniEaseOutFluent),
+                    AaCode(Sub()
+                               IsLooping = False
+                               AniLoop()
+                           End Sub,, True)
+            }, "MyLoader Loop " & Uuid & "/" & GetUuid())
+        End If
+    End Sub
+
+    ''' <summary>
+    ''' 镐子是否还没挥下去，要求错误动画等待。
+    ''' </summary>
+    Private ErrorAnimationWaiting As Boolean = False
+    Private Sub ErrorAnimation(sender As Object, isError As Boolean)
+        If isError Then
+            '非错误变为错误
+            Dim Wait As Integer = If(ErrorAnimationWaiting, 400, 0)
+            AniStart({
+                AaColor(PanBack, ForegroundProperty, "ColorBrushRedLight", 300),
+                AaOpacity(PathError, 1 - PathError.Opacity, 100, 300 + Wait),
+                AaScaleTransform(PathError, 1 - CType(PathError.RenderTransform, ScaleTransform).ScaleX, 400, 300 + Wait, New AniEaseOutBack)
+            }, "MyLoader Error " & Uuid)
+        Else
+            '错误变为非错误
+            AniStart({
+                AaOpacity(PathError, -PathError.Opacity, 100),
+                AaScaleTransform(PathError, 0.5 - CType(PathError.RenderTransform, ScaleTransform).ScaleX, 200),
+                AaColor(PanBack, ForegroundProperty, "ColorBrush3", 300)
+            }, "MyLoader Error " & Uuid)
+        End If
+    End Sub
+
+#End Region
+
+#Region "点击事件"
+
+    Private Sub Button_MouseUp(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonUp
+        RaiseEvent Click(sender, e)
+    End Sub
+    Private IsMouseDown As Boolean = False
+    Private Sub Button_MouseDown(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonDown
+        '鼠标点击判定（务必放在点击事件之后，以使得 Button_MouseUp 先于 Button_MouseLeave 执行）
+        IsMouseDown = True
+    End Sub
+    Private Sub Button_MouseLeave(sender As Object, e As Object) Handles Me.MouseLeave, Me.MouseLeftButtonUp
+        IsMouseDown = False
+    End Sub
+
+#End Region
+
+End Class
+
+Public Interface ILoadingTrigger
+    ReadOnly Property IsLoader As Boolean
+    Property LoadingState As MyLoadingState
+    Event LoadingStateChanged(NewState As MyLoadingState, OldState As MyLoadingState)
+End Interface
+
+Public Class MyLoadingStateSimulator
+    Implements ILoadingTrigger
+    Private Property _LoadingState As MyLoadingState = MyLoadingState.Unloaded
+    Public Property LoadingState As MyLoadingState Implements ILoadingTrigger.LoadingState
+        Get
+            Return _LoadingState
+        End Get
+        Set(value As MyLoadingState)
+            If _LoadingState = value Then Exit Property
+            Dim OldState = _LoadingState
+            _LoadingState = value
+            RaiseEvent LoadingStateChanged(value, OldState)
+        End Set
+    End Property
+    Public ReadOnly Property IsLoader As Boolean = False Implements ILoadingTrigger.IsLoader
+
+    Public Event LoadingStateChanged(NewState As MyLoadingState, OldState As MyLoadingState) Implements ILoadingTrigger.LoadingStateChanged
+End Class

Plain Craft Launcher 2/Controls/MyMenuItem.vb

@@ -0,0 +1,55 @@
+Public Class MyMenuItem
+    Inherits MenuItem
+
+    Private Sub MyMenuItem_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        If Icon IsNot Nothing Then
+            Dim IconControl As Shapes.Path = GetTemplateChild("Icon")
+            If IconControl IsNot Nothing Then IconControl.Data = (New GeometryConverter).ConvertFromString(Icon)
+        End If
+    End Sub
+
+    '基础
+
+    Public Uuid As Integer = GetUuid()
+
+    '指向动画
+
+    Private Const AnimationTimeIn As Integer = 100
+    Private Const AnimationTimeOut As Integer = 200
+    Private ColorName As String
+    Private Sub RefreshColor() Handles Me.MouseEnter, Me.MouseLeave, Me.IsEnabledChanged
+        '判断当前颜色
+        Dim BackName As String, ForeName As String
+        Dim Time As Integer
+        If Not IsEnabled Then
+            BackName = "ColorBrushTransparent"
+            ForeName = "ColorBrushGray5"
+            Time = AnimationTimeOut
+        ElseIf IsMouseOver Then
+            BackName = "ColorBrush6"
+            ForeName = "ColorBrush2"
+            Time = AnimationTimeIn
+        Else
+            BackName = "ColorBrushTransparent"
+            ForeName = "ColorBrush1"
+            Time = AnimationTimeOut
+        End If
+        '重复性验证
+        If ColorName = BackName Then Exit Sub
+        ColorName = BackName
+        '触发颜色动画
+        If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+            '有动画
+            AniStart({
+                     AaColor(Me, BackgroundProperty, BackName, Time),
+                     AaColor(Me, ForegroundProperty, ForeName, Time)
+                 }, "MyMenuItem Color " & Uuid)
+        Else
+            '无动画
+            AniStop("MyMenuItem Color " & Uuid)
+            SetResourceReference(BackgroundProperty, BackName)
+            SetResourceReference(ForegroundProperty, ForeName)
+        End If
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyMsg/MyMsgInput.xaml

@@ -0,0 +1,23 @@
+<Grid x:Class="MyMsgInput"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:my="clr-namespace:PCL"
+             UseLayoutRounding="True" SnapsToDevicePixels="True" MinWidth="500" HorizontalAlignment="Center" VerticalAlignment="Center">
+    <Border Name="PanBorder" CornerRadius="5" Width="{Binding ActualWidth, ElementName=PanMain, Mode=OneWay}" Height="{Binding ActualHeight, ElementName=PanMain, Mode=OneWay}" Background="#00FBFBFB">
+        <Border.Effect>
+            <DropShadowEffect Color="{DynamicResource ColorObject1}" BlurRadius="15" ShadowDepth="0" Opacity="0" x:Name="EffectShadow" />
+        </Border.Effect>
+    </Border>
+    <StackPanel Name="PanMain" VerticalAlignment="Top">
+        <TextBlock FontSize="23" TextTrimming="None" Foreground="{DynamicResource ColorBrush2}" HorizontalAlignment="Left" Name="LabTitle" Margin="27,19,28,0" Text="测试标题文本" VerticalAlignment="Top" SnapsToDevicePixels="False" UseLayoutRounding="False" />
+        <Rectangle Height="2" Fill="{DynamicResource ColorBrush2}" Margin="20,9,20,15" Name="ShapeLine" Opacity="0" />
+        <Border Name="PanCaption" Padding="28,0,28,15">
+            <my:MyTextBox x:Name="TextCaption" UseLayoutRounding="False" MaxLength="1000" Width="450" Margin="1" />
+        </Border>
+        <StackPanel Name="PanBtn" VerticalAlignment="Top" HorizontalAlignment="Right" Margin="150,0,22,20" Orientation="Horizontal">
+            <my:MyButton ColorType="Normal" Text="测试按钮1" x:Name="Btn1" Margin="15,0,0,0" TextPadding="7" SnapsToDevicePixels="False" Padding="5,0" Opacity="0" UseLayoutRounding="False" />
+            <my:MyButton ColorType="Normal" Text="测试按钮2" x:Name="Btn2" Margin="15,0,0,0" TextPadding="7" SnapsToDevicePixels="False" Padding="5,0" Opacity="0" UseLayoutRounding="False" />
+            <my:MyButton ColorType="Normal" Text="测试按钮3" x:Name="Btn3" Margin="15,0,0,0" TextPadding="7" SnapsToDevicePixels="False" Padding="5,0" Opacity="0" UseLayoutRounding="False" />
+        </StackPanel>
+    </StackPanel>
+</Grid>

Plain Craft Launcher 2/Controls/MyMsg/MyMsgInput.xaml.vb

@@ -0,0 +1,134 @@
+Public Class MyMsgInput
+
+    Private ReadOnly MyConverter As MyMsgBoxConverter
+    Private ReadOnly Uuid As Integer = GetUuid()
+
+    Public Sub New(Converter As MyMsgBoxConverter)
+        Try
+
+            InitializeComponent()
+            Btn1.Name = Btn1.Name & GetUuid()
+            Btn2.Name = Btn2.Name & GetUuid()
+            Btn3.Name = Btn3.Name & GetUuid()
+            MyConverter = Converter
+            LabTitle.Text = Converter.Title
+            TextCaption.Text = Converter.Content
+            TextCaption.HintText = Converter.HintText
+            TextCaption.ValidateRules = Converter.ValidateRules
+            Btn1.Text = Converter.Button1
+            If Converter.IsWarn Then
+                Btn1.ColorType = MyButton.ColorState.Red
+                LabTitle.SetResourceReference(TextBlock.ForegroundProperty, "ColorBrushRedLight")
+                ShapeLine.SetResourceReference(Rectangle.FillProperty, "ColorBrushRedLight")
+            End If
+            Btn2.Text = Converter.Button2
+            Btn3.Text = Converter.Button3
+            Btn2.Visibility = If(Converter.Button2 = "", Visibility.Collapsed, Visibility.Visible)
+            Btn3.Visibility = If(Converter.Button3 = "", Visibility.Collapsed, Visibility.Visible)
+            'If Converter.Caption > 0 Then
+            '  TextCaption.Focus()
+            '  TextCaption.Select(Converter.Caption.Length - 1, 0)
+            'End If
+
+        Catch ex As Exception
+            Log(ex, "输入弹窗初始化失败", LogLevel.Hint)
+        End Try
+    End Sub
+
+    Private Sub Load(sender As Object, e As EventArgs) Handles MyBase.Loaded
+        Try
+
+            'UI 初始化
+            If Btn2.IsVisible AndAlso Not Btn1.ColorType = MyButton.ColorState.Red Then Btn1.ColorType = MyButton.ColorState.Highlight
+            ShapeLine.StrokeThickness = GetWPFSize(1)
+            Measure(New Size(FrmMain.Width, FrmMain.Height))
+            Arrange(New Rect(0, 0, FrmMain.Width, FrmMain.Height))
+            If FrmMain.Width - ActualWidth < 20 Then Width = FrmMain.Width - GetWPFSize(2)
+            TextCaption.Focus()
+            '动画
+            AniStart({
+                AaColor(FrmMain.PanMsg, Grid.BackgroundProperty, New MyColor(60, 0, 0, 0), 250, , New AniEaseInFluent),
+                AaColor(PanBorder, Border.BackgroundProperty, New MyColor(255, 0, 0, 0), 150, , New AniEaseInFluent),
+                AaOpacity(EffectShadow, 0.75, 400, 50),
+                AaWidth(ShapeLine, ShapeLine.ActualWidth, 250, 100, New AniEaseOutFluent),
+                AaOpacity(ShapeLine, 1, 200, 100),
+                AaWidth(LabTitle, LabTitle.ActualWidth, 200, 100, New AniEaseOutFluent),
+                AaOpacity(LabTitle, 1, 150, 150),
+                AaOpacity(PanCaption, 1, 150, 150),
+                AaOpacity(Btn1, 1, 150, 100),
+                AaOpacity(Btn2, 1, 150, 150),
+                AaOpacity(Btn3, 1, 150, 200),
+                AaCode(Sub()
+                           ShapeLine.MinWidth = ShapeLine.ActualWidth
+                           ShapeLine.HorizontalAlignment = HorizontalAlignment.Stretch
+                           ShapeLine.Width = Double.NaN
+                           LabTitle.Width = Double.NaN
+                           LabTitle.TextTrimming = TextTrimming.CharacterEllipsis
+                       End Sub, 350)
+            }, "MyMsgBox Start " & Uuid)
+            '动画初始化
+            ShapeLine.Width = 0
+            ShapeLine.HorizontalAlignment = HorizontalAlignment.Center
+            LabTitle.Width = 0
+            LabTitle.Opacity = 0
+            LabTitle.TextWrapping = TextWrapping.NoWrap
+            PanCaption.Opacity = 0
+            '记录日志
+            Log("[Control] 输入弹窗：" & LabTitle.Text)
+
+        Catch ex As Exception
+            Log(ex, "输入弹窗加载失败", LogLevel.Hint)
+        End Try
+    End Sub
+    Private Sub Close()
+        '结束线程阻塞
+        MyConverter.WaitFrame.Continue = False
+        Interop.ComponentDispatcher.PopModal()
+        '弹窗动画
+        LabTitle.TextTrimming = TextTrimming.None
+        LabTitle.TextWrapping = TextWrapping.NoWrap
+        AniStart({
+            AaColor(FrmMain.PanMsg, Grid.BackgroundProperty, New MyColor(-60, 0, 0, 0), 350, , New AniEaseInFluent),
+            AaColor(PanBorder, Border.BackgroundProperty, New MyColor(-255, 0, 0, 0), 300, 100, New AniEaseInFluent),
+            AaOpacity(EffectShadow, -0.75, 150),
+            AaWidth(ShapeLine, -ShapeLine.ActualWidth, 250, , New AniEaseInFluent),
+            AaOpacity(ShapeLine, -1, 150, 100),
+            AaWidth(LabTitle, -LabTitle.ActualWidth, 250),
+            AaOpacity(LabTitle, -1, 200),
+            AaOpacity(PanCaption, -1, 200),
+            AaOpacity(Btn1, -1, 150),
+            AaOpacity(Btn2, -1, 150, 50),
+            AaOpacity(Btn3, -1, 150, 100),
+            AaCode(Sub() CType(Parent, Grid).Children.Remove(Me), , True)
+            }, "MyMsgBox Close " & Uuid)
+    End Sub
+
+    Public Sub Btn1_Click() Handles Btn1.Click
+        If MyConverter.IsExited OrElse Not TextCaption.ValidateResult = "" Then Exit Sub
+        MyConverter.IsExited = True
+        MyConverter.Result = TextCaption.Text
+        Close()
+    End Sub
+    Private Sub Btn2_Click() Handles Btn2.Click
+        If MyConverter.IsExited Then Exit Sub
+        MyConverter.IsExited = True
+        MyConverter.Result = Nothing
+        Close()
+    End Sub
+    Private Sub Btn3_Click() Handles Btn3.Click
+        If MyConverter.IsExited Then Exit Sub
+        MyConverter.IsExited = True
+        MyConverter.Result = Nothing
+        Close()
+    End Sub
+
+    Private Sub TextCaption_ValidateChanged(sender As Object, e As EventArgs) Handles TextCaption.ValidateChanged
+        Btn1.IsEnabled = TextCaption.ValidateResult = ""
+    End Sub
+
+    Private Sub Drag(sender As Object, e As MouseButtonEventArgs) Handles PanBorder.MouseLeftButtonDown, LabTitle.MouseLeftButtonDown
+        On Error Resume Next
+        If e.GetPosition(ShapeLine).Y <= 2 Then FrmMain.DragMove()
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyMsg/MyMsgSelect.xaml

@@ -0,0 +1,27 @@
+<Grid x:Name="PanBack" x:Class="MyMsgSelect"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:my="clr-namespace:PCL"
+             UseLayoutRounding="True" SnapsToDevicePixels="True" MinWidth="450" HorizontalAlignment="Center" VerticalAlignment="Center" Margin="20">
+    <Grid.RowDefinitions>
+        <RowDefinition Height="Auto" />
+        <RowDefinition Height="Auto" />
+        <RowDefinition Height="1*" />
+        <RowDefinition Height="Auto" />
+    </Grid.RowDefinitions>
+    <Border Name="PanBorder" Grid.RowSpan="99" Width="{Binding ActualWidth, ElementName=PanBack, Mode=OneWay}" Height="{Binding ActualHeight, ElementName=PanBack, Mode=OneWay}" Background="#00FBFBFB" CornerRadius="5">
+        <Border.Effect>
+            <DropShadowEffect Color="{DynamicResource ColorObject1}" BlurRadius="15" ShadowDepth="0" Opacity="0" x:Name="EffectShadow" />
+        </Border.Effect>
+    </Border>
+    <TextBlock FontSize="23" TextTrimming="None" Foreground="{DynamicResource ColorBrush2}" HorizontalAlignment="Left" Name="LabTitle" Margin="28,19,28,0" Text="测试标题文本" VerticalAlignment="Top" SnapsToDevicePixels="False" UseLayoutRounding="False" />
+    <Rectangle Height="2" Grid.Row="1" Fill="{DynamicResource ColorBrush2}" Margin="20,9,20,13" Name="ShapeLine" Opacity="0" />
+    <my:MyScrollViewer x:Name="PanCaption" Grid.Row="2" Margin="19,0,19,20" Padding="9,0" VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Disabled" SnapsToDevicePixels="True" UseLayoutRounding="True" DeltaMuity="0.5">
+        <StackPanel x:Name="PanSelection" Orientation="Vertical" />
+    </my:MyScrollViewer>
+    <StackPanel Name="PanBtn" Grid.Row="3" VerticalAlignment="Top" HorizontalAlignment="Right" Margin="150,0,22,20" Orientation="Horizontal">
+        <my:MyButton ColorType="Normal" Text="测试按钮1" x:Name="Btn1" Margin="15,0,0,0" TextPadding="7"  SnapsToDevicePixels="False" Padding="5,0" Opacity="0" UseLayoutRounding="False" IsEnabled="False" />
+        <my:MyButton ColorType="Normal" Text="测试按钮2" x:Name="Btn2" Margin="15,0,0,0" TextPadding="7" Visibility="Visible" SnapsToDevicePixels="False" Padding="5,0" Opacity="0" UseLayoutRounding="False" />
+        <my:MyButton ColorType="Normal" Text="测试按钮3" x:Name="Btn3" TextPadding="7" Margin="15,0,0,0" Visibility="Visible" SnapsToDevicePixels="False" Padding="5,0" Opacity="0" UseLayoutRounding="False" />
+    </StackPanel>
+</Grid>

Plain Craft Launcher 2/Controls/MyMsg/MyMsgSelect.xaml.vb

@@ -0,0 +1,138 @@
+Public Class MyMsgSelect
+
+    Private ReadOnly MyConverter As MyMsgBoxConverter
+    Private ReadOnly Uuid As Integer = GetUuid()
+
+    Public Sub New(Converter As MyMsgBoxConverter)
+        Try
+
+            InitializeComponent()
+            Btn1.Name = Btn1.Name & GetUuid()
+            Btn2.Name = Btn2.Name & GetUuid()
+            Btn3.Name = Btn3.Name & GetUuid()
+            MyConverter = Converter
+            LabTitle.Text = Converter.Title
+            Btn1.Text = Converter.Button1
+            If Converter.IsWarn Then
+                Btn1.ColorType = MyButton.ColorState.Red
+                LabTitle.SetResourceReference(TextBlock.ForegroundProperty, "ColorBrushRedLight")
+                ShapeLine.SetResourceReference(Rectangle.FillProperty, "ColorBrushRedLight")
+            End If
+            Btn2.Text = Converter.Button2
+            Btn3.Text = Converter.Button3
+            Btn2.Visibility = If(Converter.Button2 = "", Visibility.Collapsed, Visibility.Visible)
+            Btn3.Visibility = If(Converter.Button3 = "", Visibility.Collapsed, Visibility.Visible)
+            '添加选择控件
+            For Each Selection As IMyRadio In Converter.Content
+                PanSelection.Children.Add(Selection)
+                AddHandler Selection.Check, AddressOf OnChecked
+                If TypeOf Selection Is MyListItem Then
+                    CType(Selection, MyListItem).Type = MyListItem.CheckType.RadioBox
+                    CType(Selection, MyListItem).MinHeight = 24
+                Else
+                    CType(Selection, MyRadioBox).MinHeight = 26
+                End If
+            Next
+
+        Catch ex As Exception
+            Log(ex, "选择弹窗初始化失败", LogLevel.Hint)
+        End Try
+    End Sub
+
+    Private Sub Load(sender As Object, e As EventArgs) Handles MyBase.Loaded
+        Try
+
+            'UI 初始化
+            If Btn2.IsVisible AndAlso Not Btn1.ColorType = MyButton.ColorState.Red Then Btn1.ColorType = MyButton.ColorState.Highlight
+            ShapeLine.StrokeThickness = GetWPFSize(1)
+            Measure(New Size(FrmMain.Width, FrmMain.Height))
+            Arrange(New Rect(0, 0, FrmMain.Width, FrmMain.Height))
+            If FrmMain.Width - ActualWidth < 20 Then Width = FrmMain.Width - GetWPFSize(2)
+            '动画
+            AniStart({
+                AaColor(FrmMain.PanMsg, Grid.BackgroundProperty, New MyColor(60, 0, 0, 0), 250, , New AniEaseInFluent),
+                AaColor(PanBorder, Border.BackgroundProperty, New MyColor(255, 0, 0, 0), 150, , New AniEaseInFluent),
+                AaOpacity(EffectShadow, 0.75, 400, 50),
+                AaWidth(ShapeLine, ShapeLine.ActualWidth, 250, 100, New AniEaseOutFluent),
+                AaOpacity(ShapeLine, 1, 200, 100),
+                AaWidth(LabTitle, LabTitle.ActualWidth, 200, 100, New AniEaseOutFluent),
+                AaOpacity(LabTitle, 1, 150, 150),
+                AaOpacity(PanCaption, 1, 150, 150),
+                AaOpacity(Btn1, 1, 150, 100),
+                AaOpacity(Btn2, 1, 150, 150),
+                AaOpacity(Btn3, 1, 150, 200),
+                AaCode(Sub()
+                           ShapeLine.MinWidth = ShapeLine.ActualWidth
+                           ShapeLine.HorizontalAlignment = HorizontalAlignment.Stretch
+                           ShapeLine.Width = Double.NaN
+                           LabTitle.Width = Double.NaN
+                           LabTitle.TextTrimming = TextTrimming.CharacterEllipsis
+                       End Sub, 350)
+            }, "MyMsgBox Start " & Uuid)
+            '动画初始化
+            ShapeLine.Width = 0
+            ShapeLine.HorizontalAlignment = HorizontalAlignment.Center
+            LabTitle.Width = 0
+            LabTitle.Opacity = 0
+            LabTitle.TextWrapping = TextWrapping.NoWrap
+            PanCaption.Opacity = 0
+            '记录日志
+            Log("[Control] 选择弹窗：" & LabTitle.Text)
+
+        Catch ex As Exception
+            Log(ex, "选择弹窗加载失败", LogLevel.Hint)
+        End Try
+    End Sub
+    Private Sub Close()
+        '结束线程阻塞
+        MyConverter.WaitFrame.Continue = False
+        Interop.ComponentDispatcher.PopModal()
+        '弹窗动画
+        LabTitle.TextTrimming = TextTrimming.None
+        LabTitle.TextWrapping = TextWrapping.NoWrap
+        AniStart({
+            AaColor(FrmMain.PanMsg, Grid.BackgroundProperty, New MyColor(-60, 0, 0, 0), 350, , New AniEaseInFluent),
+            AaColor(PanBorder, Border.BackgroundProperty, New MyColor(-255, 0, 0, 0), 300, 100, New AniEaseInFluent),
+            AaOpacity(EffectShadow, -0.75, 150),
+            AaWidth(ShapeLine, -ShapeLine.ActualWidth, 250, , New AniEaseInFluent),
+            AaOpacity(ShapeLine, -1, 150, 100),
+            AaWidth(LabTitle, -LabTitle.ActualWidth, 250),
+            AaOpacity(LabTitle, -1, 200),
+            AaOpacity(PanCaption, -1, 200),
+            AaOpacity(Btn1, -1, 150),
+            AaOpacity(Btn2, -1, 150, 50),
+            AaOpacity(Btn3, -1, 150, 100),
+            AaCode(Sub() CType(Parent, Grid).Children.Remove(Me), , True)
+            }, "MyMsgBox Close " & Uuid)
+    End Sub
+
+    Public Sub Btn1_Click() Handles Btn1.Click
+        If MyConverter.IsExited OrElse SelectedIndex = -1 Then Exit Sub
+        MyConverter.IsExited = True
+        MyConverter.Result = SelectedIndex
+        Close()
+    End Sub
+    Private Sub Btn2_Click() Handles Btn2.Click
+        If MyConverter.IsExited Then Exit Sub
+        MyConverter.IsExited = True
+        MyConverter.Result = Nothing
+        Close()
+    End Sub
+    Private Sub Btn3_Click() Handles Btn3.Click
+        If MyConverter.IsExited Then Exit Sub
+        MyConverter.IsExited = True
+        MyConverter.Result = Nothing
+        Close()
+    End Sub
+
+    Private SelectedIndex As Integer = -1
+    Private Sub OnChecked(sender As IMyRadio, e As EventArgs)
+        Btn1.IsEnabled = True
+        SelectedIndex = PanSelection.Children.IndexOf(sender)
+    End Sub
+    Private Sub Drag(sender As Object, e As MouseButtonEventArgs) Handles PanBorder.MouseLeftButtonDown, LabTitle.MouseLeftButtonDown
+        On Error Resume Next
+        If e.GetPosition(ShapeLine).Y <= 2 Then FrmMain.DragMove()
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyMsg/MyMsgText.xaml

@@ -0,0 +1,27 @@
+<Grid x:Name="PanBack" x:Class="MyMsgText"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:my="clr-namespace:PCL"
+             UseLayoutRounding="True" SnapsToDevicePixels="True" MinWidth="450" HorizontalAlignment="Center" VerticalAlignment="Center" Margin="20">
+    <Grid.RowDefinitions>
+        <RowDefinition Height="Auto" />
+        <RowDefinition Height="Auto" />
+        <RowDefinition Height="1*" />
+        <RowDefinition Height="Auto" />
+    </Grid.RowDefinitions>
+    <Border Name="PanBorder" Grid.RowSpan="99" Background="#00FBFBFB" CornerRadius="5">
+        <Border.Effect>
+            <DropShadowEffect Color="{DynamicResource ColorObject1}" BlurRadius="15" ShadowDepth="0" Opacity="0" x:Name="EffectShadow" />
+        </Border.Effect>
+    </Border>
+    <TextBlock FontSize="23" TextTrimming="None" Foreground="{DynamicResource ColorBrush2}" HorizontalAlignment="Left" Name="LabTitle" Margin="28,19,28,0" Text="测试标题文本" VerticalAlignment="Top" SnapsToDevicePixels="False" UseLayoutRounding="False" />
+    <Rectangle Height="2" Grid.Row="1" Fill="{DynamicResource ColorBrush2}" Margin="20,9,20,13" Name="ShapeLine" Opacity="0" />
+    <my:MyScrollViewer VerticalAlignment="Top" x:Name="PanCaption" Grid.Row="2" Margin="19,0,19,20" Padding="9,0" VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Disabled" SnapsToDevicePixels="True" UseLayoutRounding="True" DeltaMuity="0.5">
+        <TextBlock VerticalAlignment="Top" TextTrimming="None" TextWrapping="Wrap" Name="LabCaption" FontSize="15" Foreground="#FF5C5C5C" FontWeight="Normal" Padding="1" />
+    </my:MyScrollViewer>
+    <StackPanel Name="PanBtn" Grid.Row="3" VerticalAlignment="Top" HorizontalAlignment="Right" Margin="150,0,22,20" Orientation="Horizontal">
+        <my:MyButton ColorType="Normal" Text="测试按钮1" x:Name="Btn1" Margin="15,0,0,0" TextPadding="7"  SnapsToDevicePixels="False" Padding="5,0" Opacity="0" UseLayoutRounding="False" />
+        <my:MyButton ColorType="Normal" Text="测试按钮2" x:Name="Btn2" Margin="15,0,0,0" TextPadding="7" Visibility="Visible" SnapsToDevicePixels="False" Padding="5,0" Opacity="0" UseLayoutRounding="False" />
+        <my:MyButton ColorType="Normal" Text="测试按钮3" x:Name="Btn3" TextPadding="7" Margin="15,0,0,0" Visibility="Visible" SnapsToDevicePixels="False" Padding="5,0" Opacity="0" UseLayoutRounding="False" />
+    </StackPanel>
+</Grid>

Plain Craft Launcher 2/Controls/MyMsg/MyMsgText.xaml.vb

@@ -0,0 +1,125 @@
+Public Class MyMsgText
+
+    Private ReadOnly MyConverter As MyMsgBoxConverter
+    Private ReadOnly Uuid As Integer = GetUuid()
+
+    Public Sub New(Converter As MyMsgBoxConverter)
+        Try
+
+            InitializeComponent()
+            Btn1.Name = Btn1.Name & GetUuid()
+            Btn2.Name = Btn2.Name & GetUuid()
+            Btn3.Name = Btn3.Name & GetUuid()
+            MyConverter = Converter
+            LabTitle.Text = Converter.Title
+            LabCaption.Text = Converter.Content
+            Btn1.Text = Converter.Button1
+            If Converter.IsWarn Then
+                Btn1.ColorType = MyButton.ColorState.Red
+                LabTitle.SetResourceReference(TextBlock.ForegroundProperty, "ColorBrushRedLight")
+                ShapeLine.SetResourceReference(Rectangle.FillProperty, "ColorBrushRedLight")
+            End If
+            Btn2.Text = Converter.Button2
+            Btn3.Text = Converter.Button3
+            Btn2.Visibility = If(Converter.Button2 = "", Visibility.Collapsed, Visibility.Visible)
+            Btn3.Visibility = If(Converter.Button3 = "", Visibility.Collapsed, Visibility.Visible)
+            ShapeLine.StrokeThickness = GetWPFSize(1)
+
+        Catch ex As Exception
+            Log(ex, "普通弹窗初始化失败", LogLevel.Hint)
+        End Try
+    End Sub
+
+    Private Sub Load(sender As Object, e As EventArgs) Handles MyBase.Loaded
+        Try
+
+            'UI 初始化
+            If Btn2.IsVisible AndAlso Not Btn1.ColorType = MyButton.ColorState.Red Then Btn1.ColorType = MyButton.ColorState.Highlight
+            Measure(New Size(FrmMain.Width - 20, FrmMain.Height - 20))
+            Arrange(New Rect(0, 0, FrmMain.Width - 20, FrmMain.Height - 20))
+            Btn1.Focus()
+            '动画
+            AniStart({
+                AaColor(FrmMain.PanMsg, BackgroundProperty, New MyColor(60, 0, 0, 0), 250, , New AniEaseInFluent),
+                AaColor(PanBorder, Border.BackgroundProperty, New MyColor(255, 0, 0, 0), 150, , New AniEaseInFluent),
+                AaOpacity(EffectShadow, 0.75, 400, 50),
+                AaWidth(ShapeLine, ShapeLine.ActualWidth, 250, 100, New AniEaseOutFluent),
+                AaOpacity(ShapeLine, 1, 200, 100),
+                AaWidth(LabTitle, LabTitle.ActualWidth, 200, 150, New AniEaseOutFluent),
+                AaOpacity(LabTitle, 1, 150, 150),
+                AaOpacity(PanCaption, 1, 150, 150),
+                AaOpacity(Btn1, 1, 150, 100),
+                AaOpacity(Btn2, 1, 150, 150),
+                AaOpacity(Btn3, 1, 150, 200),
+                AaCode(Sub()
+                           ShapeLine.MinWidth = ShapeLine.ActualWidth
+                           ShapeLine.HorizontalAlignment = HorizontalAlignment.Stretch
+                           ShapeLine.Width = Double.NaN
+                           LabTitle.Width = Double.NaN
+                           LabTitle.TextTrimming = TextTrimming.CharacterEllipsis
+                       End Sub, 350)
+            }, "MyMsgBox Start " & Uuid)
+            '动画初始化
+            ShapeLine.Width = 0
+            ShapeLine.HorizontalAlignment = HorizontalAlignment.Center
+            LabTitle.Width = 0
+            LabTitle.Opacity = 0
+            LabTitle.TextWrapping = TextWrapping.NoWrap
+            PanCaption.Opacity = 0
+            '记录日志
+            Log("[Control] 普通弹窗：" & LabTitle.Text & vbCrLf & LabCaption.Text)
+
+        Catch ex As Exception
+            Log(ex, "普通弹窗加载失败", LogLevel.Hint)
+        End Try
+    End Sub
+    Private Sub Close()
+        '结束线程阻塞
+        If MyConverter.ForceWait OrElse Not MyConverter.Button2 = "" Then MyConverter.WaitFrame.Continue = False
+        Interop.ComponentDispatcher.PopModal()
+        '弹窗动画
+        LabTitle.TextTrimming = TextTrimming.None
+        LabTitle.TextWrapping = TextWrapping.NoWrap
+        AniStart({
+            AaColor(FrmMain.PanMsg, Grid.BackgroundProperty, New MyColor(-60, 0, 0, 0), 350, , New AniEaseInFluent),
+            AaColor(PanBorder, Border.BackgroundProperty, New MyColor(-255, 0, 0, 0), 300, 100, New AniEaseInFluent),
+            AaOpacity(EffectShadow, -0.75, 150),
+            AaWidth(ShapeLine, -ShapeLine.ActualWidth, 250, , New AniEaseInFluent(AniEasePower.Weak)),
+            AaOpacity(ShapeLine, -1, 200),
+            AaWidth(LabTitle, -LabTitle.ActualWidth, 250),
+            AaOpacity(LabTitle, -1, 200),
+            AaOpacity(PanCaption, -1, 200),
+            AaOpacity(Btn1, -1, 150),
+            AaOpacity(Btn2, -1, 150, 50),
+            AaOpacity(Btn3, -1, 150, 100),
+            AaCode(Sub() CType(Parent, Grid).Children.Remove(Me), , True)
+        }, "MyMsgBox Close " & Uuid)
+        '动画初始化
+        ShapeLine.MinWidth = 0
+    End Sub
+
+    Public Sub Btn1_Click() Handles Btn1.Click
+        If MyConverter.IsExited Then Exit Sub
+        MyConverter.IsExited = True
+        MyConverter.Result = 1
+        Close()
+    End Sub
+    Private Sub Btn2_Click() Handles Btn2.Click
+        If MyConverter.IsExited Then Exit Sub
+        MyConverter.IsExited = True
+        MyConverter.Result = 2
+        Close()
+    End Sub
+    Private Sub Btn3_Click() Handles Btn3.Click
+        If MyConverter.IsExited Then Exit Sub
+        MyConverter.IsExited = True
+        MyConverter.Result = 3
+        Close()
+    End Sub
+
+    Private Sub Drag(sender As Object, e As MouseButtonEventArgs) Handles PanBorder.MouseLeftButtonDown, LabTitle.MouseLeftButtonDown
+        On Error Resume Next
+        If e.GetPosition(ShapeLine).Y <= 2 Then FrmMain.DragMove()
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyPageLeft.vb

@@ -0,0 +1,100 @@
+Public Class MyPageLeft
+    Inherits Grid
+    Private Uuid As Integer = GetUuid()
+
+    '执行逐个进入动画的控件
+    Public Property AnimatedControl As FrameworkElement
+        Get
+            Return GetValue(AnimatedControlProperty)
+        End Get
+        Set(value As FrameworkElement)
+            SetValue(AnimatedControlProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly AnimatedControlProperty As DependencyProperty = DependencyProperty.Register("AnimatedControl", GetType(FrameworkElement), GetType(MyPageLeft), New PropertyMetadata(Nothing))
+
+    Public Sub TriggerShowAnimation()
+        If AnimatedControl Is Nothing Then
+            '缩放动画
+            If TypeOf RenderTransform IsNot ScaleTransform Then
+                RenderTransform = New ScaleTransform(0.96, 0.96)
+                RenderTransformOrigin = New Point(0.5, 0.5)
+            End If
+            Opacity = 0
+            AniStart({
+                AaScaleTransform(Me, 1 - CType(RenderTransform, ScaleTransform).ScaleX, 400,, New AniEaseOutBack(2)),
+                AaOpacity(Me, 1, 100)
+            }, "PageLeft PageChange " & Uuid)
+        Else
+            '逐个进入动画
+            Dim AniList As New List(Of AniData)
+            Dim Id As Integer = 0, Delay As Integer = 0
+            Dim Controls = GetAllAnimControls()
+            For Each Element As FrameworkElement In Controls
+                Element.Opacity = 0
+                Element.RenderTransform = New TranslateTransform(-25, 0)
+                AniList.Add(AaOpacity(Element, If(TypeOf Element Is TextBlock, 0.6, 1), 200, Delay, New AniEaseOutFluent(AniEasePower.Weak)))
+                AniList.Add(AaTranslateX(Element, 5, 200, Delay, New AniEaseOutFluent))
+                AniList.Add(AaTranslateX(Element, 20, 300, Delay, New AniEaseOutBack(AniEasePower.Weak)))
+                If TypeOf Element Is MyListItem Then
+                    AniList.Add(AaCode(Sub()
+                                           CType(Element, MyListItem).IsMouseOverAnimationEnabled = True
+                                           CType(Element, MyListItem).RefreshColor(Me, New EventArgs)
+                                       End Sub, Delay + 280))
+                End If
+                Delay += Math.Max(8, 20 - Id) * 2.5
+                Id += 1
+            Next
+            AniStart(AniList, "PageLeft PageChange " & Uuid)
+        End If
+    End Sub
+    Public Sub TriggerHideAnimation()
+        If AnimatedControl Is Nothing Then
+            '缩放动画
+            If TypeOf RenderTransform IsNot ScaleTransform Then
+                RenderTransform = New ScaleTransform(1, 1)
+                RenderTransformOrigin = New Point(0.5, 0.5)
+            End If
+            AniStart({
+                AaScaleTransform(Me, 0.95 - CType(RenderTransform, ScaleTransform).ScaleX, 130,, New AniEaseInFluent(AniEasePower.Weak)),
+                AaOpacity(Me, -Opacity, 100, 30)
+            }, "PageLeft PageChange " & Uuid)
+        Else
+            '逐个退出动画
+            Dim AniList As New List(Of AniData)
+            Dim Id As Integer = 0
+            Dim Controls = GetAllAnimControls()
+            For Each Element As FrameworkElement In Controls
+                AniList.Add(AaOpacity(Element, -Element.Opacity, 60, 80 / Controls.Count * Id))
+                AniList.Add(AaTranslateX(Element, -6, 60, 80 / Controls.Count * Id))
+                Id += 1
+            Next
+            AniStart(AniList, "PageLeft PageChange " & Uuid)
+        End If
+    End Sub
+
+    '遍历获取所有需要生成动画的控件
+    Private Function GetAllAnimControls() As List(Of FrameworkElement)
+        Dim AllControls As New List(Of FrameworkElement)
+        GetAllAnimControls(AnimatedControl, AllControls)
+        Return AllControls
+    End Function
+    Private Sub GetAllAnimControls(Element As FrameworkElement, ByRef AllControls As List(Of FrameworkElement))
+        If Element.Visibility = Visibility.Collapsed Then Exit Sub
+        If TypeOf Element Is MyTextButton Then
+            AllControls.Add(Element)
+        ElseIf TypeOf Element Is MyListItem Then
+            CType(Element, MyListItem).IsMouseOverAnimationEnabled = False
+            AllControls.Add(Element)
+        ElseIf TypeOf Element Is ContentControl Then
+            GetAllAnimControls(CType(Element, ContentControl).Content, AllControls)
+        ElseIf TypeOf Element Is Panel Then
+            For Each Element2 As FrameworkElement In CType(Element, Panel).Children
+                GetAllAnimControls(Element2, AllControls)
+            Next
+        Else
+            AllControls.Add(Element)
+        End If
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyPageRight.vb

@@ -0,0 +1,376 @@
+Public Class MyPageRight
+    Inherits AdornerDecorator
+    Public PageUuid As Integer = GetUuid()
+
+    '当前状态
+    Public Enum PageStates
+        Empty '默认状态，页面全空
+        LoaderWait '加载环初始等待
+        LoaderEnter '加载环进入动画
+        LoaderStayForce '加载环正常显示（强制等待）
+        LoaderStay '加载环正常显示
+        LoaderExit '加载环退出动画
+        ContentEnter '内容进入动画
+        ContentStay '内容正常显示
+        ReloadExit '刷新导致的全部退出动画
+        PageExit '切换页面导致的全部退出动画
+    End Enum
+    Private _PageState As PageStates = PageStates.Empty
+    Public Property PageState As PageStates
+        Get
+            Return _PageState
+        End Get
+        Set(value As PageStates)
+            If _PageState = value Then Exit Property
+            _PageState = value
+            If ModeDebug Then Log("[UI] 页面状态切换为 " & GetStringFromEnum(value))
+        End Set
+    End Property
+
+#Region "加载器"
+
+    Private PageLoader As LoaderBase
+    Private PageLoaderInputInvoke
+    Private PageLoaderUi As MyLoading
+    Private PanLoader As FrameworkElement
+    Private PanContent As FrameworkElement
+    Private PanAlways As FrameworkElement
+    Private PageLoaderAutoRun As Boolean
+
+    '初始化
+    ''' <summary>
+    ''' 表明页面存在需要在后台执行的加载器。
+    ''' </summary>
+    ''' <param name="LoaderUi">MyLoading 控件。</param>
+    ''' <param name="PanLoader">MyLoading 控件对应的卡片。</param>
+    ''' <param name="PanContent">加载结束后出现的内容容器。</param>
+    ''' <param name="PanAlways">无论是否在加载总是要显示的容器。可以为 Nothing。</param>
+    ''' <param name="RealLoader">在工作线程执行的加载器。</param>
+    ''' <param name="FinishedInvoke">当加载器执行完成，在 UI 线程触发的 UI 初始化事件。</param>
+    Public Sub PageLoaderInit(LoaderUi As MyLoading, PanLoader As FrameworkElement, PanContent As FrameworkElement, PanAlways As FrameworkElement,
+                              RealLoader As LoaderBase, FinishedInvoke As Action(Of LoaderBase), Optional InputInvoke As Func(Of Object) = Nothing,
+                              Optional AutoRun As Boolean = True)
+        '初始化参数
+        Me.PanLoader = PanLoader
+        Me.PanContent = PanContent
+        Me.PanAlways = PanAlways
+        Me.PageLoader = RealLoader
+        Me.PageLoaderUi = LoaderUi
+        Me.PageLoaderInputInvoke = InputInvoke
+        Me.PageLoaderAutoRun = AutoRun
+        '添加结束 Invoke
+        AddHandler RealLoader.PreviewFinish,
+            Sub()
+                Do While PageState = MyPageRight.PageStates.PageExit OrElse PageState = MyPageRight.PageStates.ReloadExit
+                    Thread.Sleep(10) '不在退出动画时执行 UI 线程操作，避免退出动画被重置
+                Loop
+                RunInUiWait(Sub() FinishedInvoke(RealLoader))
+                Thread.Sleep(20) '由于大量初始化控件会导致掉帧，延迟触发 State 改变事件
+            End Sub
+        AddHandler RealLoader.OnStateChangedUi, Sub(Loader As LoaderBase, NewState As LoadState, OldState As LoadState) RunInUi(Sub() PageLoaderState(Loader, NewState, OldState))
+        '隐藏 UI
+        PanLoader.Visibility = Visibility.Collapsed
+        PanContent.Visibility = Visibility.Collapsed
+        If PanAlways IsNot Nothing Then PanAlways.Visibility = Visibility.Collapsed
+        '初次运行加载器
+        If PageLoaderAutoRun Then
+            If PageLoader.GetType.Name.StartsWith("LoaderTask") Then
+                PageLoader.Start(CType(PageLoader, Object).StartGetInput(Nothing, PageLoaderInputInvoke))
+            Else
+                Dim Input = Nothing
+                If PageLoaderInputInvoke IsNot Nothing Then Input = PageLoaderInputInvoke()
+                PageLoader.Start(Input)
+            End If
+        End If
+        If PageLoader.State = LoadState.Finished Then
+            RunInUiWait(Sub() FinishedInvoke(RealLoader)) '加载器已提前完成，直接触发事件
+        End If
+        '设置加载环
+        PageLoaderUi.State = RealLoader
+        AddHandler PageLoaderUi.Click, Sub() If RealLoader.State = LoadState.Failed Then PageLoaderRestart() '点击重试事件
+    End Sub
+
+    '重试
+    Public Sub PageLoaderRestart(Optional Input As Object = Nothing, Optional IsForceRestart As Boolean = True) '由外部调用的重试
+        If Not PageLoaderAutoRun Then Exit Sub
+        If PageLoader.GetType.Name.StartsWith("LoaderTask") Then
+            PageLoader.Start(CType(PageLoader, Object).StartGetInput(Input, PageLoaderInputInvoke), IsForceRestart:=IsForceRestart)
+        Else
+            If Input Is Nothing AndAlso PageLoaderInputInvoke IsNot Nothing Then Input = PageLoaderInputInvoke()
+            PageLoader.Start(Input, IsForceRestart:=IsForceRestart)
+        End If
+    End Sub
+
+#End Region
+
+#Region "事件"
+
+    '外部触发的事件
+    ''' <summary>
+    ''' 需要切换到当前页面，并且原本的 Loaded 事件已执行完成。
+    ''' 需要根据加载器状态，从 Empty 切换到 ContentEnter、LoaderWait、LoaderEnter。
+    ''' </summary>
+    Public Sub PageOnEnter()
+        If ModeDebug Then Log("[UI] 已触发 PageOnEnter")
+        RaiseEvent OnPageEnter()
+
+        Select Case PageState
+            Case PageStates.Empty
+                If PageLoader Is Nothing OrElse PageLoader.State = LoadState.Finished Then
+                    PageState = PageStates.ContentEnter
+                    TriggerEnterAnimation(PanAlways, If(PanContent, Child))
+                ElseIf PageLoader.State = LoadState.Loading Then
+                    PageState = PageStates.LoaderWait
+                    AniStart(AaCode(AddressOf PageOnLoaderWaitFinished, 200), "PageRight PageChange " & PageUuid)
+                ElseIf PageLoader.State = LoadState.Failed Then
+                    PageState = PageStates.LoaderEnter
+                    TriggerEnterAnimation(PanAlways, PanLoader)
+                ElseIf PageLoader.State = LoadState.Waiting Then
+                    '由于 “页面加载器 Minecraft Version List 不应在 PageOnEnter 事件出现 Waiting 状态” 的神秘反馈添加的临时修复
+                    PageState = PageStates.LoaderWait
+                    AniStart(AaCode(AddressOf PageOnLoaderWaitFinished, 200), "PageRight PageChange " & PageUuid)
+                    Log("[Anim] 警告：页面加载器 " & PageLoader.Name & " 不应在 PageOnEnter 事件出现 " & GetStringFromEnum(PageLoader.State) & " 状态", LogLevel.Debug)
+                Else
+                    Throw New Exception("页面加载器 " & PageLoader.Name & " 不应在 PageOnEnter 事件出现 " & GetStringFromEnum(PageLoader.State) & " 状态。")
+                End If
+            Case Else
+                Throw New Exception("在状态为 " & GetStringFromEnum(PageState) & " 时触发了 PageOnEnter 事件。")
+        End Select
+    End Sub
+    Public Event OnPageEnter()
+    ''' <summary>
+    ''' 需要切换到其他页面。
+    ''' 需要立即切换至 PageExit 或 Empty。
+    ''' </summary>
+    Public Sub PageOnExit()
+        If ModeDebug Then Log("[UI] 已触发 PageOnExit")
+        Select Case PageState
+            Case PageStates.ContentEnter, PageStates.ContentStay
+                PageState = PageStates.PageExit
+                TriggerExitAnimation(PanAlways, If(PanContent, Child))
+            Case PageStates.LoaderEnter, PageStates.LoaderStayForce, PageStates.LoaderStay
+                PageState = PageStates.PageExit
+                TriggerExitAnimation(PanAlways, PanLoader)
+            Case PageStates.LoaderWait
+                PageState = PageStates.PageExit
+                TriggerExitAnimation(PanAlways)
+            Case PageStates.LoaderExit, PageStates.ReloadExit
+                PageState = PageStates.PageExit
+                If PanAlways IsNot Nothing Then TriggerExitAnimation(PanAlways, If(PanContent, Child))
+            Case PageStates.PageExit, PageStates.Empty
+        End Select
+    End Sub
+    ''' <summary>
+    ''' 即将切换到其他页面，需要强制完成页面状态清理。
+    ''' 需要立即切换至 Empty。
+    ''' </summary>
+    Public Sub PageOnForceExit()
+        If PageState = PageStates.Empty Then Exit Sub
+        If ModeDebug Then Log("[UI] 已触发 PageOnForceExit")
+        PageState = PageStates.Empty
+        AniStop("PageRight PageChange " & PageUuid)
+        '由于动画会被强制中止，所以需要手动进行隐藏
+        If PageLoader Is Nothing Then
+            Child.Visibility = Visibility.Collapsed
+        Else
+            PanContent.Visibility = Visibility.Collapsed
+            PanLoader.Visibility = Visibility.Collapsed
+            If PanAlways IsNot Nothing Then PanAlways.Visibility = Visibility.Collapsed
+        End If
+    End Sub
+
+    '内部触发的事件
+    ''' <summary>
+    ''' 逐个进入动画已执行完成。
+    ''' 需要根据目前状态，从 ContentEnter 切换到 ContentStay，或从 LoaderEnter 切换到 LoaderStayForce。
+    ''' </summary>
+    Private Sub PageOnEnterAnimationFinished()
+        If ModeDebug Then Log("[UI] 已触发 PageOnEnterAnimationFinished")
+        Select Case PageState
+            Case PageStates.ContentEnter
+                PageState = PageStates.ContentStay
+            Case PageStates.LoaderEnter
+                PageState = PageStates.LoaderStayForce
+                AniStart(AaCode(AddressOf PageOnLoaderStayFinished, 400), "PageRight PageChange " & PageUuid)
+            Case Else
+                Throw New Exception("在状态为 " & GetStringFromEnum(PageState) & " 时触发了 PageOnEnterAnimationFinished 事件。")
+        End Select
+    End Sub
+    ''' <summary>
+    ''' 逐个退出动画已执行完成。
+    ''' 需要根据目前状态，从 AllExit 切换到 Empty，或从 LoaderExit 切换到 ContentEnter，或从 ContentExit 重新触发 PageOnEnter。
+    ''' </summary>
+    Private Sub PageOnExitAnimationFinished()
+        If ModeDebug Then Log("[UI] 已触发 PageOnExitAnimationFinished")
+        Select Case PageState
+            Case PageStates.PageExit
+                PageState = PageStates.Empty
+            Case PageStates.ReloadExit
+                PageState = PageStates.Empty
+                PageOnEnter()
+            Case PageStates.LoaderExit
+                PageState = PageStates.ContentEnter
+                TriggerEnterAnimation(PanContent)
+            Case Else
+                Throw New Exception("在状态为 " & GetStringFromEnum(PageState) & " 时触发了 PageOnExitAnimationFinished 事件。")
+        End Select
+    End Sub
+    ''' <summary>
+    ''' 加载环进入等待已结束。
+    ''' 需要从 LoaderWait 切换到 LoaderEnter。
+    ''' </summary>
+    Private Sub PageOnLoaderWaitFinished()
+        If ModeDebug Then Log("[UI] 已触发 PageOnLoaderWaitFinished")
+        Select Case PageState
+            Case PageStates.LoaderWait
+                PageState = PageStates.LoaderEnter
+                If PanAlways IsNot Nothing AndAlso PanAlways.Visibility = Visibility.Collapsed Then
+                    TriggerEnterAnimation(PanAlways, PanLoader)
+                Else
+                    TriggerEnterAnimation(PanLoader)
+                End If
+            Case Else
+                Throw New Exception("在状态为 " & GetStringFromEnum(PageState) & " 时触发了 PageOnLoaderWaitFinished 事件。")
+        End Select
+    End Sub
+    ''' <summary>
+    ''' 加载环展示等待已结束。
+    ''' 需要从 LoaderStayForce 切换到 LoaderStay 或 LoaderExit。
+    ''' </summary>
+    Private Sub PageOnLoaderStayFinished()
+        If ModeDebug Then Log("[UI] 已触发 PageOnLoaderStayFinished")
+        Select Case PageState
+            Case PageStates.LoaderStayForce
+                If PageLoader.State = LoadState.Finished Then
+                    PageState = PageStates.LoaderExit
+                    TriggerExitAnimation(PanLoader)
+                Else
+                    PageState = PageStates.LoaderStay
+                End If
+            Case Else
+                Throw New Exception("在状态为 " & GetStringFromEnum(PageState) & " 时触发了 PageOnLoaderWaitFinished 事件。")
+        End Select
+    End Sub
+
+    ''' <summary>
+    ''' 全局加载状态已改变。
+    ''' </summary>
+    Private Sub PageLoaderState(sender As Object, NewState As LoadState, OldState As LoadState)
+        Select Case NewState
+            Case LoadState.Failed, LoadState.Loading
+                If Not OldState = LoadState.Finished Then Exit Sub
+                If ModeDebug Then Log("[UI] 已触发 PageLoaderState (Refresh)")
+                '重新开始运行
+                '需要从部分状态切换到 ReloadExit
+                Select Case PageState
+                    Case PageStates.ContentEnter, PageStates.ContentStay
+                        PageState = PageStates.ReloadExit
+                        TriggerExitAnimation(PanContent)
+                    Case PageStates.LoaderExit, PageStates.ReloadExit
+                        PageState = PageStates.ReloadExit
+                End Select
+            Case LoadState.Finished
+                If Not OldState = LoadState.Loading Then Exit Sub
+                If ModeDebug Then Log("[UI] 已触发 PageLoaderState (Stop)")
+                '运行结束
+                '需要从 LoaderWait 切换到 ContentEnter，或从 LoaderStay 切换到 LoaderExit
+                Select Case PageState
+                    Case PageStates.LoaderWait
+                        PageState = PageStates.ContentEnter
+                        If PanAlways IsNot Nothing AndAlso PanAlways.Visibility = Visibility.Collapsed Then
+                            TriggerEnterAnimation(PanAlways, PanContent)
+                        Else
+                            TriggerEnterAnimation(PanContent)
+                        End If
+                    Case PageStates.LoaderStay
+                        PageState = PageStates.LoaderExit
+                        TriggerExitAnimation(PanLoader)
+                End Select
+        End Select
+    End Sub
+
+#End Region
+
+#Region "动画"
+
+    '逐个进入动画
+    Public Sub TriggerEnterAnimation(ParamArray Elements As FrameworkElement())
+        '去除 Nothing 项
+        Dim RealElements As New List(Of FrameworkElement)
+        For Each Element In Elements
+            If Element IsNot Nothing Then RealElements.Add(Element)
+        Next
+
+        For Each Element In RealElements
+            Element.Visibility = Visibility.Visible '页面均处于默认的隐藏状态
+        Next
+        Dim AniList As New List(Of AniData)
+        Dim Delay As Integer = 0
+        For Each Element In RealElements
+            For Each Control As FrameworkElement In GetAllAnimControls(Element, True)
+                '还原被隐藏的卡片的消失动画
+                Control.IsHitTestVisible = True
+                If Control.RenderTransform IsNot Nothing AndAlso TypeOf Control.RenderTransform Is TranslateTransform Then Control.RenderTransform = Nothing
+            Next
+            For Each Control As FrameworkElement In GetAllAnimControls(Element)
+                Control.Opacity = 0
+                Control.RenderTransform = New TranslateTransform(0, -16)
+                AniList.Add(AaOpacity(Control, 1, 150, Delay, New AniEaseOutFluent(AniEasePower.Weak)))
+                AniList.Add(AaTranslateY(Control, 5, 250, Delay, New AniEaseOutFluent))
+                AniList.Add(AaTranslateY(Control, 11, 350, Delay, New AniEaseOutBack))
+                Delay += 40
+            Next
+        Next
+        AniList.Add(AaCode(Sub() PageOnEnterAnimationFinished(),, True))
+        AniStart(AniList, "PageRight PageChange " & PageUuid)
+    End Sub
+
+    '逐个退出动画
+    Public Sub TriggerExitAnimation(ParamArray Elements As FrameworkElement())
+        '去除 Nothing 项
+        Dim RealElements As New List(Of FrameworkElement)
+        For Each Element In Elements
+            If Element IsNot Nothing Then RealElements.Add(Element)
+        Next
+
+        Dim AniList As New List(Of AniData)
+        Dim Delay As Integer = 0
+        For Each Element In RealElements
+            For Each Control As FrameworkElement In GetAllAnimControls(Element)
+                Control.IsHitTestVisible = False
+                AniList.Add(AaOpacity(Control, -1, 90, Delay))
+                AniList.Add(AaTranslateY(Control, -6, 90, Delay))
+                Delay += 20
+            Next
+        Next
+        AniList.Add(AaCode(Sub()
+                               For Each Element In RealElements
+                                   Element.Visibility = Visibility.Collapsed
+                               Next
+                               PageOnExitAnimationFinished()
+                           End Sub,, True))
+        AniStart(AniList, "PageRight PageChange " & PageUuid)
+    End Sub
+
+    '遍历获取所有需要生成动画的控件
+    Friend Function GetAllAnimControls(Element As FrameworkElement, Optional IgnoreInvisibility As Boolean = False) As List(Of FrameworkElement)
+        Dim AllControls As New List(Of FrameworkElement)
+        GetAllAnimControls(Element, AllControls, IgnoreInvisibility)
+        Return AllControls
+    End Function
+    Private Sub GetAllAnimControls(Element As FrameworkElement, ByRef AllControls As List(Of FrameworkElement), IgnoreInvisibility As Boolean)
+        If Not IgnoreInvisibility AndAlso Element.Visibility = Visibility.Collapsed Then Exit Sub
+        If TypeOf Element Is MyCard OrElse TypeOf Element Is MyHint Then
+            AllControls.Add(Element)
+        ElseIf TypeOf Element Is ContentControl Then
+            GetAllAnimControls(CType(Element, ContentControl).Content, AllControls, IgnoreInvisibility)
+        ElseIf TypeOf Element Is Panel Then
+            For Each Element2 As FrameworkElement In CType(Element, Panel).Children
+                GetAllAnimControls(Element2, AllControls, IgnoreInvisibility)
+            Next
+        End If
+    End Sub
+
+#End Region
+
+End Class

Plain Craft Launcher 2/Controls/MyRadioBox.xaml

@@ -0,0 +1,9 @@
+<Grid x:Class="MyRadioBox"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             FocusVisualStyle="{x:Null}"
+             MinWidth="20" x:Name="PanBack" UseLayoutRounding="False" SnapsToDevicePixels="False" MinHeight="20" Background="{StaticResource ColorBrushSemiTransparent}" Focusable="True">
+        <TextBlock IsHitTestVisible="False" x:Name="LabText" FontSize="13" Padding="0" Margin="26,0,0,0" Text="Radiobox" Foreground="{DynamicResource ColorBrush1}" HorizontalAlignment="Left" VerticalAlignment="Center"/>
+    <Ellipse IsHitTestVisible="False" x:Name="ShapeBorder" StrokeThickness="1.1" HorizontalAlignment="Left" VerticalAlignment="Center" Width="18" Height="18" Stroke="{DynamicResource ColorBrush1}" Margin="1,0,0,0" Fill="{StaticResource ColorBrushHalfWhite}" />
+        <Ellipse IsHitTestVisible="False" x:Name="ShapeDot" HorizontalAlignment="Left" VerticalAlignment="Center" Fill="{Binding Stroke, ElementName=ShapeBorder}" Width="0" Height="0" Margin="10,0,0,0" StrokeThickness="0" />
+</Grid>

Plain Craft Launcher 2/Controls/MyRadioBox.xaml.vb

@@ -0,0 +1,231 @@
+Public Class MyRadioBox
+    Implements IMyRadio
+
+    '基础
+
+    Public Uuid As Integer = GetUuid()
+    Public Event PreviewCheck(sender As Object, e As RouteEventArgs)
+    Public Event PreviewChange(sender As Object, e As RouteEventArgs)
+    Public Event Check(sender As Object, e As RouteEventArgs) Implements IMyRadio.Check
+    Public Event Changed(sender As Object, e As RouteEventArgs) Implements IMyRadio.Changed
+
+    '自定义属性
+
+    Private _Checked As Boolean = False '是否选中
+    Public Property Checked As Boolean
+        Get
+            Return _Checked
+        End Get
+        Set(value As Boolean)
+            SetChecked(value, False, True)
+        End Set
+    End Property
+    ''' <summary>
+    ''' 手动设置 Checked 属性。
+    ''' </summary>
+    ''' <param name="value">新的 Checked 属性。</param>
+    ''' <param name="user">是否由用户引发。</param>
+    ''' <param name="anime">是否执行动画。</param>
+    Public Sub SetChecked(value As Boolean, user As Boolean, anime As Boolean)
+        Try
+
+            'Preview 事件
+
+            If value AndAlso user Then
+                Dim e = New RouteEventArgs(user)
+                RaiseEvent PreviewCheck(Me, e)
+                If e.Handled Then
+                    Radiobox_MouseLeave()
+                    Exit Sub
+                End If
+            End If
+
+            '自定义属性基础
+
+            Dim IsChanged As Boolean = False
+            If IsLoaded AndAlso Not value = _Checked Then RaiseEvent PreviewChange(Me, New RouteEventArgs(user))
+            If Not value = _Checked Then
+                _Checked = value
+                IsChanged = True
+            End If
+
+            '保证只有一个单选框选中
+
+            If Parent Is Nothing Then Exit Sub
+            Dim RadioboxList As New List(Of MyRadioBox)
+            Dim CheckedCount As Integer = 0
+            '收集控件列表与选中个数
+            For Each Control In CType(Parent, Object).Children
+                If TypeOf Control Is MyRadioBox Then
+                    RadioboxList.Add(Control)
+                    If Control.Checked Then CheckedCount += 1
+                End If
+            Next
+            '判断选中情况
+            Select Case CheckedCount
+                Case 0
+                    '没有任何单选框被选中，选择第一个
+                    RadioboxList(0).Checked = True
+                Case Is > 1
+                    '选中项目多于 1 个
+                    If Checked Then
+                        '如果本控件选中，则取消其他所有控件的选中
+                        For Each Control As MyRadioBox In RadioboxList
+                            If Control.Checked AndAlso Not Control.Equals(Me) Then Control.Checked = False
+                        Next
+                    Else
+                        '如果本控件未选中，则只保留第一个选中的控件
+                        Dim FirstChecked = False
+                        For Each Control As MyRadioBox In RadioboxList
+                            If Control.Checked Then
+                                If FirstChecked Then
+                                    Control.Checked = False '修改 Checked 会自动触发 Change 事件，所以不用额外触发
+                                Else
+                                    FirstChecked = True
+                                End If
+                            End If
+                        Next
+                    End If
+            End Select
+            'End If
+
+            '更改动画
+
+            If Not IsChanged Then Exit Sub
+            If IsLoaded AndAlso AniControlEnabled = 0 AndAlso anime Then '防止默认属性变更触发动画
+                If Checked Then
+                    '由无变有
+                    If ShapeDot.Opacity < 0.01 Then ShapeDot.Opacity = 1
+                    AniStart({
+                              AaScale(ShapeBorder, 10 - ShapeBorder.Width, AnimationTimeOfCheck, , New AniEaseOutFluent(AniEasePower.Weak), , True),
+                              AaScale(ShapeBorder, 8, AnimationTimeOfCheck * 2, AnimationTimeOfCheck * 0.6, New AniEaseOutBack, , True)
+                         }, "MyRadioBox Border " & Uuid)
+                    AniStart({
+                              AaScale(ShapeDot, 9 - ShapeDot.Width, AnimationTimeOfCheck * 2.6,, New AniEaseOutBack(AniEasePower.Weak), , True),
+                              AaOpacity(ShapeDot, 1 - ShapeDot.Opacity, AnimationTimeOfCheck * 0.5, AnimationTimeOfCheck * 0.6)
+                         }, "MyRadioBox Dot " & Uuid)
+                    AniStart({
+                              AaColor(ShapeBorder, Ellipse.StrokeProperty, If(IsMouseOver, "ColorBrush3", If(IsEnabled, "ColorBrush2", "ColorBrushGray4")), AnimationTimeOfCheck)
+                         }, "MyRadioBox BorderColor " & Uuid)
+                Else
+                    '由有变无
+                    AniStart({
+                              AaScale(ShapeBorder, 18 - ShapeBorder.Width, AnimationTimeOfCheck, , New AniEaseOutFluent, , True)
+                         }, "MyRadioBox Border " & Uuid)
+                    AniStart({
+                              AaScale(ShapeDot, -ShapeDot.Width, AnimationTimeOfCheck, , New AniEaseInFluent, , True),
+                              AaOpacity(ShapeDot, -ShapeDot.Opacity, AnimationTimeOfCheck * 0.5, AnimationTimeOfCheck * 0.2)
+                         }, "MyRadioBox Dot " & Uuid)
+                    AniStart({
+                              AaColor(ShapeBorder, Ellipse.StrokeProperty, If(IsMouseOver, "ColorBrush3", If(IsEnabled, "ColorBrush1", "ColorBrushGray4")), AnimationTimeOfCheck)
+                         }, "MyRadioBox BorderColor " & Uuid)
+                End If
+            Else
+                '不使用动画
+                AniStop("MyRadioBox Border " & Uuid)
+                AniStop("MyRadioBox Dot " & Uuid)
+                AniStop("MyRadioBox BorderColor " & Uuid)
+                If Checked Then
+                    ShapeDot.Width = 9
+                    ShapeDot.Height = 9
+                    ShapeDot.Opacity = 1
+                    ShapeDot.Margin = New Thickness(5.5, 0, 0, 0)
+                    ShapeBorder.SetResourceReference(Ellipse.StrokeProperty, If(IsEnabled, "ColorBrush2", "ColorBrushGray4"))
+                Else
+                    ShapeDot.Width = 0
+                    ShapeDot.Height = 0
+                    ShapeDot.Opacity = 0
+                    ShapeDot.Margin = New Thickness(10, 0, 0, 0)
+                    ShapeBorder.SetResourceReference(Ellipse.StrokeProperty, If(IsEnabled, "ColorBrush1", "ColorBrushGray4"))
+                End If
+            End If
+
+            '触发事件
+            If Checked Then RaiseEvent Check(Me, New RouteEventArgs(user))
+            RaiseEvent Changed(Me, New RouteEventArgs(user))
+
+        Catch ex As Exception
+            Log(ex, "单选框勾选改变错误", LogLevel.Hint)
+        End Try
+    End Sub
+    Public Property Text As String
+        Get
+            Return GetValue(TextProperty)
+        End Get
+        Set(value As String)
+            SetValue(TextProperty, value)
+        End Set
+    End Property '内容
+    Public Shared ReadOnly TextProperty As DependencyProperty = DependencyProperty.Register("Text", GetType(String), GetType(MyRadioBox), New PropertyMetadata(New PropertyChangedCallback(
+                                                                                                                                                               Sub(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
+                                                                                                                                                                   If Not IsNothing(sender) Then CType(sender, MyRadioBox).LabText.Text = e.NewValue
+                                                                                                                                                               End Sub)))
+
+    '点击事件
+
+    Private MouseDowned As Boolean = False
+    Private AllowMouseDown As Boolean = True
+    Private Sub Radiobox_MouseUp() Handles Me.MouseLeftButtonUp
+        If Not MouseDowned Then Exit Sub
+        MouseDowned = False
+        Log("[Control] 按下单选框：" & Text)
+        SetChecked(True, True, True)
+        AniStart(AaColor(ShapeBorder, Shapes.Ellipse.FillProperty, "ColorBrushHalfWhite", 100), "MyRadioBox Background " & Uuid)
+    End Sub
+    Private Sub Radiobox_MouseDown() Handles Me.MouseLeftButtonDown
+        MouseDowned = True
+        Focus()
+        AniStart(AaColor(ShapeBorder, Shapes.Ellipse.FillProperty, "ColorBrush9", 100), "MyRadioBox Background " & Uuid)
+        If Not Checked Then
+            AniStart(AaScale(ShapeBorder, 16.5 - ShapeBorder.Width, 1000, , New AniEaseOutFluent(AniEasePower.Strong), Absolute:=True), "MyRadioBox Border " & Uuid)
+        End If
+    End Sub
+    Private Sub Radiobox_MouseLeave() Handles Me.MouseLeave
+        If Not MouseDowned Then Exit Sub
+        MouseDowned = False
+        AniStart(AaColor(ShapeBorder, Shapes.Ellipse.FillProperty, "ColorBrushHalfWhite", 100), "MyRadioBox Background " & Uuid)
+        If Not Checked Then
+            AniStart(AaScale(ShapeBorder, 18 - ShapeBorder.Width, 400, , New AniEaseOutFluent(AniEasePower.Strong), Absolute:=True), "MyRadioBox Border " & Uuid)
+        End If
+    End Sub
+
+    '指向动画
+
+    Private Const AnimationTimeOfMouseIn As Integer = 100 '鼠标指向动画长度
+    Private Const AnimationTimeOfMouseOut As Integer = 200 '鼠标指向动画长度
+    Private Const AnimationTimeOfCheck As Integer = 150 '勾选状态变更动画长度
+    Private Sub Radiobox_IsEnabledChanged() Handles Me.IsEnabledChanged
+        If Me.IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+            '有动画
+            If Me.IsEnabled Then
+                '可用
+                Radiobox_MouseLeaveAnimation()
+            Else
+                '不可用
+                AniStart(AaColor(ShapeBorder, Ellipse.StrokeProperty, ColorGray4 - ShapeBorder.Stroke, AnimationTimeOfMouseOut), "MyRadioBox BorderColor " & Uuid)
+                AniStart(AaColor(LabText, TextBlock.ForegroundProperty, ColorGray4 - LabText.Foreground, AnimationTimeOfMouseOut), "MyRadioBox TextColor " & Uuid)
+            End If
+        Else
+            '无动画
+            AniStop("MyRadioBox BorderColor " & Uuid)
+            AniStop("MyRadioBox TextColor " & Uuid)
+            LabText.SetResourceReference(TextBlock.ForegroundProperty, If(Me.IsEnabled, "ColorBrush1", "ColorBrushGray4"))
+            ShapeBorder.SetResourceReference(Ellipse.StrokeProperty, If(Me.IsEnabled, If(Checked, "ColorBrush2", "ColorBrush1"), "ColorBrushGray4"))
+        End If
+    End Sub
+    Private Sub Radiobox_MouseEnterAnimation() Handles Me.MouseEnter
+        AniStart(AaColor(ShapeBorder, Ellipse.StrokeProperty, "ColorBrush3", AnimationTimeOfMouseIn), "MyRadioBox BorderColor " & Uuid)
+        AniStart(AaColor(LabText, TextBlock.ForegroundProperty, "ColorBrush3", AnimationTimeOfMouseIn), "MyRadioBox TextColor " & Uuid)
+    End Sub
+    Private Sub Radiobox_MouseLeaveAnimation() Handles Me.MouseLeave
+        If Not Me.IsEnabled Then Exit Sub 'MouseLeave 比 IsEnabledChanged 后执行，所以如果自定义事件修改了 IsEnabled，将导致显示错误
+        If IsLoaded AndAlso AniControlEnabled = 0 Then
+            AniStart(AaColor(ShapeBorder, Ellipse.StrokeProperty, If(IsEnabled, If(Checked, "ColorBrush2", "ColorBrush1"), "ColorBrushGray4"), AnimationTimeOfMouseOut), "MyRadioBox BorderColor " & Uuid)
+            AniStart(AaColor(LabText, TextBlock.ForegroundProperty, If(IsEnabled, "ColorBrush1", "ColorBrushGray4"), AnimationTimeOfMouseOut), "MyRadioBox TextColor " & Uuid)
+        Else
+            ShapeBorder.SetResourceReference(Ellipse.StrokeProperty, If(IsEnabled, If(Checked, "ColorBrush2", "ColorBrush1"), "ColorBrushGray4"))
+            LabText.SetResourceReference(TextBlock.ForegroundProperty, If(IsEnabled, "ColorBrush1", "ColorBrushGray4"))
+        End If
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyRadioButton.xaml

@@ -0,0 +1,9 @@
+<Border x:Name="PanBack" x:Class="MyRadioButton"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             HorizontalAlignment="Center" VerticalAlignment="Center" Background="{StaticResource ColorBrushSemiTransparent}" CornerRadius="13.5" MinHeight="27" MaxHeight="27">
+    <StackPanel Orientation="Horizontal">
+        <Path x:Name="ShapeLogo" HorizontalAlignment="Left" RenderTransformOrigin="0.5,0.5" Margin="12,0,0,0" Stretch="Uniform" Fill="White" MaxHeight="16" MaxWidth="16" VerticalAlignment="Center" />
+        <TextBlock x:Name="LabText" VerticalAlignment="Center" Grid.Column="1" Foreground="White" Margin="8,0,12,0" Grid.ColumnSpan="2" SnapsToDevicePixels="False" UseLayoutRounding="False" />
+    </StackPanel>
+</Border>

Plain Craft Launcher 2/Controls/MyRadioButton.xaml.vb

@@ -0,0 +1,255 @@
+Public Class MyRadioButton
+
+    '基础
+
+    Public Uuid As Integer = GetUuid()
+    Public Event Check(sender As Object, raiseByMouse As Boolean)
+    Public Event Change(sender As Object, raiseByMouse As Boolean)
+    Public Sub RaiseChange()
+        RaiseEvent Change(Me, False)
+    End Sub '使外部程序可以引发本控件的 Change 事件
+
+    '自定义属性
+
+    Public Property Logo As String
+        Get
+            Return ShapeLogo.Data.ToString
+        End Get
+        Set(value As String)
+            ShapeLogo.Data = (New GeometryConverter).ConvertFromString(value)
+        End Set
+    End Property
+    Private _LogoScale As Double = 1
+    Public Property LogoScale() As Double
+        Get
+            Return _LogoScale
+        End Get
+        Set(value As Double)
+            _LogoScale = value
+            If Not IsNothing(ShapeLogo) Then ShapeLogo.RenderTransform = New ScaleTransform With {.ScaleX = LogoScale, .ScaleY = LogoScale}
+        End Set
+    End Property
+
+    Private _Checked As Boolean = False '是否选中
+    Public Property Checked As Boolean
+        Get
+            Return _Checked
+        End Get
+        Set(value As Boolean)
+            SetChecked(value, False, True)
+        End Set
+    End Property
+    ''' <summary>
+    ''' 手动设置 Checked 属性。
+    ''' </summary>
+    ''' <param name="value">新的 Checked 属性。</param>
+    ''' <param name="user">是否由用户引发。</param>
+    ''' <param name="anime">是否执行动画。</param>
+    Public Sub SetChecked(value As Boolean, user As Boolean, anime As Boolean)
+        Try
+
+            '自定义属性基础
+
+            Dim IsChanged As Boolean = False
+            If IsLoaded AndAlso Not value = _Checked Then RaiseEvent Change(Me, user)
+            If Not value = _Checked Then
+                _Checked = value
+                IsChanged = True
+            End If
+
+            '保证只有一个单选框选中
+
+            If IsNothing(Parent) Then Exit Sub
+            Dim RadioboxList As New List(Of MyRadioButton)
+            Dim CheckedCount As Integer = 0
+            '收集控件列表与选中个数
+            For Each Control In CType(Parent, Object).Children
+                If TypeOf Control Is MyRadioButton Then
+                    RadioboxList.Add(Control)
+                    If Control.Checked Then CheckedCount += 1
+                End If
+            Next
+            '判断选中情况
+            Select Case CheckedCount
+                Case 0
+                    '没有任何单选框被选中，选择第一个
+                    RadioboxList(0).Checked = True
+                Case Is > 1
+                    '选中项目多于 1 个
+                    If Me.Checked Then
+                        '如果本控件选中，则取消其他所有控件的选中
+                        For Each Control As MyRadioButton In RadioboxList
+                            If Control.Checked AndAlso Not Control.Equals(Me) Then Control.Checked = False
+                        Next
+                    Else
+                        '如果本控件未选中，则只保留第一个选中的控件
+                        Dim FirstChecked = False
+                        For Each Control As MyRadioButton In RadioboxList
+                            If Control.Checked Then
+                                If FirstChecked Then
+                                    Control.Checked = False '修改 Checked 会自动触发 Change 事件，所以不用额外触发
+                                Else
+                                    FirstChecked = True
+                                End If
+                            End If
+                        Next
+                    End If
+            End Select
+
+            '更改动画
+
+            If Not IsChanged Then Exit Sub
+            RefreshColor(Nothing, anime)
+
+            '触发事件
+            If Checked Then RaiseEvent Check(Me, user)
+
+        Catch ex As Exception
+            Log(ex, "单选按钮勾选改变错误", LogLevel.Hint)
+        End Try
+    End Sub
+    Public Property Text As String
+        Get
+            Return GetValue(TextProperty)
+        End Get
+        Set(value As String)
+            SetValue(TextProperty, value)
+        End Set
+    End Property '内容
+    Public Shared ReadOnly TextProperty As DependencyProperty = DependencyProperty.Register("Text", GetType(String), GetType(MyRadioButton), New PropertyMetadata(New PropertyChangedCallback(
+                                                                                                                                                               Sub(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
+                                                                                                                                                                   If Not IsNothing(sender) Then CType(sender, MyRadioButton).LabText.Text = e.NewValue
+                                                                                                                                                               End Sub)))
+    Public Enum ColorState
+        White
+        Highlight
+    End Enum
+    Private _ColorType As ColorState = ColorState.White
+    Public Property ColorType As ColorState
+        Get
+            Return _ColorType
+        End Get
+        Set(value As ColorState)
+            _ColorType = value
+            RefreshColor()
+        End Set
+    End Property '颜色类别
+
+    '点击事件
+
+    Private IsMouseDown As Boolean = False
+    Private Sub Radiobox_MouseUp() Handles Me.MouseLeftButtonUp
+        If Checked Then Exit Sub
+        If Not IsMouseDown Then Exit Sub
+        Log("[Control] 按下单选按钮：" & Text)
+        IsMouseDown = False
+        SetChecked(True, True, True)
+    End Sub
+    Private Sub Radiobox_MouseDown() Handles Me.MouseLeftButtonDown
+        If Checked Then Exit Sub
+        IsMouseDown = True
+        RefreshColor()
+    End Sub
+    Private Sub Radiobox_MouseLeave() Handles Me.MouseLeave
+        IsMouseDown = False
+    End Sub
+
+    '动画
+
+    Private Const AnimationTimeOfMouseIn As Integer = 90 '鼠标指向动画长度
+    Private Const AnimationTimeOfMouseOut As Integer = 150 '鼠标移出动画长度
+    Private Const AnimationTimeOfCheck As Integer = 120 '勾选状态变更动画长度
+    Private Sub RefreshColor(Optional obj = Nothing, Optional e = Nothing) Handles Me.MouseEnter, Me.MouseLeave, Me.Loaded
+        Try
+            If IsLoaded AndAlso AniControlEnabled = 0 AndAlso Not False.Equals(e) Then '防止默认属性变更触发动画，若强制不执行动画，则 e 为 False
+
+                Select Case ColorType
+                    Case ColorState.White
+                        If Checked Then
+                            '勾选
+                            AniStart({
+                                         AaColor(ShapeLogo, Shapes.Path.FillProperty, "ColorBrush3", AnimationTimeOfCheck),
+                                         AaColor(LabText, TextBlock.ForegroundProperty, "ColorBrush3", AnimationTimeOfCheck)
+                                    }, "MyRadioButton Checked " & Uuid)
+                            AniStart(AaColor(Me, BackgroundProperty, New MyColor(255, 255, 255) - Background, AnimationTimeOfCheck), "MyRadioButton Color " & Uuid)
+                        ElseIf IsMouseDown Then
+                            '按下
+                            AniStart(AaColor(Me, BackgroundProperty, New MyColor(120, Color8) - Background, 60), "MyRadioButton Color " & Uuid)
+                        ElseIf IsMouseOver Then
+                            '指向
+                            AniStart({
+                                 AaColor(ShapeLogo, Shapes.Path.FillProperty, New MyColor(255, 255, 255) - ShapeLogo.Fill, AnimationTimeOfMouseIn),
+                                 AaColor(LabText, TextBlock.ForegroundProperty, New MyColor(255, 255, 255) - LabText.Foreground, AnimationTimeOfMouseIn)
+                            }, "MyRadioButton Checked " & Uuid)
+                            AniStart(AaColor(Me, BackgroundProperty, New MyColor(50, Color8) - Background, AnimationTimeOfMouseIn), "MyRadioButton Color " & Uuid)
+                        Else
+                            '正常
+                            AniStart({
+                                 AaColor(ShapeLogo, Shapes.Path.FillProperty, New MyColor(255, 255, 255) - ShapeLogo.Fill, AnimationTimeOfMouseOut),
+                                 AaColor(LabText, TextBlock.ForegroundProperty, New MyColor(255, 255, 255) - LabText.Foreground, AnimationTimeOfMouseOut)
+                            }, "MyRadioButton Checked " & Uuid)
+                            AniStart(AaColor(Me, BackgroundProperty, ColorSemiTransparent - Background, AnimationTimeOfMouseOut), "MyRadioButton Color " & Uuid)
+                        End If
+                    Case ColorState.Highlight
+                        If Checked Then
+                            '勾选
+                            AniStart({
+                                         AaColor(ShapeLogo, Shapes.Path.FillProperty, New MyColor(255, 255, 255) - ShapeLogo.Fill, AnimationTimeOfCheck),
+                                         AaColor(LabText, TextBlock.ForegroundProperty, New MyColor(255, 255, 255) - LabText.Foreground, AnimationTimeOfCheck)
+                                    }, "MyRadioButton Checked " & Uuid)
+                            AniStart(AaColor(Me, BackgroundProperty, "ColorBrush3", AnimationTimeOfCheck), "MyRadioButton Color " & Uuid)
+                        ElseIf IsMouseDown Then
+                            '按下
+                            AniStart(AaColor(Me, BackgroundProperty, "ColorBrush6", AnimationTimeOfMouseIn), "MyRadioButton Color " & Uuid)
+                        ElseIf IsMouseOver Then
+                            '指向
+                            AniStart({
+                                         AaColor(ShapeLogo, Shapes.Path.FillProperty, "ColorBrush3", AnimationTimeOfMouseIn),
+                                         AaColor(LabText, TextBlock.ForegroundProperty, "ColorBrush3", AnimationTimeOfMouseIn)
+                                    }, "MyRadioButton Checked " & Uuid)
+                            AniStart(AaColor(Me, BackgroundProperty, "ColorBrush7", AnimationTimeOfMouseIn), "MyRadioButton Color " & Uuid)
+                        Else
+                            '正常
+                            AniStart({
+                                         AaColor(ShapeLogo, Shapes.Path.FillProperty, "ColorBrush3", AnimationTimeOfMouseOut),
+                                         AaColor(LabText, TextBlock.ForegroundProperty, "ColorBrush3", AnimationTimeOfMouseOut)
+                                    }, "MyRadioButton Checked " & Uuid)
+                            AniStart(AaColor(Me, BackgroundProperty, ColorSemiTransparent - Background, AnimationTimeOfMouseOut), "MyRadioButton Color " & Uuid)
+                        End If
+                End Select
+
+            Else
+
+                '不使用动画
+                AniStop("MyRadioButton Checked " & Uuid)
+                AniStop("MyRadioButton Color " & Uuid)
+                Select Case ColorType
+                    Case ColorState.White
+                        If Checked Then
+                            Background = New MyColor(255, 255, 255)
+                            ShapeLogo.SetResourceReference(Shapes.Path.FillProperty, "ColorBrush3")
+                            LabText.SetResourceReference(TextBlock.ForegroundProperty, "ColorBrush3")
+                        Else
+                            Background = ColorSemiTransparent
+                            ShapeLogo.Fill = New MyColor(255, 255, 255)
+                            LabText.Foreground = New MyColor(255, 255, 255)
+                        End If
+                    Case ColorState.Highlight
+                        If Checked Then
+                            SetResourceReference(BackgroundProperty, "ColorBrush3")
+                            ShapeLogo.Fill = New MyColor(255, 255, 255)
+                            LabText.Foreground = New MyColor(255, 255, 255)
+                        Else
+                            Background = ColorSemiTransparent
+                            ShapeLogo.SetResourceReference(Shapes.Path.FillProperty, "ColorBrush3")
+                            LabText.SetResourceReference(TextBlock.ForegroundProperty, "ColorBrush3")
+                        End If
+                End Select
+
+            End If
+        Catch ex As Exception
+            Log(ex, "刷新按钮颜色出错")
+        End Try
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyResizer.vb

@@ -0,0 +1,315 @@
+Imports System.Runtime.InteropServices
+Imports System.Windows.Interop
+Imports System.Windows.Threading
+
+Public Class MyResizer
+
+    Private Delegate Sub RefreshDelegate()
+
+    Private Structure POINT
+        Public x As Integer
+        Public y As Integer
+        Public Sub New(x As Integer, y As Integer)
+            Me.x = x
+            Me.y = y
+        End Sub
+    End Structure
+    Private Structure MINMAXINFO
+        Public ptReserved As POINT
+        Public ptMaxSize As POINT
+        Public ptMaxPosition As POINT
+        Public ptMinTrackSize As POINT
+        Public ptMaxTrackSize As POINT
+    End Structure
+    Private Structure RECT
+        Public left As Integer
+        Public top As Integer
+        Public right As Integer
+        Public bottom As Integer
+        Public Shared Empty As RECT = Nothing
+
+        Public ReadOnly Property Width() As Integer
+            Get
+                Return Math.Abs(Me.right - Me.left)
+            End Get
+        End Property
+        Public ReadOnly Property Height() As Integer
+            Get
+                Return Me.bottom - Me.top
+            End Get
+        End Property
+
+        Public Sub New(left As Integer, top As Integer, right As Integer, bottom As Integer)
+            Me.left = left
+            Me.top = top
+            Me.right = right
+            Me.bottom = bottom
+        End Sub
+        Public Sub New(rcSrc As RECT)
+            Me.left = rcSrc.left
+            Me.top = rcSrc.top
+            Me.right = rcSrc.right
+            Me.bottom = rcSrc.bottom
+        End Sub
+    End Structure
+
+    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)>
+    Private Class MONITORINFO
+        Public cbSize As Integer = Marshal.SizeOf(GetType(MONITORINFO))
+        Public rcMonitor As RECT = Nothing
+        Public rcWork As RECT = Nothing
+        Public dwFlags As Integer = 0
+    End Class
+
+    Private Structure PointAPI
+        Public X As Integer
+        Public Y As Integer
+    End Structure
+
+    Private ReadOnly target As Window = Nothing
+
+    Private resizeRight As Boolean = False
+    Private resizeLeft As Boolean = False
+    Private resizeUp As Boolean = False
+    Private resizeDown As Boolean = False
+
+    Private ReadOnly leftElements As New Dictionary(Of UIElement, Short)()
+    Private ReadOnly rightElements As New Dictionary(Of UIElement, Short)()
+    Private ReadOnly upElements As New Dictionary(Of UIElement, Short)()
+    Private ReadOnly downElements As New Dictionary(Of UIElement, Short)()
+
+    Private startMousePoint As PointAPI = Nothing
+    Private startWindowSize As Size = Nothing
+    Private startWindowLeftUpPoint As POINT = Nothing
+
+    Private Shared workAreaMaxHeight As Integer = -1
+
+    Private hs As HwndSource
+
+    Public Sub New(target As Window)
+        Me.target = target
+        If IsNothing(target) Then Throw New Exception("Invalid Window handle")
+        AddHandler target.SourceInitialized, AddressOf Me.MyMacClass_SourceInitialized
+    End Sub
+
+    Private Sub MyMacClass_SourceInitialized(sender As Object, e As EventArgs)
+        Me.hs = (TryCast(PresentationSource.FromVisual(CType(sender, Visual)), HwndSource))
+        Me.hs.AddHook(AddressOf Me.WndProc)
+    End Sub
+
+    Private Function WndProc(hwnd As IntPtr, msg As Integer, wParam As IntPtr, lParam As IntPtr, ByRef handled As Boolean) As IntPtr
+        If msg = 36 Then
+            WmGetMinMaxInfo(hwnd, lParam)
+            handled = True
+        End If
+        Return CType(0, IntPtr)
+    End Function
+
+    Private Shared Sub WmGetMinMaxInfo(hwnd As IntPtr, lParam As IntPtr)
+        Dim mINMAXINFO As MINMAXINFO = CType(Marshal.PtrToStructure(lParam, GetType(MINMAXINFO)), MINMAXINFO)
+        Dim flags As Integer = 2
+        Dim intPtr As IntPtr = MonitorFromWindow(hwnd, flags)
+        Dim flag As Boolean = intPtr <> IntPtr.Zero
+        If flag Then
+            Dim mONITORINFO As New MONITORINFO()
+            GetMonitorInfo(intPtr, mONITORINFO)
+            Dim rcWork As RECT = mONITORINFO.rcWork
+            Dim rcMonitor As RECT = mONITORINFO.rcMonitor
+            mINMAXINFO.ptMaxPosition.x = Math.Abs(rcWork.left - rcMonitor.left)
+            mINMAXINFO.ptMaxPosition.y = Math.Abs(rcWork.top - rcMonitor.top)
+            mINMAXINFO.ptMaxSize.y = Math.Abs(rcWork.bottom - rcWork.top)
+            workAreaMaxHeight = mINMAXINFO.ptMaxSize.y
+            If rcWork.Height = rcMonitor.Height Then
+                mINMAXINFO.ptMaxSize.y -= 2
+            End If
+        End If
+        Marshal.StructureToPtr(mINMAXINFO, lParam, True)
+    End Sub
+
+    Private Declare Function GetMonitorInfo Lib "user32" (hMonitor As IntPtr, lpmi As MONITORINFO) As Boolean
+
+    Friend Declare Function MonitorFromWindow Lib "User32" (handle As IntPtr, flags As Integer) As IntPtr
+
+    Private Sub connectMouseHandlers(element As UIElement)
+        AddHandler element.MouseLeftButtonDown, AddressOf Me.element_MouseLeftButtonDown
+    End Sub
+
+    Public Sub addResizerRight(element As UIElement)
+        Me.connectMouseHandlers(element)
+        Me.rightElements.Add(element, 0)
+    End Sub
+
+    Public Sub addResizerLeft(element As UIElement)
+        Me.connectMouseHandlers(element)
+        Me.leftElements.Add(element, 0)
+    End Sub
+
+    Public Sub addResizerUp(element As UIElement)
+        Me.connectMouseHandlers(element)
+        Me.upElements.Add(element, 0)
+    End Sub
+
+    Public Sub addResizerDown(element As UIElement)
+        Me.connectMouseHandlers(element)
+        Me.downElements.Add(element, 0)
+    End Sub
+
+    Public Sub addResizerRightDown(element As UIElement)
+        Me.connectMouseHandlers(element)
+        Me.rightElements.Add(element, 0)
+        Me.downElements.Add(element, 0)
+    End Sub
+
+    Public Sub addResizerLeftDown(element As UIElement)
+        Me.connectMouseHandlers(element)
+        Me.leftElements.Add(element, 0)
+        Me.downElements.Add(element, 0)
+    End Sub
+
+    Public Sub addResizerRightUp(element As UIElement)
+        Me.connectMouseHandlers(element)
+        Me.rightElements.Add(element, 0)
+        Me.upElements.Add(element, 0)
+    End Sub
+
+    Public Sub addResizerLeftUp(element As UIElement)
+        Me.connectMouseHandlers(element)
+        Me.leftElements.Add(element, 0)
+        Me.upElements.Add(element, 0)
+    End Sub
+
+    Private Sub element_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs)
+        GetCursorPos(startMousePoint)
+        startMousePoint.X = GetWPFSize(startMousePoint.X)
+        startMousePoint.Y = GetWPFSize(startMousePoint.Y)
+        startWindowSize = New Size(target.Width, target.Height)
+        startWindowLeftUpPoint = New POINT(target.Left, target.Top)
+        Dim key As UIElement = CType(sender, UIElement)
+        If leftElements.ContainsKey(key) Then resizeLeft = True
+        If rightElements.ContainsKey(key) Then resizeRight = True
+        If upElements.ContainsKey(key) Then resizeUp = True
+        If downElements.ContainsKey(key) Then resizeDown = True
+        RunInNewThread(AddressOf updateSizeLoop, "窗口大小调整检测")
+    End Sub
+
+    Private Sub updateSizeLoop()
+        Try
+            While resizeDown OrElse resizeLeft OrElse resizeRight OrElse resizeUp
+                target.Dispatcher.Invoke(AddressOf updateSize, DispatcherPriority.Render)
+                target.Dispatcher.Invoke(AddressOf updateMouseDown, DispatcherPriority.Render)
+                Thread.Sleep(0)
+            End While
+        Catch
+        End Try
+    End Sub
+
+    Private Sub updateSize()
+        Dim pointAPI As PointAPI = Nothing
+        GetCursorPos(pointAPI)
+        pointAPI.X = GetWPFSize(pointAPI.X)
+        pointAPI.Y = GetWPFSize(pointAPI.Y)
+        Try
+
+            Dim NewWidth As Double = -1
+            Dim NewHeight As Double = -1
+            Dim NewLeft As Double = -10000
+            Dim NewTop As Double = -10000
+
+            If resizeRight Then
+                If target.Width = target.MinWidth Then
+                    If startMousePoint.X < pointAPI.X Then
+                        NewWidth = startWindowSize.Width - (startMousePoint.X - pointAPI.X)
+                    End If
+                Else
+                    If startWindowSize.Width - ((startMousePoint.X - pointAPI.X)) >= target.MinWidth Then
+                        NewWidth = startWindowSize.Width - (startMousePoint.X - pointAPI.X)
+                    Else
+                        NewWidth = target.MinWidth
+                    End If
+                End If
+            End If
+
+            If resizeDown Then
+                If target.Height = target.MinHeight Then
+                    If startMousePoint.Y < pointAPI.Y Then
+                        If workAreaMaxHeight > 0 Then
+                            NewHeight = If((startWindowSize.Height - (startMousePoint.Y - pointAPI.Y) + target.Top <= workAreaMaxHeight), (startWindowSize.Height - ((startMousePoint.Y - pointAPI.Y))), ((workAreaMaxHeight) - target.Top))
+                        Else
+                            NewHeight = startWindowSize.Height - (startMousePoint.Y - pointAPI.Y)
+                        End If
+                    End If
+                Else
+                    If startWindowSize.Height - (startMousePoint.Y - pointAPI.Y) >= target.MinHeight Then
+                        If workAreaMaxHeight > 0 Then
+                            NewHeight = If((startWindowSize.Height - (startMousePoint.Y - pointAPI.Y) + target.Top <= (workAreaMaxHeight)), (startWindowSize.Height - (startMousePoint.Y - pointAPI.Y)), ((workAreaMaxHeight) - target.Top))
+                        Else
+                            NewHeight = startWindowSize.Height - (startMousePoint.Y - pointAPI.Y)
+                        End If
+                    Else
+                        NewHeight = target.MinHeight
+                    End If
+                End If
+            End If
+
+            If resizeLeft Then
+                If target.Width = target.MinWidth Then
+                    If startMousePoint.X > pointAPI.X Then
+                        NewWidth = startWindowSize.Width + startMousePoint.X - pointAPI.X
+                        NewLeft = startWindowLeftUpPoint.x - (startMousePoint.X - pointAPI.X)
+                    Else
+                        NewWidth = target.MinWidth
+                        NewLeft = startWindowLeftUpPoint.x + startWindowSize.Width - target.Width
+                    End If
+                Else
+                    If startWindowSize.Width + (startMousePoint.X - pointAPI.X) >= target.MinWidth Then
+                        NewWidth = startWindowSize.Width + (startMousePoint.X - pointAPI.X)
+                        NewLeft = startWindowLeftUpPoint.x - (startMousePoint.X - pointAPI.X)
+                    Else
+                        NewWidth = target.MinWidth
+                        NewLeft = startWindowLeftUpPoint.x + startWindowSize.Width - target.Width
+                    End If
+                End If
+            End If
+
+            If resizeUp Then
+                If target.Height = target.MinHeight Then
+                    If startMousePoint.Y > pointAPI.Y Then
+                        NewHeight = startWindowSize.Height + startMousePoint.Y - pointAPI.Y
+                        NewTop = startWindowLeftUpPoint.y - (startMousePoint.Y - pointAPI.Y)
+                    Else
+                        NewHeight = target.MinHeight
+                        NewTop = startWindowLeftUpPoint.y + startWindowSize.Height - target.Height
+                    End If
+                Else
+                    If startWindowSize.Height + (startMousePoint.Y - pointAPI.Y) >= target.MinHeight Then
+                        NewHeight = startWindowSize.Height + startMousePoint.Y - pointAPI.Y
+                        NewTop = startWindowLeftUpPoint.y - (startMousePoint.Y - pointAPI.Y)
+                    Else
+                        NewHeight = target.MinHeight
+                        NewTop = startWindowLeftUpPoint.y + startWindowSize.Height - target.Height
+                    End If
+                End If
+            End If
+
+            If NewWidth > 10 AndAlso Math.Abs(NewWidth - target.Width) > 0.7 Then target.Width = NewWidth
+            If NewHeight > 10 AndAlso Math.Abs(NewHeight - target.Height) > 0.7 Then target.Height = NewHeight
+            If NewLeft > -9999 AndAlso Math.Abs(NewLeft - target.Left) > 0.7 Then target.Left = NewLeft
+            If NewTop > -9999 AndAlso Math.Abs(NewTop - target.Top) > 0.7 Then target.Top = NewTop
+
+        Catch
+        End Try
+    End Sub
+
+    Private Sub updateMouseDown()
+        Dim flag As Boolean = Mouse.LeftButton = MouseButtonState.Released
+        If flag Then
+            resizeRight = False
+            resizeLeft = False
+            resizeUp = False
+            resizeDown = False
+        End If
+    End Sub
+
+    Private Declare Function GetCursorPos Lib "user32.dll" (<Out()> ByRef lpPoint As PointAPI) As Boolean
+
+End Class

Plain Craft Launcher 2/Controls/MyScrollBar.vb

@@ -0,0 +1,51 @@
+Public Class MyScrollBar
+    Inherits Primitives.ScrollBar
+
+    '基础
+
+    Public Uuid As Integer = GetUuid()
+
+    '指向动画
+
+    Private Sub RefreshColor() Handles Me.IsEnabledChanged, Me.GotMouseCapture, Me.LostMouseCapture, Me.MouseEnter, Me.MouseLeave, Me.IsVisibleChanged
+        Try
+
+            '判断当前颜色
+            Dim NewOpacity As Double, NewColor As String, Time As Integer
+            If Not IsVisible Then
+                NewOpacity = 0
+                Time = 20 '防止错误的尺寸判断导致闪烁
+                NewColor = "ColorBrush4"
+            ElseIf IsMouseCaptureWithin Then
+                NewOpacity = 1
+                NewColor = "ColorBrush4"
+                Time = 50
+            ElseIf IsMouseOver Then
+                NewOpacity = 0.9
+                NewColor = "ColorBrush3"
+                Time = 130
+            Else
+                NewOpacity = 0.5
+                NewColor = "ColorBrush4"
+                Time = 180
+            End If
+            '触发颜色动画
+            If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+                '有动画
+                AniStart({
+                         AaColor(Me, ForegroundProperty, NewColor, Time),
+                         AaOpacity(Me, NewOpacity - Opacity, Time)
+                 }, "MyScrollBar Color " & Uuid)
+            Else
+                '无动画
+                AniStop("MyScrollBar Color " & Uuid)
+                SetResourceReference(ForegroundProperty, NewColor)
+                Opacity = NewOpacity
+            End If
+
+        Catch ex As Exception
+            Log(ex, "滚动条颜色改变出错")
+        End Try
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyScrollViewer.vb

@@ -0,0 +1,27 @@
+Public Class MyScrollViewer
+    Inherits ScrollViewer
+
+    Public Property DeltaMuity As Double = 1
+    Private RealOffset As Double
+    Private Sub MyScrollViewer_PreviewMouseWheel(sender As Object, e As MouseWheelEventArgs) Handles Me.PreviewMouseWheel
+        If e.Delta = 0 OrElse ActualHeight = 0 OrElse ScrollableHeight = 0 Then Exit Sub
+        Dim SourceTypeName As String = e.Source.GetType.Name
+        If Content.TemplatedParent Is Nothing AndAlso (SourceTypeName.Contains("Combo") OrElse SourceTypeName = "MyTextBox") Then Exit Sub '确定可视树，防止滚动问题
+        PerformVerticalOffsetDelta(-e.Delta)
+        e.Handled = True
+    End Sub
+    Public Sub PerformVerticalOffsetDelta(Delta As Double)
+        AniStart(AaDouble(Sub(AnimDelta As Double)
+                              RealOffset = MathRange(RealOffset + AnimDelta, 0, ExtentHeight - ActualHeight)
+                              ScrollToVerticalOffset(RealOffset)
+                          End Sub, Delta * DeltaMuity, 300,, New AniEaseOutFluent(6)))
+    End Sub
+    Private Sub MyScrollViewer_ScrollChanged(sender As Object, e As ScrollChangedEventArgs) Handles Me.ScrollChanged
+        RealOffset = VerticalOffset
+        If FrmMain IsNot Nothing AndAlso (e.VerticalChange OrElse e.ViewportHeightChange) Then FrmMain.BtnExtraBack.ShowRefresh()
+    End Sub
+    Private Sub MyScrollViewer_IsVisibleChanged(sender As Object, e As DependencyPropertyChangedEventArgs) Handles Me.IsVisibleChanged
+        FrmMain.BtnExtraBack.ShowRefresh()
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MySearchBox.xaml

@@ -0,0 +1,15 @@
+<local:MyCard x:Class="MySearchBox"
+      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" 
+      d:DesignHeight="450" d:DesignWidth="800"
+      Height="40">
+    <Grid>
+        <local:MyTextBox HasAnimation="False" x:Name="TextBox" BorderThickness="0" Padding="32,0,40,0" MaxLength="50" FontSize="13.5" UseLayoutRounding="False" SnapsToDevicePixels="False" VerticalContentAlignment="Center" />
+        <Path Width="14" Margin="14,0,0,0" IsHitTestVisible="False" Height="14" Fill="{DynamicResource ColorBrush1}" Stretch="Uniform" Data="M675.9168 242.816C556.3008 123.2 362.4448 123.2 242.8288 242.816 123.2128 362.432 123.2128 556.288 242.8288 675.904 362.4448 795.52 556.3008 795.52 675.9168 675.904 795.5328 556.288 795.5328 362.432 675.9168 242.816L675.9168 242.816ZM1000.7168 892.48C1030.6048 922.368 1030.6048 970.816 1000.7168 1000.704 970.8288 1030.656 922.3808 1030.656 892.4288 1000.704L730.0608 838.336C728.1408 836.416 727.4368 833.92 725.7728 831.872 546.3168 960.448 295.7568 945.408 134.5408 784.192-44.8512 604.8-44.8512 313.92 134.5408 134.528 313.9328-44.864 604.8128-44.864 784.2048 134.528 945.4208 295.744 960.4608 546.304 831.8848 725.76 833.9328 727.424 836.4288 728.128 838.3488 730.048L1000.7168 892.48Z" HorizontalAlignment="Left" />
+        <local:MyIconButton x:Name="BtnClear" IsHitTestVisible="False" Opacity="0" Width="24" Margin="0,0,10,0" LogoScale="0.75" Height="24" Logo="F1 M2,0 L0,2 8,10 0,18 2,20 10,12 18,20 20,18 12,10 20,2 18,0 10,8 2,0Z" HorizontalAlignment="Right" Theme="Black" />
+    </Grid>
+</local:MyCard>

Plain Craft Launcher 2/Controls/MySearchBox.xaml.vb

@@ -0,0 +1,42 @@
+Class MySearchBox
+    Inherits MyCard
+
+    Public Event TextChanged(ByVal sender As Object, ByVal e As EventArgs)
+    Private Sub MySearchBox_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        TextBox.Focus()
+    End Sub
+
+    '属性
+    Public Property HintText() As String
+        Get
+            Return TextBox.HintText
+        End Get
+        Set(ByVal value As String)
+            TextBox.HintText = value
+        End Set
+    End Property
+    Public Property Text() As String
+        Get
+            Return TextBox.Text
+        End Get
+        Set(ByVal value As String)
+            TextBox.Text = value
+        End Set
+    End Property
+
+    Private Sub Text_TextChanged(sender As Object, e As TextChangedEventArgs) Handles TextBox.TextChanged
+        If String.IsNullOrEmpty(TextBox.Text) Then
+            AniStart(AaOpacity(BtnClear, -BtnClear.Opacity, 90), "MySearchBox ClearBtn " & Uuid)
+            BtnClear.IsHitTestVisible = False
+        Else
+            AniStart(AaOpacity(BtnClear, 1 - BtnClear.Opacity, 90), "MySearchBox ClearBtn " & Uuid)
+            BtnClear.IsHitTestVisible = True
+        End If
+        RaiseEvent TextChanged(sender, e)
+    End Sub
+    Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
+        TextBox.Text = ""
+        TextBox.Focus()
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MySlider.xaml

@@ -0,0 +1,27 @@
+<Border x:Class="MySlider"
+             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" 
+             mc:Ignorable="d" 
+             d:DesignHeight="16" d:DesignWidth="162" 
+             FocusVisualStyle="{x:Null}"
+             MinHeight="16" UseLayoutRounding="False" SnapsToDevicePixels="False" BorderBrush="{DynamicResource ColorBrush1}" Name="PanBack" Background="{StaticResource ColorBrushSemiTransparent}" Focusable="True">
+    <Grid x:Name="PanMain" MinHeight="16" MaxHeight="16" IsHitTestVisible="False">
+        <Line Height="4" Name="LineBack" Stroke="{StaticResource ColorBrushGray5}" StrokeThickness="1.1" X2="10000" Y1="2" Y2="2" HorizontalAlignment="Right" Width="0" SnapsToDevicePixels="True" Margin="0,0,1,0" />
+        <Line Height="4" Name="LineFore" Stroke="{Binding ElementName=PanBack, Path=BorderBrush}" StrokeThickness="1.1" X2="10000" Y1="2" Y2="2" Width="0" HorizontalAlignment="Left" SnapsToDevicePixels="True" Margin="1,0,0,0" />
+        <Ellipse HorizontalAlignment="Left" Width="16" Stroke="{Binding BorderBrush, ElementName=PanBack}" StrokeThickness="1.1" Fill="{StaticResource ColorBrushHalfWhite}" Name="ShapeDot" Height="16" VerticalAlignment="Center" RenderTransformOrigin="0.5,0.5">
+            <Ellipse.RenderTransform>
+                <ScaleTransform />
+            </Ellipse.RenderTransform>
+        </Ellipse>
+        <Popup Name="Popup" AllowsTransparency="True" IsHitTestVisible="False" PopupAnimation="Fade" VerticalOffset="38" HorizontalOffset="{Binding Margin.Left, ElementName=ShapeDot}" Placement="Center" PlacementRectangle="8,0,0,0">
+            <Border BorderBrush="{DynamicResource ColorBrush1}" BorderThickness="1.5" CornerRadius="3" MaxWidth="500" Background="White" Margin="0,0,4,4" SnapsToDevicePixels="True">
+                <Border.Effect>
+                    <DropShadowEffect Opacity="0.4" BlurRadius="4" ShadowDepth="2" />
+                </Border.Effect>
+                <TextBlock Name="TextHint" TextWrapping="Wrap" Foreground="{DynamicResource ColorBrush1}" Margin="7,5" FontSize="12"/>
+            </Border>
+        </Popup>
+    </Grid>
+</Border>

Plain Craft Launcher 2/Controls/MySlider.xaml.vb

@@ -0,0 +1,177 @@
+Public Class MySlider
+
+    '基础
+
+    Public Uuid As Integer = GetUuid()
+    Public Event Change(sender As Object, user As Boolean)
+    Public Event PreviewChange(sender As Object, e As RouteEventArgs)
+
+    '自定义属性
+
+    Private _MaxValue As Integer = 100
+    Public Property MaxValue As Integer
+        Get
+            Return _MaxValue
+        End Get
+        Set(value As Integer)
+            If value = _MaxValue Then Exit Property
+            _MaxValue = value
+            RefreshWidth(Nothing, Nothing)
+        End Set
+    End Property
+    Private ChangeByKey As Boolean = False
+    Private _Value As Integer = 0
+    Public Property Value As Integer
+        Get
+            Return _Value
+        End Get
+        Set(newValue As Integer)
+            Try
+
+                newValue = MathRange(newValue, 0, MaxValue)
+                If _Value = newValue Then Exit Property
+
+                '触发 Preview 事件，修改新值
+                Dim OldValue = _Value
+                _Value = newValue
+                If AniControlEnabled = 0 Then
+                    Dim e = New RouteEventArgs(False)
+                    RaiseEvent PreviewChange(Me, e)
+                    If e.Handled Then
+                        _Value = OldValue
+                        DragStop()
+                        Exit Property
+                    End If
+                End If
+
+                If IsLoaded AndAlso AniControlEnabled = 0 Then
+                    If ActualWidth < 16 Then Exit Property
+                    Dim NewWidth As Double = _Value / MaxValue * (ActualWidth - 16)
+                    Dim DeltaProcess As Double = Math.Abs(LineFore.Width / (ActualWidth - 16) - _Value / MaxValue)
+                    Dim Time As Double = (1 - Math.Pow(1 - DeltaProcess, 3)) * 300 + If(ChangeByKey, 100, 0)
+                    AniStart({
+                            AaWidth(LineFore, Math.Max(0, NewWidth + If(NewWidth < 0.5, 0, 0.5)) - LineFore.Width, Time,, If(Time > 50, New AniEaseOutFluent, New AniEaseLinear)),
+                            AaWidth(LineBack, Math.Max(0, ActualWidth - 16 - NewWidth + If(ActualWidth - 16 - NewWidth < 0.5, 0, 0.5)) - LineBack.Width, Time,, If(Time > 50, New AniEaseOutFluent, New AniEaseLinear)),
+                            AaX(ShapeDot, NewWidth - ShapeDot.Margin.Left, Time,, If(Time > 50, New AniEaseOutFluent, New AniEaseLinear))
+                         }, "MySlider Progress " & Uuid)
+                Else
+                    RefreshWidth(Nothing, Nothing)
+                End If
+                If AniControlEnabled = 0 Then RaiseEvent Change(Me, False)
+
+            Catch ex As Exception
+                Log(ex, "滑动条进度改变出错", LogLevel.Hint)
+            End Try
+        End Set
+    End Property
+    Private Sub RefreshWidth(sender As Object, e As SizeChangedEventArgs) Handles Me.SizeChanged
+        If Not IsNothing(e) Then PanMain.Width = e.NewSize.Width
+        AniStop("MySlider Progress " & Uuid)
+        Dim NewWidth As Double = _Value / MaxValue * (ActualWidth - 16)
+        LineFore.Width = Math.Max(0, NewWidth + If(NewWidth < 0.5, 0, 0.5))
+        LineBack.Width = Math.Max(0, ActualWidth - 16 - NewWidth + If(ActualWidth - 16 - NewWidth < 0.5, 0, 0.5))
+        SetLeft(ShapeDot, NewWidth)
+    End Sub
+
+    '拖动
+
+    Public GetHintText As [Delegate]
+    Private Sub DragStart(sender As Object, e As MouseButtonEventArgs) Handles Me.MouseLeftButtonDown
+        e.Handled = True '防止 ScrollViewer 失焦问题
+        DragControl = Me
+        FrmMain.DragDoing()
+        AniStart({
+                 AaScaleTransform(ShapeDot, 0.8 - CType(ShapeDot.RenderTransform, ScaleTransform).ScaleX, 75,, New AniEaseOutFluent)
+            }, "MySlider Scale " & Uuid)
+        '更新 Popup
+        If GetHintText IsNot Nothing Then
+            TextHint.Text = GetHintText.DynamicInvoke(Value)
+            Popup.IsOpen = True
+            AniStop("MySlider KeyPopup " & Uuid)
+        End If
+    End Sub
+    Public Sub DragDoing()
+        Dim Percent As Double = MathRange((Mouse.GetPosition(PanMain).X - 8) / (ActualWidth - 16), 0, 1)
+        Dim NewValue As Integer = Percent * MaxValue
+        If Not NewValue = Value Then
+            Value = NewValue
+        End If
+        '更新 Popup
+        If GetHintText IsNot Nothing Then TextHint.Text = GetHintText.DynamicInvoke(NewValue)
+    End Sub
+    Public Sub DragStop()
+        RefreshColor()
+        AniStart({
+                 AaScaleTransform(ShapeDot, 1 - CType(ShapeDot.RenderTransform, ScaleTransform).ScaleX, 200,, New AniEaseOutFluent)
+            }, "MySlider Scale " & Uuid)
+        If GetHintText IsNot Nothing Then Popup.IsOpen = False
+    End Sub
+
+    '指向动画
+
+    Private Sub RefreshColor() Handles Me.IsEnabledChanged, Me.MouseEnter, Me.MouseLeave
+        Try
+
+            '判断当前颜色
+            Dim ColorName As String
+            Dim AnimationTime As Integer
+            If IsEnabled Then
+                If IsMouseOver OrElse (Not IsNothing(DragControl) AndAlso DragControl.Equals(Me)) Then
+                    ColorName = "ColorBrush3"
+                    AnimationTime = 100
+                Else
+                    ColorName = "ColorBrush1"
+                    AnimationTime = 200
+                End If
+            Else
+                ColorName = "ColorBrushGray4"
+                AnimationTime = 200
+            End If
+            '触发颜色动画
+            If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+                '有动画
+                AniStart({AaColor(Me, BorderBrushProperty, ColorName, AnimationTime)}, "MySlider Color " & Uuid)
+            Else
+                '无动画
+                AniStop("MySlider Color " & Uuid)
+                SetResourceReference(BorderBrushProperty, ColorName)
+            End If
+
+        Catch ex As Exception
+            Log(ex, "滑动条颜色改变出错")
+        End Try
+    End Sub
+
+    '按键改变
+
+    Public Property ValueByKey As UInteger = 1
+    Private Sub MySlider_MouseEnter() Handles Me.MouseEnter
+        Focus() '确保按键能改变值
+    End Sub
+    Private Sub MySlider_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+        '拒绝一边拖动一边用按键改变
+        If ReferenceEquals(Me, DragControl) Then Exit Sub
+        '改变值
+        If e.Key = Key.Left Then
+            ChangeByKey = True
+            Value -= ValueByKey
+            ChangeByKey = False
+            e.Handled = True
+        ElseIf e.Key = Key.Right Then
+            ChangeByKey = True
+            Value += ValueByKey
+            ChangeByKey = False
+            e.Handled = True
+        Else
+            Exit Sub
+        End If
+        '更新 Popup
+        If GetHintText IsNot Nothing Then
+            TextHint.Text = GetHintText.DynamicInvoke(Value)
+            Popup.IsOpen = True
+            AniStop("MySlider KeyPopup " & Uuid)
+            AniStart(AaCode(Sub() Popup.IsOpen = False, 700 * AniSpeed), "MySlider KeyPopup " & Uuid)
+        End If
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MySliderDot.xaml

@@ -0,0 +1,19 @@
+<Border x:Class="MySliderDot"
+             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" 
+             mc:Ignorable="d" 
+             d:DesignWidth="16" d:DesignHeight="162" 
+             FocusVisualStyle="{x:Null}"
+             MinWidth="16" UseLayoutRounding="False" SnapsToDevicePixels="False" BorderBrush="{DynamicResource ColorBrush1}" Name="PanBack" Background="{StaticResource ColorBrushSemiTransparent}" Focusable="True">
+    <Grid x:Name="PanMain" MinWidth="16" MaxWidth="16" RenderTransformOrigin="0.5,0.5">
+        <Line IsHitTestVisible="False" Width="0" Name="LineBack" Stroke="{StaticResource ColorBrushGray5}" StrokeThickness="1.5" Y2="10000" X1="2" X2="2" VerticalAlignment="Bottom" Height="0" SnapsToDevicePixels="True" Margin="0,0,0,1" />
+        <Line IsHitTestVisible="False" Width="0" Name="LineFore" Stroke="{Binding ElementName=PanBack, Path=BorderBrush}" StrokeThickness="1.5" Y2="10000" X1="2" X2="2" Height="0" VerticalAlignment="Top" SnapsToDevicePixels="True" Margin="0,1,0,0" />
+        <Ellipse IsHitTestVisible="True" VerticalAlignment="Top" Height="16" Stroke="White" StrokeThickness="1.5" Fill="{DynamicResource ColorBrush3}" Name="ShapeDot" Width="16" HorizontalAlignment="Center" RenderTransformOrigin="0.5,0.5" Opacity="0.8">
+            <Ellipse.RenderTransform>
+                <ScaleTransform ScaleX="2.3" ScaleY="2.3" />
+            </Ellipse.RenderTransform>
+        </Ellipse>
+    </Grid>
+</Border>

Plain Craft Launcher 2/Controls/MySliderDot.xaml.vb

@@ -0,0 +1,169 @@
+Public Class MySliderDot
+
+    '基础
+
+    Public Uuid As Integer = GetUuid()
+    Public Event Change(sender As Object, user As Boolean)
+    Public Event PreviewChange(sender As Object, e As RouteEventArgs)
+
+    '自定义属性
+
+    Private _MaxValue As Integer = 100
+    Public Property MaxValue As Integer
+        Get
+            Return _MaxValue
+        End Get
+        Set(value As Integer)
+            If value = _MaxValue Then Exit Property
+            _MaxValue = value
+            RefreshHeight(Nothing, Nothing)
+        End Set
+    End Property
+    Private ChangeByKey As Boolean = False
+    Private _Value As Integer = 0
+    Public Property Value As Integer
+        Get
+            Return _Value
+        End Get
+        Set(newValue As Integer)
+            Try
+
+                newValue = MathRange(newValue, 0, MaxValue)
+                If _Value = newValue Then Exit Property
+
+                '触发前瞻事件，修改新值
+                Dim OldValue = _Value
+                _Value = newValue
+                If AniControlEnabled = 0 Then
+                    Dim e = New RouteEventArgs(False)
+                    RaiseEvent PreviewChange(Me, e)
+                    If e.Handled Then
+                        _Value = OldValue
+                        Exit Property
+                    End If
+                End If
+
+                If IsLoaded AndAlso AniControlEnabled = 0 Then
+                    If ActualHeight < 16 Then Exit Property
+                    Dim NewHeight As Double = _Value / MaxValue * (ActualHeight - 16)
+                    Dim DeltaProcess As Double = Math.Abs(LineFore.Height / (ActualHeight - 16) - _Value / MaxValue)
+                    Dim Time As Double = (1 - Math.Pow(1 - DeltaProcess, 3)) * 400 + If(ChangeByKey, 100, 0)
+                    AniStart({
+                            AaHeight(LineFore, Math.Max(0, NewHeight + If(NewHeight < 0.5, 0, 0.5)) - LineFore.Height, Time,, If(Time > 50, New AniEaseOutFluent, New AniEaseLinear)),
+                            AaHeight(LineBack, Math.Max(0, ActualHeight - 16 - NewHeight + If(ActualHeight - 16 - NewHeight < 0.5, 0, 0.5)) - LineBack.Height, Time,, If(Time > 50, New AniEaseOutFluent, New AniEaseLinear)),
+                            AaY(ShapeDot, NewHeight - ShapeDot.Margin.Top, Time,, If(Time > 50, New AniEaseOutFluent, New AniEaseLinear))
+                         }, "MySlider Progress " & Uuid)
+                Else
+                    RefreshHeight(Nothing, Nothing)
+                End If
+                If AniControlEnabled = 0 Then RaiseEvent Change(Me, False)
+
+            Catch ex As Exception
+                Log(ex, "滑动条进度改变出错", LogLevel.Hint)
+            End Try
+        End Set
+    End Property
+    Private Sub RefreshHeight(sender As Object, e As SizeChangedEventArgs) Handles Me.SizeChanged
+        If Not IsNothing(e) Then PanMain.Height = e.NewSize.Height
+        AniStop("MySlider Progress " & Uuid)
+        Dim NewHeight As Double = _Value / MaxValue * (ActualHeight - 16)
+        LineFore.Height = Math.Max(0, NewHeight + If(NewHeight < 0.5, 0, 0.5))
+        LineBack.Height = Math.Max(0, ActualHeight - 16 - NewHeight + If(ActualHeight - 16 - NewHeight < 0.5, 0, 0.5))
+        SetTop(ShapeDot, NewHeight)
+    End Sub
+
+    '拖动
+
+    Public GetHintText As [Delegate]
+    Private Sub DragStart(sender As Object, e As MouseButtonEventArgs) Handles ShapeDot.MouseLeftButtonDown
+        e.Handled = True '防止 ScrollViewer 失焦问题
+        DragControl = Me
+        AniStart({
+                 AaScaleTransform(ShapeDot, 2 - CType(ShapeDot.RenderTransform, ScaleTransform).ScaleX, 100,, New AniEaseOutFluent)
+            }, "MySlider Scale " & Uuid)
+    End Sub
+    Public Sub DragDoing()
+        Dim Percent As Double = MathRange((Mouse.GetPosition(PanMain).Y - 8) / (ActualHeight - 16), 0, 1)
+        Dim NewValue As Integer = Percent * MaxValue
+        If Not NewValue = Value Then Value = NewValue
+    End Sub
+    Public Sub DragStop()
+        RefreshColor()
+        AniStart({
+                 AaScaleTransform(ShapeDot, 2.3 - CType(ShapeDot.RenderTransform, ScaleTransform).ScaleX, 200,, New AniEaseOutFluent)
+            }, "MySlider Scale " & Uuid)
+        If Value > 0 Then
+            Value = MaxValue
+        Else
+            FrmMain.SliderDrag_Finish()
+        End If
+    End Sub
+
+    '指向动画
+
+    Private Sub RefreshColor() Handles Me.IsEnabledChanged, Me.MouseEnter, Me.MouseLeave
+        'Try
+
+        '    '判断当前颜色
+        '    Dim ColorName As String
+        '    Dim AnimationTime As Integer
+        '    If IsEnabled Then
+        '        If IsMouseOver OrElse (Not IsNothing(DragControl) AndAlso DragControl.Equals(Me)) Then
+        '            ColorName = "ColorBrush3"
+        '            AnimationTime = 100
+        '        Else
+        '            ColorName = "ColorBrush1"
+        '            AnimationTime = 200
+        '        End If
+        '    Else
+        '        ColorName = "ColorBrushGray4"
+        '        AnimationTime = 200
+        '    End If
+        '    '触发颜色动画
+        '    If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+        '        '有动画
+        '        AniStart({AaColor(Me, BorderBrushProperty, ColorName, AnimationTime)}, "MySlider Color " & Uuid)
+        '    Else
+        '        '无动画
+        '        AniStop("MySlider Color " & Uuid)
+        '        SetResourceReference(BorderBrushProperty, ColorName)
+        '    End If
+
+        'Catch ex As Exception
+        '    Log(ex, "滑动条颜色改变出错")
+        'End Try
+    End Sub
+
+    '按键改变
+
+    'Public Property ValueByKey As UInteger = 1
+    'Private Sub MySlider_MouseEnter() Handles Me.MouseEnter
+    '    Focus() '确保按键能改变值
+    'End Sub
+    'Private Sub MySlider_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+    '    '拒绝一边拖动一边用按键改变
+    '    If ReferenceEquals(Me, DragControl) Then Exit Sub
+    '    '改变值
+    '    If e.Key = Key.Left Then
+    '        ChangeByKey = True
+    '        Value -= ValueByKey
+    '        ChangeByKey = False
+    '        e.Handled = True
+    '    ElseIf e.Key = Key.Right Then
+    '        ChangeByKey = True
+    '        Value += ValueByKey
+    '        ChangeByKey = False
+    '        e.Handled = True
+    '    Else
+    '        Exit Sub
+    '    End If
+    '    '更新 Popup
+    '    If GetHintText IsNot Nothing Then
+    '        TextHint.Text = GetHintText.DynamicInvoke(Value)
+    '        Popup.IsOpen = True
+    '        AniStop("MySlider KeyPopup " & Uuid)
+    '        AniStart(AaCode(Sub() Popup.IsOpen = False, 700 * AniSpeed), "MySlider KeyPopup " & Uuid)
+    '    End If
+    'End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyTextBox.vb

@@ -0,0 +1,277 @@
+Public Class MyTextBox
+    Inherits TextBox
+
+    '自定义属性
+
+    Public Property HasAnimation As Boolean = True
+    Public Property ShowValidateResult As Boolean = True
+
+    '额外控件初始化
+
+    Private _labWrong As TextBlock = Nothing
+    Private ReadOnly Property labWrong As TextBlock
+        Get
+            If Template Is Nothing Then Return Nothing
+            If _labWrong Is Nothing Then _labWrong = Template.FindName("labWrong", Me)
+            Return _labWrong
+        End Get
+    End Property
+    Private _labHint As TextBlock = Nothing
+    Private ReadOnly Property labHint As TextBlock
+        Get
+            If Template Is Nothing Then Return Nothing
+            If _labHint Is Nothing Then _labHint = Template.FindName("labHint", Me)
+            Return _labHint
+        End Get
+    End Property
+    Public Overrides Sub OnApplyTemplate()
+        MyBase.OnApplyTemplate()
+        If HintText = "" OrElse labHint.Text <> "" Then Exit Sub
+        labHint.Text = If(Text = "", HintText, "")
+    End Sub
+
+    '事件
+
+    Public Uuid As Integer = GetUuid()
+    Public Shared Event ValidateChanged(sender As Object, e As EventArgs)
+    Public ChangedEventList As New List(Of RoutedEventHandler)
+    Public Custom Event ValidatedTextChanged As RoutedEventHandler
+        AddHandler(value As RoutedEventHandler)
+            ChangedEventList.Add(value)
+        End AddHandler
+        RemoveHandler(value As RoutedEventHandler)
+            ChangedEventList.Remove(value)
+        End RemoveHandler
+        RaiseEvent(sender As Object, e As TextChangedEventArgs)
+            For Each handler As RoutedEventHandler In ChangedEventList
+                If Not IsNothing(handler) Then handler.Invoke(sender, e)
+            Next
+        End RaiseEvent
+    End Event
+
+    '输入验证
+
+    ''' <summary>
+    ''' 输入验证结果。若为空字符串则无错误，否则为第一个错误原因。
+    ''' </summary>
+    Public Property ValidateResult As String
+        Get
+            Return GetValue(ValidateResultProperty)
+        End Get
+        Set(value As String)
+            SetValue(ValidateResultProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly ValidateResultProperty As DependencyProperty = DependencyProperty.Register("ValidateResult", GetType(String), GetType(MyTextBox), New PropertyMetadata(""))
+    ''' <summary>
+    ''' 输入验证的规则。
+    ''' </summary>
+    Public Property ValidateRules As ObjectModel.Collection(Of Validate)
+        Get
+            Return _ValidateRules
+        End Get
+        Set(Value As ObjectModel.Collection(Of Validate))
+            _ValidateRules = Value
+            Validate()
+        End Set
+    End Property
+    Private _ValidateRules As New ObjectModel.Collection(Of Validate)
+    ''' <summary>
+    ''' 进行输入验证。
+    ''' </summary>
+    Public Sub Validate() Handles Me.Loaded
+        '执行输入验证
+        ValidateResult = ""
+        For Each ValidateRule As Validate In ValidateRules
+            ValidateResult = ValidateRule.Validate(Text)
+            If IsNothing(ValidateResult) OrElse Not ValidateResult = "" Then Exit For
+        Next
+        Dim NewResult As Integer = If(ValidateResult = "", 0, 1)
+        '根据结果改变样式
+        If ShownValidateResult <> NewResult Then
+            If IsLoaded AndAlso labWrong IsNot Nothing Then
+                ChangeValidateResult(ValidateResult = "", True)
+            Else
+                RunInNewThread(Sub()
+                                   Thread.Sleep(30)
+                                   RunInUi(Sub() ChangeValidateResult(NewResult, False))
+                               End Sub, "DelayedValidate Change")
+            End If
+        End If
+        '更新错误信息
+        If ShowValidateResult AndAlso Not ValidateResult = "" Then
+            If IsLoaded AndAlso labWrong IsNot Nothing Then
+                labWrong.Text = ValidateResult
+            Else
+                RunInNewThread(Sub()
+                                   Dim IsFinished As Boolean = False
+                                   Do Until IsFinished
+                                       Thread.Sleep(20)
+                                       RunInUiWait(Sub()
+                                                       If labWrong IsNot Nothing Then
+                                                           labWrong.Text = ValidateResult
+                                                           IsFinished = True
+                                                       End If
+                                                       If Not IsLoaded Then IsFinished = True
+                                                   End Sub)
+                                   Loop
+                               End Sub, "DelayedValidate Text")
+            End If
+        End If
+    End Sub
+    Private ShownValidateResult As Integer = -1
+    Private Sub ChangeValidateResult(NewResult As Boolean, IsLoaded As Boolean)
+        If IsLoaded AndAlso AniControlEnabled = 0 AndAlso IsTextChanged AndAlso labWrong IsNot Nothing Then
+            If NewResult Then
+                '变为正确
+                ShownValidateResult = 0
+                AniStart({
+                         AaOpacity(labWrong, -labWrong.Opacity, 150),
+                         AaHeight(labWrong, -labWrong.Height, 150,, New AniEaseOutFluent),
+                         AaCode(Sub() labWrong.Visibility = Visibility.Collapsed,, True)
+                    }, "MyTextBox Validate " & Uuid)
+            ElseIf ShowValidateResult Then
+                '变为错误
+                ShownValidateResult = 1
+                labWrong.Visibility = Visibility.Visible
+                AniStart({
+                         AaOpacity(labWrong, 1 - labWrong.Opacity, 170),
+                         AaHeight(labWrong, 21 - labWrong.Height, 300,, New AniEaseOutBack(AniEasePower.Weak))
+                    }, "MyTextBox Validate " & Uuid)
+            Else
+                '变为错误，但不显示文本
+                ShownValidateResult = 2
+            End If
+        Else
+            ShownValidateResult = 3
+            'AniStop("MyTextBox Validate " & Uuid)
+            'If NewResult Then
+            '    '变为正确
+            '    labWrong.Opacity = 0
+            '    labWrong.Height = 0
+            '    labWrong.Visibility = Visibility.Collapsed
+            'Else
+            '    '变为错误
+            '    labWrong.Visibility = Visibility.Visible
+            '    labWrong.Text = ValidateResult
+            '    labWrong.Opacity = 1
+            '    labWrong.Height = 20.5
+            'End If
+            'Dim OriginalEnabled As Integer = AniControlEnabled
+            'AniControlEnabled += 1
+            'RefreshColor()
+            'AniControlEnabled = OriginalEnabled
+        End If
+        RefreshColor()
+        RaiseEvent ValidateChanged(Me, New EventArgs)
+    End Sub
+
+    '提示文本
+
+    ''' <summary>
+    ''' 是否已经由用户输入过文本，若尚未输入过，则不显示输入检查的失败。
+    ''' </summary>
+    Private IsTextChanged As Boolean = False
+    Private _HintText As String = ""
+    Public Property HintText As String
+        Get
+            Return _HintText
+        End Get
+        Set(value As String)
+            _HintText = value
+            If labHint IsNot Nothing Then labHint.Text = If(Text = "", HintText, "")
+        End Set
+    End Property
+    Private Sub MyTextBox_TextChanged(sender As MyTextBox, e As TextChangedEventArgs) Handles Me.TextChanged
+        Try
+            '改变提示文本
+            If labHint IsNot Nothing Then labHint.Text = If(Text = "", HintText, "")
+            '改变输入记录
+            IsTextChanged = IsLoaded
+            '进行输入验证
+            Validate()
+            If Not ValidateResult = "" Then Exit Sub
+            '改变文本
+            RaiseEvent ValidatedTextChanged(sender, e)
+        Catch ex As Exception
+            Log(ex, "进行输入验证时出错", LogLevel.Assert)
+        End Try
+    End Sub
+
+    '颜色
+
+    Private Sub RefreshColor() Handles Me.IsEnabledChanged, Me.MouseEnter, Me.MouseLeave, Me.GotFocus, Me.LostFocus
+        Try
+            '手动关闭动画
+            If Not HasAnimation Then Exit Sub
+            '不对 ComboBox 从属进行动画
+            If TemplatedParent IsNot Nothing AndAlso TypeOf TemplatedParent Is MyComboBox Then Exit Sub
+            '判断当前颜色
+            Dim ForeColorName As String, BackColorName As String
+            Dim AnimationTime As Integer
+            If IsEnabled Then
+                If ValidateResult = "" OrElse Not IsTextChanged Then
+                    If IsFocused Then
+                        ForeColorName = "ColorBrush4"
+                        BackColorName = "ColorBrush9"
+                        AnimationTime = 60
+                    ElseIf IsMouseOver Then
+                        ForeColorName = "ColorBrush3"
+                        BackColorName = "ColorBrushHalfWhite"
+                        AnimationTime = 100
+                    Else
+                        ForeColorName = "ColorBrush1"
+                        BackColorName = "ColorBrushHalfWhite"
+                        AnimationTime = 200
+                    End If
+                Else
+                    ForeColorName = "ColorBrushRedLight"
+                    BackColorName = "ColorBrushRedBack"
+                    AnimationTime = 200
+                    'If IsFocused OrElse IsMouseOver Then
+                    '    ForeColorName = "ColorBrushRedLight"
+                    '    BackColorName = "ColorBrushRedBack"
+                    '    AnimationTime = 100
+                    'Else
+                    '    ForeColorName = "ColorBrushRedDark"
+                    '    BackColorName = "ColorBrushHalfWhite"
+                    '    AnimationTime = 200
+                    'End If
+                End If
+            Else
+                ForeColorName = "ColorBrushGray4"
+                BackColorName = "ColorBrushHalfWhite"
+                AnimationTime = 200
+            End If
+            '触发颜色动画
+            If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+                '有动画
+                AniStart({
+                         AaColor(Me, BorderBrushProperty, ForeColorName, AnimationTime)，
+                         AaColor(Me, BackgroundProperty, BackColorName, AnimationTime)
+                     }, "MyTextBox Color " & Uuid)
+            Else
+                '无动画
+                AniStop("MyTextBox Color " & Uuid)
+                SetResourceReference(BorderBrushProperty, ForeColorName)
+                SetResourceReference(BackgroundProperty, BackColorName)
+            End If
+
+        Catch ex As Exception
+            Log(ex, "文本框颜色改变出错")
+        End Try
+    End Sub
+    Private Sub RefreshTextColor() Handles Me.IsEnabledChanged
+        Dim NewColor As MyColor = If(IsEnabled, ColorGray1, ColorGray4)
+        If CType(Foreground, SolidColorBrush).Color.R = NewColor.R Then Exit Sub
+        If IsLoaded AndAlso AniControlEnabled = 0 AndAlso Not Text = "" Then
+            '有动画
+            AniStart({AaColor(Me, ForegroundProperty, If(IsEnabled, "ColorBrushGray1", "ColorBrushGray4"), 200)}, "MyTextBox TextColor " & Uuid)
+        Else
+            '无动画
+            AniStop("MyTextBox TextColor " & Uuid)
+            Foreground = NewColor
+        End If
+    End Sub
+
+End Class

Plain Craft Launcher 2/Controls/MyTextButton.vb

@@ -0,0 +1,110 @@
+Public Class MyTextButton
+    Inherits Label
+
+    Public Event Click(sender As Object, e As EventArgs)
+
+    '基础
+
+    Public Uuid As Integer = GetUuid()
+    Public Sub New()
+        SetResourceReference(ForegroundProperty, "ColorBrush1")
+        Background = ColorSemiTransparent
+    End Sub
+
+    '文本
+
+    Public Property Text As String
+        Get
+            Return GetValue(TextProperty)
+        End Get
+        Set(value As String)
+            SetValue(TextProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly TextProperty As DependencyProperty =
+        DependencyProperty.Register("Text", GetType(String), GetType(MyTextButton), New PropertyMetadata("", Sub(sender As MyTextButton, e As DependencyPropertyChangedEventArgs)
+                                                                                                                 If Not e.OldValue = e.NewValue Then
+                                                                                                                     AniStart({
+                                                                                                                              AaOpacity(sender, -sender.Opacity, 50),
+                                                                                                                              AaCode(Sub() sender.Content = e.NewValue,, True),
+                                                                                                                              AaOpacity(sender, 1, 170)
+                                                                                                                        }, "MyTextButton Text " & sender.Uuid)
+                                                                                                                 End If
+                                                                                                             End Sub))
+
+    '鼠标事件
+
+    Public IsMouseDown As Boolean = False
+    Private Sub MyTextButton_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs) Handles Me.PreviewMouseLeftButtonDown
+        IsMouseDown = True
+        e.Handled = True
+    End Sub
+    Private Sub MyTextButton_MouseLeave() Handles Me.MouseLeave
+        IsMouseDown = False
+    End Sub
+    Private Sub MyTextButton_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs) Handles Me.PreviewMouseLeftButtonUp
+        If IsMouseDown Then
+            IsMouseDown = False
+            Log("[Control] 按下文本按钮：" & Text)
+            RaiseEvent Click(Me, Nothing)
+            ModEvent.TryStartEvent(EventType, EventData)
+            e.Handled = True
+        End If
+    End Sub
+
+    '指向动画
+
+    Private Const AnimationTimeIn As Integer = 100
+    Private Const AnimationTimeOut As Integer = 200
+    Private ColorName As String
+    Private Sub RefreshColor() Handles Me.MouseEnter, Me.MouseLeave, Me.IsEnabledChanged, Me.MouseLeftButtonDown， Me.MouseLeftButtonUp
+        '判断当前颜色
+        Dim ForeName As String
+        Dim Time As Integer
+        If IsMouseDown Then
+            ForeName = "ColorBrush4"
+            Time = 30
+        ElseIf IsMouseOver Then
+            ForeName = "ColorBrush3"
+            Time = AnimationTimeIn
+        Else
+            ForeName = "ColorBrush1"
+            Time = AnimationTimeOut
+        End If
+        '重复性验证
+        If ColorName = ForeName Then Exit Sub
+        ColorName = ForeName
+        '触发颜色动画
+        If IsLoaded AndAlso AniControlEnabled = 0 Then '防止默认属性变更触发动画
+            '有动画
+            AniStart(AaColor(Me, ForegroundProperty, ForeName, Time), "MyTextButton Color " & Uuid)
+        Else
+            '无动画
+            AniStop("MyTextButton Color " & Uuid)
+            SetResourceReference(ForegroundProperty, ForeName)
+        End If
+    End Sub
+
+    '实现自定义事件
+    Public Property EventType As String
+        Get
+            Return GetValue(EventTypeProperty)
+        End Get
+
+        Set(ByVal value As String)
+            SetValue(EventTypeProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly EventTypeProperty As DependencyProperty = DependencyProperty.Register("EventType", GetType(String), GetType(MyTextButton), New PropertyMetadata(Nothing))
+    Public Property EventData As String
+        Get
+            Return GetValue(EventDataProperty)
+        End Get
+
+        Set(ByVal value As String)
+            SetValue(EventDataProperty, value)
+        End Set
+    End Property
+    Public Shared ReadOnly EventDataProperty As DependencyProperty = DependencyProperty.Register("EventData", GetType(String), GetType(MyTextButton), New PropertyMetadata(Nothing))
+
+End Class