feat: 按F5刷新自定义主页

This commit is contained in:
ZeroWolf233
2024-11-01 21:24:35 +08:00
parent 564ee333aa
commit b04ee5f28f
2 changed files with 11 additions and 0 deletions
@@ -4,6 +4,8 @@
PanBack.ScrollToHome()
PanScroll = PanBack '不知道为啥不能在 XAML 设置
PanLog.Visibility = If(ModeDebug, Visibility.Visible, Visibility.Collapsed)
'
AddHandler Me.KeyDown, AddressOf PressF5
'快照版提示
#If BETA Then
PanHint.Visibility = Visibility.Collapsed
@@ -26,6 +28,12 @@
''' <summary>
''' 刷新自定义主页。
''' </summary>
Private Sub PressF5(sender As Object, e As KeyEventArgs)
If e.Key = Key.F5 Then
ForceRefresh()
End If
End Sub
Private Sub Refresh() Handles Me.Loaded
RunInNewThread(
Sub()