关于音乐播放器
我想自己做一个能在列表中双击就能播放的播放器，如Winamp，Foobar那样的，怎样添加多个文件到例表中，在添加M3u文件的时候能显示歌曲到例表中，请问该怎么做，可能我说的不太清楚，如果需要更详细的信息可以回贴问我的，请各位兄弟姐妹帮帮忙。谢谢。。。。。。。 问题点数：0、回复次数：5Top
1 楼libralibra（食食物者为俊杰: U don't try, U don't know）回复于 2004-12-01 21:37:03 得分 0
1,添加列表用listview就行，很简单。
2，保存m3u或者pls文件其实跟txt一样，你把一个path保存一行，读取的时候读到列表里面显示就可以了
3，双击播放的问题，就是给listview的dbclick事件写代码就ok了，Top
2 楼Futurelewis（过路人）回复于 2004-12-01 21:49:47 得分 0
不好意思，我还没说明一点，我只是一个菜菜鸟，而且是很菜的那种，如果可以的话，最好能说得详细一点（代码之类的），因为我只是刚开始学VB的，很多东西都不懂，如果觉得麻烦就不用，非常感激。。。。Top
3 楼libralibra（食食物者为俊杰: U don't try, U don't know）回复于 2004-12-01 22:15:50 得分 0
以前写的一个生成播放列表的东西，你看看，呵呵，
5个按钮控件，是空间数组，一个全选，一个清空，一个刷新，一个生成列表，一个退出
2个listview，其实1个也行，呵呵，我当初就为了偷懒，一个保存路径，一个保存文件名，不想处理
一个dirvelistbox，一个drivelistbox，一个filelistbox
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim exist As Boolean, i As Integer, j As Integer '文件是否已经存在于列表中
Private Sub cmdCtrl_Click(Index As Integer)
Select Case Index
Case 0 '全选
For i = 0 To file.ListCount - 1
exist = False
For j = 0 To list_v.ListCount - 1
If file.list(i) = list_v.list(j) Then
exist = True
End If
Next
If exist = False Then
list.AddItem dir.Path & "\" & file.list(i)
list_v.AddItem file.list(i)
End If
Next
Case 1 '清除
list.Clear
list_v.Clear
Case 2 '退出
Unload Me
Case 3 '保存为列表文件
If list.ListCount = 0 Then '判断列表中没有文件提示
With frmMsgbox.lblDisplay
.Caption = "对不起，请先选择文件！"
.Left = 500
.Top = 900
End With
frmMsgbox.Show
Exit Sub
End If
'调用保存代码
dlg.ShowSave
If dlg.FileName <> "" Then '据说这样不如下面的方法快
Open dlg.FileName For Output As #1
For i = 0 To list.ListCount - 1
Print #1, list.list(i)
Next
Close (1)
End If
Case 4 '刷新
If combx.Text = "*.*" Then
file.Pattern = combx.Text
Else
'所有支持的文件
file.Pattern = "*.mp3;*.wma;*.wav;*.rm;*.rmi;*.mid;*.midi"
End If
End Select
End Sub
Private Sub combx_Change()
cmdCtrl_Click (4)
End Sub
Private Sub dir_Change()
file.Pattern = combx.Text
file.Path = dir.Path
cmdCtrl_Click (4)
End Sub
Private Sub drv_Change()
dir.Path = drv.Drive
End Sub
Private Sub file_Click()
'检测如果已经加入不作任何操作,否则加入列表
exist = False
For i = 0 To list_v.ListCount - 1
If file.FileName = list_v.list(i) Then
exist = True
End If
Next
If exist = False Then
list.AddItem dir.Path & "\" & file.FileName
list_v.AddItem file.FileName
End If
End Sub
Private Sub Form_Load()
drv.Drive = "c:\"
combx.AddItem "所有支持格式"
combx.AddItem "*.*"
cmdCtrl_Click (4)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmListMaker = Nothing
End Sub
Private Sub list_v_Click()
list.RemoveItem list_v.ListIndex
list_v.RemoveItem list_v.ListIndex
End SubTop
4 楼Futurelewis（过路人）回复于 2004-12-01 22:31:19 得分 0
非常感谢，希望以后不懂的地方都可以请教你，应该可以吧！！你给的这些我会慢慢领悟的，因为我太菜，一时间还看不懂，你有QQ吗？Top
5 楼libralibra（食食物者为俊杰: U don't try, U don't know）回复于 2004-12-01 23:05:29 得分 0
给你发csdn消息了，你看看，呵呵Top
