پخش صدا در وِیژوال بیسیک

[ashokri.nll]

سلام من میخام وقتی روی یک command کلیک شد یک فایل صوتی 10 ثانیه ای پخش بشه و تا وقتی که کاربر روی کلید قطع صدا کلیک نکرد ادامه داشته باشه لطفا کمک کنید .

[AbbasVB]

درود
دست عزیز جستجو!

[سید حمید حق پرست]

سلام علیکم
بفرمایید عزیز همون چیزی که میخواید
موفق باشید.

یا علی (ع)

[ashokri.nll]

آقایون نشد سورس اول که اراو داد سورس دوم هم ازش سر در نیاوردم انقدر قاطی پاتی بود من یه سورس کوچولو میخام که صدا رو پخش کنه بعد قطع کنه با فرمت ogg یا wav فرقی نداره
اینو زدم ولی نمیدونم چی جوری قطعش کنم

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

sndPlaySound "C:\1.wav", SND_ASYNC Or SND_NODEFAULT

یه سوال دیگه فایل صوتیم کمه چیکار کنم بدون وقفه چند بار پخش بشه ؟ با تایمر یه وقته کوچولو داره هنوز کمک تو رو خدا

[سید حمید حق پرست]

کجاش به قول خودتون قاطی پاتی هست آخه؟ شما مسیر فایل wav در فرم اصلی و رویداد Command1 در کد زیر قرار بدید :
StrMediaFile = "D:\Music.mp3"
یا کد خودتون رو در تایمر با Interval یک قرار بده :
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Timer1_Timer()
sndPlaySound "D:\buzz.wav", SND_ASYNC Or SND_NODEFAULT
End Sub
اگر هم بینش وقفه باشه که از فایل wav تون هست که وقفه داره و باید ویرایش بشه
موفق باشید.

یا علی

[mmssoft]

من چن مدت پیش واسه این کار یه کامپوننت نوشتم، حجمش خیلی کمه و خیلی ساده و کاربردی هستش :

اینجا (http://barnamenevis.org/showthread.php?415489-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%DB%8C%DA%A9-track-%D9%85%D9%88%D8%B3%DB%8C%D9%82%DB%8C&p=1856687&viewfull=1#post1856687)رو ببینید...

[ashokri.nll]

مرسی از دوستان درست شد با همون کد اولی که گفتم