From 2aba4a96ff7e257985d80d0b673f62adf6ad8f9e Mon Sep 17 00:00:00 2001 From: tangge233 Date: Sat, 21 Sep 2024 16:28:45 +0800 Subject: [PATCH] =?UTF-8?q?fix:=20=E6=88=AA=E5=9B=BE=E4=B8=8D=E5=AD=98?= =?UTF-8?q?=E5=9C=A8=E6=8F=90=E7=A4=BA=20&=20=E6=9F=A5=E7=9C=8B=E7=89=88?= =?UTF-8?q?=E6=9C=AC=E9=94=99=E8=AF=AF?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../PageVersion/PageVersionScreenshot.xaml | 28 +++++++++++++++++-- .../PageVersion/PageVersionScreenshot.xaml.vb | 14 ++++++++-- 2 files changed, 37 insertions(+), 5 deletions(-) diff --git a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionScreenshot.xaml b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionScreenshot.xaml index dd81360e..03bf2ac7 100644 --- a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionScreenshot.xaml +++ b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionScreenshot.xaml @@ -6,8 +6,29 @@ mc:Ignorable="d" x:Class="PageVersionScreenshot" PanScroll="{Binding ElementName=PanBack}" Grid.IsSharedSizeScope="True"> - - - + + diff --git a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionScreenshot.xaml.vb b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionScreenshot.xaml.vb index e1b46551..08f37198 100644 --- a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionScreenshot.xaml.vb +++ b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionScreenshot.xaml.vb @@ -7,7 +7,7 @@ Public Class PageVersionScreenshot '重复加载部分 PanBack.ScrollToHome() - + ScreenshotPath = PageVersionLeft.Version.Path + "screenshots" Reload() '非重复加载部分 @@ -17,7 +17,7 @@ Public Class PageVersionScreenshot End Sub Dim FileList As List(Of String) = New List(Of String) - Dim ScreenshotPath As String = PageVersionLeft.Version.Path + "screenshots" + Dim ScreenshotPath As String ''' ''' 确保当前页面上的信息已正确显示。 @@ -26,6 +26,11 @@ Public Class PageVersionScreenshot AniControlEnabled += 1 PanBack.ScrollToHome() LoadFileList() + If FileList.Count.Equals(0) Then + PanNoPic.Visibility = Visibility.Visible + Else + PanNoPic.Visibility = Visibility.Collapsed + End If AniControlEnabled -= 1 End Sub @@ -141,4 +146,9 @@ Public Class PageVersionScreenshot Hint("截图文件不存在!") End If End Sub + + Private Sub BtnOpenFolder_Click(sender As Object, e As MouseButtonEventArgs) + If Not Directory.Exists(ScreenshotPath) Then Directory.CreateDirectory(ScreenshotPath) + OpenExplorer("""" & ScreenshotPath & """") + End Sub End Class