Воспроизведение музыки и звуков в VB
Формулировка задачи:
Здравствуйте!, Подскажите, пожалуйста, как мне вставить музыкальный файл и чтобы он проигрывался про определенном событии? у меня Microsoft Visual Studio 2010.
Решение задачи: «Воспроизведение музыки и звуков в VB»
textual
Листинг программы
Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Dim strFile As String Private Function GetShortName(lName As String) As String 'получаем имя DOS Dim DosName As String Dim LenOfDosName As Long DosName = Space(256) LenOfDosName = GetShortPathName(lName, DosName, 256) GetShortName = Left$(DosName, LenOfDosName) End Function Private Sub Command1_Click() Dim strFileData As String strFileData = StrConv(LoadResData(101, "CUSTOM"), vbUnicode) strFile = App.Path & "c.mp3" Open strFile For Output As #1 Print #1, strFileData Close #1 mciSendString "Play " & GetShortName(strFile), "", 0, 0 '& " from 0 to 62744"'звук от сих до сих End Sub Private Sub Command2_Click() mciSendString "Stop " & GetShortName(strFile), "", 0, 0 End Sub Private Sub Form_Load() Command1.Caption = "Извлеките mp3 * из resouce файла, и запустите для воспроизведения" Command2.Caption = "Стоп" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д