update
This commit is contained in:
@@ -1,4 +1,6 @@
|
||||
Public Class PageSetupUI
|
||||
Imports NAudio.Wave
|
||||
|
||||
Public Class PageSetupUI
|
||||
|
||||
Public Shadows IsLoaded As Boolean = False
|
||||
|
||||
@@ -355,7 +357,16 @@ Refresh:
|
||||
PanMusicVolume.Visibility = Visibility.Visible
|
||||
PanMusicDetail.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
|
||||
PanMusicVolume.Visibility = Visibility.Collapsed
|
||||
PanMusicDetail.Visibility = Visibility.Collapsed
|
||||
|
||||
Reference in New Issue
Block a user