254 lines
12 KiB
VB.net
254 lines
12 KiB
VB.net
|
|
|
|
Public Class PageInstanceScreenshot
|
|
Implements IRefreshable
|
|
Private Sub RefreshSelf() Implements IRefreshable.Refresh
|
|
Refresh()
|
|
End Sub
|
|
Public Shared Async Sub Refresh()
|
|
If FrmInstanceScreenshot IsNot Nothing Then Await FrmInstanceScreenshot.Reload()
|
|
FrmInstanceLeft.ItemScreenshot.Checked = True
|
|
Hint("正在刷新……", Log:=False)
|
|
End Sub
|
|
|
|
Private IsLoad As Boolean = False
|
|
Private Async Sub PageSetupLaunch_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
|
|
'重复加载部分
|
|
PanBack.ScrollToHome()
|
|
ScreenshotPath = PageInstanceLeft.Instance.PathIndie + "screenshots\"
|
|
If Not Directory.Exists(ScreenshotPath) Then Directory.CreateDirectory(ScreenshotPath)
|
|
Await Reload()
|
|
|
|
'非重复加载部分
|
|
If IsLoad Then Return
|
|
IsLoad = True
|
|
|
|
End Sub
|
|
|
|
Dim FileList As List(Of String) = New List(Of String)
|
|
Dim ScreenshotPath As String
|
|
|
|
''' <summary>
|
|
''' 确保当前页面上的信息已正确显示。
|
|
''' </summary>
|
|
Public Async Function Reload() As Tasks.Task
|
|
AniControlEnabled += 1
|
|
PanBack.ScrollToHome()
|
|
Await LoadFileList()
|
|
AniControlEnabled -= 1
|
|
End Function
|
|
|
|
Private Sub RefreshTip()
|
|
If FileList.Count.Equals(0) Then
|
|
PanNoPic.Visibility = Visibility.Visible
|
|
PanContent.Visibility = Visibility.Collapsed
|
|
Else
|
|
PanNoPic.Visibility = Visibility.Collapsed
|
|
PanContent.Visibility = Visibility.Visible
|
|
End If
|
|
End Sub
|
|
|
|
Private Async Function LoadFileList() As Tasks.Task
|
|
Log("[Screenshot] 刷新截图文件")
|
|
FileList.Clear()
|
|
If Directory.Exists(ScreenshotPath) Then FileList = Directory.EnumerateFiles(ScreenshotPath, "*", SearchOption.TopDirectoryOnly).ToList()
|
|
Dim AllowedSuffix As String() = {".png", ".jpg", ".jpeg", ".bmp", ".webp", ".tiff"}
|
|
FileList = FileList.Where(Function(e) AllowedSuffix.Contains(New FileInfo(e).Extension.ToLower())).ToList()
|
|
PanList.Children.Clear()
|
|
RefreshTip()
|
|
FileList = FileList.Where(Function(e) Not e.ContainsF("\debug\")).ToList() ' 排除资源包调试输出
|
|
FileList = FileList.Sort(Function(a, b) New FileInfo(a).CreationTime > New FileInfo(b).CreationTime)
|
|
Log("[Screenshot] 共发现 " & FileList.Count & " 个截图文件")
|
|
If FileList.Count = 0 Then Return
|
|
Await ListAppend(20, 0)
|
|
End Function
|
|
|
|
Private Async Sub RequireAppend() Handles PanBack.ScrollChanged
|
|
If (Not _AppendLock) AndAlso PanBack.VerticalOffset + PanBack.ViewportHeight >= PanBack.ExtentHeight Then
|
|
Await ListAppend()
|
|
End If
|
|
End Sub
|
|
|
|
Private _AppendLock As Boolean = False
|
|
Private _Offset As Integer = 0
|
|
Private Async Function ListAppend(Optional Count As Integer = 20, Optional Offset As Integer = -1) As Tasks.Task
|
|
_AppendLock = True
|
|
If Offset = -1 Then
|
|
If _Offset * Count > FileList.Count Then Return
|
|
Offset = _Offset + 1
|
|
_Offset += 1
|
|
Else
|
|
_Offset = Offset
|
|
End If
|
|
If Count * Offset > FileList.Count Then Return
|
|
For j = Count * Offset To Count * (Offset + 1) - 1
|
|
If j >= FileList.Count Then Exit For
|
|
Dim i = FileList.ElementAt(j)
|
|
Try
|
|
If Not File.Exists(i) Then Continue For ' 文件在加载途中消失了
|
|
If File.GetAttributes(i).HasFlag(FileAttributes.Hidden) Then Continue For ' 隐藏文件
|
|
If New FileInfo(i).Length = 0 Then Continue For ' 空文件
|
|
Dim myCard As New MyCard With {
|
|
.Height = Double.NaN, ' 允许高度自适应
|
|
.Width = Double.NaN, ' 允许宽度自适应
|
|
.Margin = New Thickness(7),
|
|
.Tag = i,
|
|
.ToolTip = i.Replace(ScreenshotPath, "") '适配高清截图模组
|
|
}
|
|
Dim grid As New Grid
|
|
myCard.Children.Add(grid)
|
|
|
|
grid.RowDefinitions.Add(New RowDefinition With {.Height = New GridLength(9)})
|
|
grid.RowDefinitions.Add(New RowDefinition With {.Height = New GridLength(120)})
|
|
grid.RowDefinitions.Add(New RowDefinition)
|
|
|
|
'图片
|
|
Dim image As New Image
|
|
image.Source = Await Tasks.Task.Run(Function()
|
|
Dim bitmapImage As New BitmapImage()
|
|
Dim loadSource As String = i
|
|
Using fs As New FileStream(i, FileMode.Open, FileAccess.Read)
|
|
Dim Header(1) As Byte
|
|
fs.Read(Header, 0, 2)
|
|
fs.Seek(0, SeekOrigin.Begin)
|
|
If Header(0) = 82 AndAlso Header(1) = 73 Then
|
|
'WebP 格式，需要转换
|
|
Dim FileBytes(fs.Length - 1) As Byte
|
|
fs.Read(FileBytes, 0, FileBytes.Length)
|
|
Dim Pic = MyBitmap.WebPDecoder.DecodeFromBytes(FileBytes)
|
|
Dim picTempPath = PathTemp & "Screenshot\"
|
|
Directory.CreateDirectory(picTempPath)
|
|
loadSource = picTempPath & GetHash(i) & ".png"
|
|
Pic.Save(loadSource)
|
|
End If
|
|
End Using
|
|
Using fs As New FileStream(loadSource, FileMode.Open, FileAccess.Read)
|
|
bitmapImage.BeginInit()
|
|
bitmapImage.DecodePixelHeight = 200
|
|
bitmapImage.DecodePixelWidth = 400
|
|
bitmapImage.CacheOption = BitmapCacheOption.OnLoad
|
|
bitmapImage.StreamSource = fs
|
|
bitmapImage.EndInit()
|
|
bitmapImage.Freeze()
|
|
End Using
|
|
Return bitmapImage
|
|
End Function)
|
|
image.Stretch = Stretch.Uniform ' 使图片自适应控件大小
|
|
image.Cursor = Cursors.Hand
|
|
AddHandler image.MouseLeftButtonDown, Sub(sender, e)
|
|
Try
|
|
Process.Start(i) ' 使用系统默认程序打开
|
|
Catch ex As Exception
|
|
Log(ex, "打开截图失败！", LogLevel.Hint)
|
|
End Try
|
|
End Sub
|
|
Grid.SetRow(image, 1)
|
|
grid.Children.Add(image)
|
|
|
|
'按钮
|
|
Dim stackPanel As New StackPanel
|
|
stackPanel.Orientation = Orientation.Horizontal
|
|
stackPanel.HorizontalAlignment = HorizontalAlignment.Center
|
|
stackPanel.Margin = New Thickness(3, 5, 3, 5)
|
|
Grid.SetRow(stackPanel, 2)
|
|
grid.Children.Add(stackPanel)
|
|
|
|
Dim btnOpen As New MyIconTextButton With {
|
|
.Name = "BtnOpen",
|
|
.Text = "打开",
|
|
.LogoScale = 0.8,
|
|
.Logo = Logo.IconButtonOpen,
|
|
.Tag = i
|
|
}
|
|
AddHandler btnOpen.Click, AddressOf btnOpen_Click
|
|
stackPanel.Children.Add(btnOpen)
|
|
Dim btnDelete As New MyIconTextButton With {
|
|
.Name = "BtnDelete",
|
|
.Text = "删除",
|
|
.LogoScale = 0.8,
|
|
.Logo = Logo.IconButtonDelete,
|
|
.Tag = i
|
|
}
|
|
AddHandler btnDelete.Click, AddressOf btnDelete_Click
|
|
stackPanel.Children.Add(btnDelete)
|
|
Dim btnCopy As New MyIconTextButton With {
|
|
.Name = "BtnCopy",
|
|
.Text = "复制",
|
|
.LogoScale = 0.8,
|
|
.Logo = Logo.IconButtonCopy,
|
|
.Tag = i
|
|
}
|
|
AddHandler btnCopy.Click, AddressOf btnCopy_Click
|
|
stackPanel.Children.Add(btnCopy)
|
|
PanList.Children.Add(myCard)
|
|
myCard.Opacity = 0
|
|
AniStart({
|
|
AaOpacity(myCard, 1, 200)
|
|
})
|
|
Catch ex As Exception
|
|
Log(ex, $"[Screenshot] 创建 {i} 截图预览失败，图像可能损坏")
|
|
End Try
|
|
Next
|
|
_AppendLock = False
|
|
End Function
|
|
|
|
Private Sub RemoveItem(Path As String)
|
|
Try
|
|
For Each i In PanList.Children
|
|
If CType(i, MyCard).Tag.Equals(Path) Then
|
|
PanList.Children.Remove(i)
|
|
Exit For
|
|
End If
|
|
Next
|
|
Catch ex As Exception
|
|
Log(ex, "未能找到对应 UI")
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function GetPathFromSender(sender As MyIconTextButton) As String
|
|
Return sender.Tag
|
|
End Function
|
|
|
|
Private Sub btnOpen_Click(sender As MyIconTextButton, e As EventArgs)
|
|
OpenExplorer(GetPathFromSender(sender))
|
|
End Sub
|
|
|
|
Private Sub btnDelete_Click(sender As MyIconTextButton, e As EventArgs)
|
|
Path = GetPathFromSender(sender)
|
|
RemoveItem(Path)
|
|
Try
|
|
My.Computer.FileSystem.DeleteFile(Path, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
|
|
Hint("已将截图移至回收站！")
|
|
Catch ex As Exception
|
|
Log(ex, "删除截图失败！", LogLevel.Hint)
|
|
End Try
|
|
End Sub
|
|
Private Sub btnCopy_Click(sender As MyIconTextButton, e As EventArgs)
|
|
Dim imagePath As String = GetPathFromSender(sender)
|
|
If File.Exists(imagePath) Then
|
|
Dim TryTime = 0
|
|
While TryTime <= 5
|
|
Try
|
|
Log("[Screenshot] 尝试复制" & imagePath & "到剪贴板")
|
|
Clipboard.SetImage(New BitmapImage(New Uri(imagePath)))
|
|
Hint("已复制截图到剪贴板！")
|
|
TryTime = 6
|
|
Exit Sub
|
|
Catch ex As Exception
|
|
TryTime += 1
|
|
Log(ex, $"[Screenshot]第 {TryTime} 次复制尝试失败")
|
|
End Try
|
|
End While
|
|
Hint("截图复制失败！", HintType.Critical)
|
|
Else
|
|
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
|