Visual Basic Как вставить музыку *mp3 в программу? Чтобы музыка работала без инета

Visual Basic Как вставить музыку *mp3 в программу? Чтобы музыка работала без инета.

  • 1. Проигрываем файл в формате *.mp3:

    "Функция для проигрывания файлов в формате *.mp3

    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

    "чтобы воспроизвести файл
    Call mciExecute("play имя вашего файла")

    "чтобы закрыть файл
    Call mciExecute("close имя вашего файла")

    2. Проигрываем файл в формате *.mid:

    "Функция для проигрывания файлов в формате *.mid

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

    "Открываем файл
    Call mciSendString ("open ИМЯ ВАШЕГО ФАЙЛА type sequencer alias passport", 0, 0,0)

    "Проигрываем файл
    Call mciSendString ("play passport", 0, 0, 0)

    "Останавливаем файл
    Call mciSendString ("stop passport", 0, 0, 0)

    3. Проигрываем файл в формате *.wav:

    "Функция для проигрывания файлов в формате *.wav

    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

    "Проигрываем файл
    Call sndPlaySound(«ИМЯ ВАШЕГО ФАЙЛА», 0)