mokh_pascal_sangesary
شنبه 05 آذر 1384, 19:39 عصر
میگم من سه ماهیه اینجا عضوم ولی هیچ بهره ای از این سایت نبردم :لبخند: :چشمک:
میگم اگه کسی دنبال پخش بدون درد سره هر گونه صدا در vb هست اول یه این جوری کلاس تعریف کنه
Public Class Sound
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As Byte(), ByVal hmod As Integer, ByVal flags As Integer) As Integer
Public Const SND_SYNC = &H0 ' play synchronously
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_MEMORY = &H4 'Play wav in memory
Public Const SND_ALIAS = &H10000 'Play system alias wav
Public Const SND_NODEFAULT = &H2
Public Const SND_FILENAME = &H20000 ' name is file name
Public Const SND_RESOURCE = &H40004 ' name is resource name or atom
End Class
بعدش هر وقت تابع playsound این کلاس را با مسیر و پسوند فایل فراخونی کنید با اون دو پارامتر دیگه :لبخند: صدا براتون پخش میشه
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OpenFileDialog1.ShowDialog()
Sound.PlaySound(OpenFileDialog1.FileName, 5, 3)
End Sub
by ta hi :چشمک:
میگم اگه کسی دنبال پخش بدون درد سره هر گونه صدا در vb هست اول یه این جوری کلاس تعریف کنه
Public Class Sound
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As Byte(), ByVal hmod As Integer, ByVal flags As Integer) As Integer
Public Const SND_SYNC = &H0 ' play synchronously
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_MEMORY = &H4 'Play wav in memory
Public Const SND_ALIAS = &H10000 'Play system alias wav
Public Const SND_NODEFAULT = &H2
Public Const SND_FILENAME = &H20000 ' name is file name
Public Const SND_RESOURCE = &H40004 ' name is resource name or atom
End Class
بعدش هر وقت تابع playsound این کلاس را با مسیر و پسوند فایل فراخونی کنید با اون دو پارامتر دیگه :لبخند: صدا براتون پخش میشه
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OpenFileDialog1.ShowDialog()
Sound.PlaySound(OpenFileDialog1.FileName, 5, 3)
End Sub
by ta hi :چشمک: