Воспроизведение музыки и звуков в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы