نواختن آهنگ

[rahro]

سلام
چگونه میتوان در ویژوال بیسیک قطعه اهنگی را اجرا کرد مثلا

If A>b then (اهنگ در مسیر داده شده اجرا شود)

[ashkan209]

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ALIAS = &H1
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_SYNC = &H0

'****
Private Sub Command1_Click()
sndPlaySound text1.text, SND_ASYNC Or SND_NODEFAULT
End Sub

Text1.text مسیر آهنگ Wav است

[Milad Mohseny]

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

[rahro]

جناب اشکان متشکرم
جناب محسنی:
فرمودید کامپونت , کدهای آنرا از کجا میتونم پیدا کنم

[Milad Mohseny]

کد خاصی نداره خیلی راحته فقط توی قسمت Component برو و روی Windows Media Player
تیک بزار و بعد از ToolBox یک مدیا پلیر روی فرمت قرار بده و برای نواختن یک آهنگ در قست کد مثلا در فرم لود بنویس "Media1.URL="c:\1.mp3
یا اگر ورژن مدیا پلیرت فرق کنه یه کدی حدوداً مثل بالاست .
اگر هم میخواهی مدیا پلیر معلوم نشود خاصیت ویزیبل را فالس کن .