|
#2
lowxiong2013-10-22 19:36
|
程序代码：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了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
程序代码：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)好像播不了，路径不对，求教？For I = 0 To File1.ListCount - 1
List1.AddItem I + 1 & "、" & File1.List(I)
Next I
File1.Visible = False
End Sub
