اجرا چند فایل پشت سرهم در مدیا پلیر در vb6

[moghadam1372]

چطوری فایلهای انتخابی زیر پشت سرهم که داخل تکس باکس است اجرا شود


10.mp3 .11/ mp3 / و .....

[vbhamed]

سلام
باید یه حلقه یا تایمر بزارید و به ترتیب پخش کنید، هر وقت قبلی تموم شد بعدی که با خاصیتهایی که کامپوننتی مثل mediaplayer میشه فهمید آهنگ پخشش تموم شده یا نه

[moghadam1372]

سلام
باید یه حلقه یا تایمر بزارید و به ترتیب پخش کنید، هر وقت قبلی تموم شد بعدی که با خاصیتهایی که کامپوننتی مثل mediaplayer میشه فهمید آهنگ پخشش تموم شده یا نه

این کد عمل نمی کند
Dim Start As Integer
Dim Tool As Byte
Dim Temp As String
Dim i As Integer
Start = 1
For i = 1 To Len(Text2)
If Mid(Text2, i, 1) = "/" Then

Temp = Mid(Text2, Start, i - Start)
Text2.SelStart = Start - 1
Text2.SelLength = (i - Start)
Text2.SetFocus
WindowsMediaPlayer1.URL = (App.Path & "\Voice4" + Text2.Text)


' PlaySound App.Path & "\Voice4" & Temp, 1, 2

For j = 1 To 100
DoEvents
Next j


Start = i + 1
End If
Next i