دوستان
سلام
چه طور در بکگراند فر م اهنگ پخش کنم به گونه ای که عوض بشه یعنی کار بر بتونه مسیر بهش بده تا بخونه
ولی چیزی یدا نباشه ( منظورم اینتر فیس ویندوز مدیا پلیر ه ):18:
ممنون از راهنمایهاتون:11:
Printable View
دوستان
سلام
چه طور در بکگراند فر م اهنگ پخش کنم به گونه ای که عوض بشه یعنی کار بر بتونه مسیر بهش بده تا بخونه
ولی چیزی یدا نباشه ( منظورم اینتر فیس ویندوز مدیا پلیر ه ):18:
ممنون از راهنمایهاتون:11:
برای پخش فایلهای Wave کلاس داخلی Media.SoundPlayer بهترین راه است.
اما برای پخش فایلهای Mp3 هم میتونی از کامپوننت یا رفرنس مدیا پلیر و هم از API استفاده کنی.
مثال:
ابتدا باید دی ال ال مربوطه رو صدا کنی
سپس برای Play کد زیر را بنویس:کد:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As _
Integer, ByVal hwndCallback As Integer) As Integer
بزای Stop و Pause و Resume هم بترتیب از کدهای زیر استفاده کنکد:
Dim MusicFile As String
MusicFile = Chr(34) + "C:\MyMusic.mp3" + Chr(34)
mciSendString("open " & MusicFile, Nothing, 0, 0)
mciSendString("play " & MusicFile, Nothing, 0, 0)
کد:
mciSendString("stop " & MusicFile, Nothing, 0, 0)
mciSendString("pause " & MusicFile, Nothing, 0, 0)
mciSendString("resume " & MusicFile, Nothing, 0, 0)
ممنون
ولی چه کار کنم که پشت سر هم همین یه تر اک رو بخونه
نقل قول:کد:
mciSendString("play " & MusicFile & " Repeat", Nothing, 0, 0)
خیلی لطف کر دی دوست من
سلام
دات نت را دست کم نگیرید برادران!
تازه کلاسس فوق Stream هم قبول میکند که درنتیجه میتوان فایل موسیقی مذکور را درون خود exe هم جا داد و بدون نیاز به عمل خاصی اجرایش کرد.کد:Dim x As New System.Media.SoundPlayer("C:\file.mp3")
' یک بار پخش
x.Play()
'پخش مدام
x.PlayLooping()
همانطوریکه عرض کردم کلاس Media.SoundPlayer فقط برای فایلهای Wave ساخته شده است. و به هیچ وجه کد بالا در مورد فایلهای Mp3 جواب نخواهد داد.نقل قول:
سلام
متاسفانه من تاحالا فکر میکنم، بدیهی است که میتواند پسوندهای معمول را پخش کند !!!!!!نقل قول:
ولی بعد از حرف شما تستی کردم و متوجه شدم حق با شما بوده !!!!! :11:
در کل خیلی عجیب است!!! پخش فرمتهای رایج چندان مسئله سختی .... :13:
ممنون و بای!