Как воспроизвести .mp3 файл на Visual Basic 6.0? - VB

Узнай цену своей работы

Формулировка задачи:

При запуске формы мне нужно воспроизвести .mp3 файл. С форматом .wav я разобрался, вот код:
Что нужно в коде изменить чтобы проигрывался .mp3 файл? например мне нужно проиграть файл beautiful.mp3, который находится в D:\Music\

Решение задачи: «Как воспроизвести .mp3 файл на Visual Basic 6.0?»

textual
Листинг программы
Option Explicit
    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 strAliaS As String
 
    Private Sub Command1_Click()
    Dim lngReturn As Long
    Dim strFile As String
    Dim strType As String
 
        ' make sure all working files in memory are closed
        mciSendString "close all", 0, 0, 0
 
        ' set the file path
        strFile = "C:\Program Files\Microsoft Visual Studio\VB_prog\ClavecinNocean.mp3" ' Ваша музыка!
       
        ' make sure the path is in double quote if it contains spaces
        If InStr(strFile, " ") Then
            strFile = Chr(34) & strFile & Chr(34)
        End If
       
        ' create unique alias
        strAliaS = Right(strFile, 3) & Minute(Now)
       
        ' set the file type being passed
        strType = "MPEGVideo"
       
        ' Open the file
        lngReturn = mciSendString("Open " & strFile & " ALIAS " & strAliaS _
            & " Type " & strType & " WAIT", "", 0, 0)
           
        ' Play the file
        lngReturn = mciSendString("Play " & strAliaS, "", 0, 0)
                       
    End Sub
 
    Private Sub Command2_Click()
    Dim lngReturn As Long
 
        If strAliaS = "" Then
            Exit Sub
        End If
       
        ' Stop the file playing
        lngReturn = mciSendString("Stop " & strAliaS, "", 0, 0)
        ' Remove it from memory
        lngReturn = mciSendString("Close " & strAliaS, "", 0, 0)
       
        ' clear the alias
         strAliaS = ""
    End Sub

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


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

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

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