پخش 2 فایل MP3 پشت سر هم

[profnami]

سلام
من از این کد برای پخش یک فایل استفاده میکنم :




Dim player1, player2, player3 As New WMPLib.WindowsMediaPlayer
player1.URL = Application.StartupPath & "\Sounds\SRT\h1.mp3"
player1.controls.play()




ش
میخوام 2 تا فایل رو به ترتیب پخش کنم . چطوری این کار رو انجام بدم ؟ آیا راه بهتری به نظرتون میرسه برای پخش موزیک تو برنامه ؟
و یک سوال آیا این آدرس دهی و نحوه ی ذخیره ی فایل مناسبه ؟ چون میخوام برنامه رو پابلیش کنم و یه SETUP براش بسازم

ممنون

[xminxmin]

در مورد آدرس دهي: اگر اين مسير هميشه در كنار فايل اجرايي موجود باشه هيچ مشكلي بوجود نمياد

[mahdi1373]

یه تابع api برای اینکار هست. می خوای معرفی کنم؟

[nasseritemp]

یه تابع api برای اینکار هست. می خوای معرفی کنم؟

دوست عزیز اینکه نیاز به سئوال کردن نداره!!!!!!!!
ما منتظر تابع api شما هستیم...............

[mahdi1373]

بفرما:


Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_ASYNC = &H1 'continue executing code even
'if sound isn't finished
Const SND_FILENAME = &H20000 ' name is a file name
Const SND_SYNC = &H0 'suspend execution until sound is finished
Const SND_NODEFAULT = &H2 'if file name is not found, don't play
'default sound
Const SND_LOOP = &H8 'loop the sound until next call to the
'function
Const SND_NOSTOP = &H10 'don't stop any currently playing sound
Const SND_NOWAIT = &H2000 'return immediately if driver is busy


lpszName : آدرس فایل
dwFlags : یک یا چند تا از مقادیر بالا
hModule : بگذار vbNull

'RETURNS: True if Successful, false otherwise