پخش wma و mp3

[vb-sosol]

ممنون مبشوم کمک کنید که در vb بتونم wma و mp3 رو پخش کنم

[محسن واژدی]

سلام
واسه اجرای یک فایل صوتی معمولی دستورات زیر رو در یک ماژول کپی کنین

Option Explicit

'*-------------------------------------*

'* Playsound flags: store in dwFlags *

'*-------------------------------------*

' lpszName points to a registry entry

' Do not use SND_RESOURSE or SND_FILENAME

Private Const SND_ALIAS& = &H10000

' Playsound returns immediately

' Do not use SND_SYNC

Private Const SND_ASYNC& = &H1

' The name of a wave file.

' Do not use with SND_RESOURCE or SND_ALIAS

Private Const SND_FILENAME& = &H20000

' Unless used, the default beep will

' play if the specified resource is missing

Private Const SND_NODEFAULT& = &H2

' Fail the call & do not wait for

' a sound device if it is otherwise unavailable

Private Const SND_NOWAIT& = &H2000

' Use a resource file as the source.

' Do not use with SND_ALIAS or SND_FILENAME

Private Const SND_RESOURCE& = &H40004

' Playsound will not return until the

' specified sound has played. Do not

' use with SND_ASYNC

Private Const SND_SYNC& = &H0



Public Enum enSound_Source

ssFile = SND_FILENAME&

ssRegistry = SND_ALIAS&

End Enum



' These are common sounds available from the registry

Public Const elDefault = ".Default"

Public Const elGPF = "AppGPFault"

Public Const elClose = "Close"

Public Const elEmptyRecycleBin = "EmptyRecycleBin"

Public Const elMailBeep = "MailBeep"

Public Const elMaximize = "Maximize"

Public Const elMenuCommand = "MenuCommand"

Public Const elMenuPopUp = "MenuPopup"

Public Const elMinimize = "Minimize"

Public Const elOpen = "Open"

Public Const elRestoreDown = "RestoreDown"

Public Const elRestoreUp = "RestoreUp"

Public Const elSystemAsterisk = "SystemAsterisk"

Public Const elSystemExclaimation = "SystemExclaimation"

Public Const elSystemExit = "SystemExit"

Public Const elSystemHand = "SystemHand"

Public Const elSystemQuestion = "SystemQuestion"

Public Const elSystemStart = "SystemStart"



Private Declare Function PlaySound& Lib "winmm.dll" Alias_

"PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, _

ByVal dwFlags As Long)

' hModule is only used if SND_RESOURCE& is set and represents

' an HINSTANCE handle. This example doesn't support playing

' from a resource file.





' Plays sounds from the registry or a disk file

' Doesn't care if the file is missing

Public Function EZPlay(ssname As String, _

sound_source As enSound_Source) As Boolean



If PlaySound(ssname, 0&, sound_source + _

SND_ASYNC + SND_NODEFAULT) Then

EZPlay = True

Else

EZPlay = False

End If



End Function


موفق باشید

[محسن واژدی]

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

http://barnamenevis.org/attachment.php?attachmentid=33742&d=1248290343

http://barnamenevis.org/attachment.php?attachmentid=37937&d=1254686071

[vb-sosol]

این دو فایل نتونست کمکی بهم بکنه
من یک فایل mp3 و wma دارم توی یک پوشه کنار برنامه میخوام اجرا بشه

[ali.rezaei7]

درود. يه راهش استفاده از كامپوننت WindowsMediaPlayer است.براي وارد كردن اين كامپوننت به پروژه، كليد تركيبي CTRL+T رو بزن. و از ليست كامپوننت رو انتخاب كن.بعدش از اون كنترل، يه نسخه به پروژت اضافه كن. و براي پخش آهنگ، تو رويداد مورد نظرت اين كد رو كپي كن:
WindowsMediaPlayer1.URL = "FileName"

[M.T.P]

پخش صوتی و تصویری (http://barnamenevis.org/showthread.php?331651-%D9%BE%D8%AE%D8%B4-%D8%B5%D9%88%D8%AA%DB%8C-%D9%88-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C)