源码

Private Sub File1_Click()
If File1.ListCount > 0 Then
If Right(pb, 1) <> "\" Then
Label1.Caption = File1.path & "\" & File1.FileName
wmp1.URL = Label1.Caption
End If

Else
Label1.Caption = pb & file.FileName
Label3.Caption = wmp1.currentMedia.durationString
End If

End Sub

原来是用File1做的列表，点击File1可以播放MP3的，后来用list1加编号显File1列表的MP3了

Private Sub Form_Load()


For I = 0 To File1.ListCount - 1
List1.AddItem I + 1 & "、" & File1.List(I)
Next I
File1.Visible = False

End Sub

点击 List1_Click列表怎么样才能播放MP3，wmp.URL = list1.List(listName.ListIndex)好像播不了，路径不对，求教？

Private Sub List1_Click()
  Dim a() As String
  If List1.ListCount > 0 Then
    a = Split(List1, "、")                       '从list1中分离文件名
    If Right(pb, 1) <> "\" Then
      Label1.Caption = File1.Path & "\" & a(1)   '获取完整文件名
      wmp1.URL = Label1.Caption
    End If
  Else
    Label1.Caption = pb & file.FileName         'file.FileName不知道是什么，是不是默认音乐文件
    Label3.Caption = wmp1.currentMedia.durationString
  End If
End Sub

已经解决了，谢谢版主

[ 本帖最后由 fds788 于 2013-10-22 20:50 编辑 ]