چطوری فایلهای انتخابی زیر پشت سرهم که داخل تکس باکس است اجرا شود
10.mp3 .11/ mp3 / و .....
چطوری فایلهای انتخابی زیر پشت سرهم که داخل تکس باکس است اجرا شود
10.mp3 .11/ mp3 / و .....
آخرین ویرایش به وسیله moghadam1372 : یک شنبه 03 تیر 1397 در 08:01 صبح
سلام
باید یه حلقه یا تایمر بزارید و به ترتیب پخش کنید، هر وقت قبلی تموم شد بعدی که با خاصیتهایی که کامپوننتی مثل mediaplayer میشه فهمید آهنگ پخشش تموم شده یا نه
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com
این کد عمل نمی کند
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