文件名称:音乐播放器_重新设计.zip
文件大小:11.88MB
文件格式:ZIP
更新时间:2023-03-12 14:32:49
VB VB.net
VB.net写的音乐播放器 Public Sub 读取音乐文件并且刷新listview1() ListView1.BeginUpdate() ListView1.Items.Clear() ' Dim files As String() = Directory.GetFiles("C:\Users\panwei\Desktop\Music") Dim files As String() = Directory.GetFiles(Application.StartupPath) For Each file As String In files If Path.GetExtension(file) = ".flac" OrElse Path.GetExtension(file) = ".mp3" Then Dim music = New 歌曲(file) Dim t As ListViewItem = New ListViewItem({music.歌曲名, music.歌曲类型, music.歌曲长度_秒, Int(music.是否有歌词)}) t.Tag = file t.BackColor = Color.FromArgb(RND.Next(200, 255), RND.Next(200, 255), RND.Next(200, 255)) ListView1.Items.Add(t) music.close() End If Next ListView1.EndUpdate() End Sub
【文件预览】:
packages
----NAudio.1.10.0()
--------.signature.p7s(9KB)
--------NAudio.1.10.0.nupkg(1.17MB)
--------lib()
音乐播放器_重新设计
----bin()
--------Debug()
----Form1.vb(8KB)
----obj()
--------Debug()
----音乐播放器_重新设计.vbproj(5KB)
----My Project()
--------AssemblyInfo.vb(1KB)
--------Settings.Designer.vb(3KB)
--------Application.myapp(510B)
--------Settings.settings(279B)
--------Resources.resx(5KB)
--------Resources.Designer.vb(3KB)
--------Application.Designer.vb(2KB)
----App.config(183B)
----Form1.resx(6KB)
----packages.config(135B)
----Form1.Designer.vb(7KB)
----歌曲.vb(5KB)
音乐播放器_重新设计.sln