اجرای موزیک بک گراند

[md_rh20]

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

[alireza_s_84]

سلام دوست عزیز:
شما میتونید از تابع API زیر استفاده کنید:
نام تابع : PlaySound
هدف تابع: این تابع یک فایل صوتی رو پخش میکنه (فقط فرمتهای استاندارد) اگه فایل رو پیدا نکنه صدای Beep رو بجاش پخش میکنه(فکر کنم قشنگتر باشه:بامزه:)
سیستم عامل: ویندوز 95 به بعد
مبدا: Winmm.dll
مقدار بازگشتی: اگه موفق بشه مقداری غیر از صفر برگشت میده.(میتونی جوری تعریف کنی True یا False برگشت بده)


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

بقیه قسمت ها رو دیگه خودتون کشف کنید :
این هم مثال:


Private Const SND_APPLICATION = &H80
Private Const SND_ALIAS = &H10000
Private Const SND_ALIAS_ID = &H110000
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_RESOURCE = &H40004
Private Const SND_SYNC = &H0
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

موفق باشید

[REZADG]

اشکالش اینجاست که فقط wav ساپورت میکنه

[md_rh20]

آقاي alireza_s_84 (http://barnamenevis.org/forum/member.php?u=35861) باتشكر از جواب شما اما:
وقتي كه فرم رو ميبندم موزيك متوقف نميشه . چيكار كنم؟

[xxxxx_xxxxx]

وقتي كه فرم رو ميبندم موزيك متوقف نميشه . چيكار كنم؟

اگر با تکرار پخش فایل صوتی مشکل دارید، پارامتر سوم این تابع نحوه پخش فایل را مشخص می کند. اگر پارامتر سوم را مقدار 1 دهید فایل صوتی تنها یکبار بخش خواهد شد.

اما اگر فایل طولانی‌ست و کلاً می خواهید بعد از خروج از برنامه قطع شود. باید یکبار هم در زمان خروج آن را با مقدار 1 در پارامتر سوم مقداردهی کنید. البته اینکه فایل صوتی بعد از خروج از برنامه همچنان پخش می شود زمانی که برنامه را کامپایل کنید این مشکل رفع میشه.

موفق باشید/

[far9090]

سلام . شما همینطور می تونید از کنترل هایی مثل MediaPlayer و یا MMControl خود vb استفاده کنید . اغلب فایل ها رو در حالت طبیعی پشتیبانی می کنن و همینطور کنترل بالائی روی اونا داری . موفق باشید .

[.:KeihanCPU:.]

MMControl رو پیشنهاد میکنم

[barname_majid]

دوست من سلام
من ويندوز مديا پلير رو پيشنهاد ميكنم چون خيلي سبك تر اجرا ميشه و نياز چنداني به كد نويس نداره. لازمه كامپوننتش رو به برنامه اضافه كني . ادرس مسير پخش فايل صوتي رو بدي. نكته مثبت ديگه اي كه داره هر فايلي رو كه ويندوز ساپورت كنه جواب ميده.