Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: F1! Возпр. MP3 Добавлено: 31.07.04 12:10  

Автор вопроса:  Softer | Web-сайт: hware.org.ua | ICQ: 203660381  
F1! Возпроизведение MP3 из VB-прог

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
 Web-сайт: hw.t-k.ru
 Профиль | | #1
Добавлено: 31.07.04 12:59
Можно было и поискать чуть-чуть ;)
Ведь все уже есть... В ЧАВо точно должно быть...

Private Declare Function MSS Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'Public Sub PlayRes(Resourse As Long, resType As String) ' Воспроизведение файла из ресурса
' Dim bSound() As Byte, aSound As String
'
' bSound = LoadResData(Resourse, resType)
' aSound = Space$(UBound(bSound) + 1)
' Call CopyMemory(ByVal aSound, bSound(0), Len(aSound))
' Call sndPlaySound(aSound, &H4)
'End Sub

Public Function PlayFile(strFileName As String) As Long ' Воспроизведение внещнего файла
    Call StopPlay
    Call MSS("OPEN " & GetShortPath(strFileName) & " ALIAS FIRST", vbNullString, 0&, 0&;)
    PlayFile = MSS("PLAY FIRST", vbNullString, 0&, 0&;)
End Function

Public Sub StopPlay() ' Остановка внешнего файла
    Call MSS("STOP FIRST", vbNullString, 0&, 0&;)
    Call MSS("CLOSE FIRST", vbNullString, 0&, 0&;)
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Mufasa



Вопросов: 19
Ответов: 63
 Web-сайт: webpricols.narod.ru
 Профиль | | #2
Добавлено: 01.08.04 11:36
Попробую предложить:

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long


Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2 Public Const SND_MEMORY = &H4
Public Const SND_FILENAME& = &H20000


Public Sub BeginPlaySound(ByVal sFileName As String)
    PlaySound sFileName, 0, SND_ASYNC Or SND_FILENAME Or SND_NODEFAULT
End Sub

Public Sub EndPlaySound()
    PlaySound ByVal vbNullString, 0, 0
End Sub

'Всё делается так:
BeginPlaySound "Sound\Sound1"

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам