This commit is contained in:
Ciilu
2025-03-07 22:12:58 +08:00
parent 503244a0de
commit a174c4856a
@@ -1,4 +1,6 @@
Public Class PageSetupUI Imports NAudio.Wave
Public Class PageSetupUI
Public Shadows IsLoaded As Boolean = False Public Shadows IsLoaded As Boolean = False
@@ -355,7 +357,16 @@ Refresh:
PanMusicVolume.Visibility = Visibility.Visible PanMusicVolume.Visibility = Visibility.Visible
PanMusicDetail.Visibility = Visibility.Visible PanMusicDetail.Visibility = Visibility.Visible
BtnMusicClear.Visibility = Visibility.Visible BtnMusicClear.Visibility = Visibility.Visible
CardMusic.Title = "背景音乐(" & EnumerateFiles(Path & "PCL\Musics\").Count & " 首)" Dim validMusicCount As Integer = 0
For Each File In EnumerateFiles(Path & "PCL\Musics\")
Try
Using reader As New AudioFileReader(File.FullName)
validMusicCount += 1
End Using
Catch ex As Exception
End Try
Next
CardMusic.Title = "背景音乐(" & validMusicCount & " 首)"
Else Else
PanMusicVolume.Visibility = Visibility.Collapsed PanMusicVolume.Visibility = Visibility.Collapsed
PanMusicDetail.Visibility = Visibility.Collapsed PanMusicDetail.Visibility = Visibility.Collapsed