Определить статус воспроизведения файла - VB

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

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

Здравствйуте!Опишу ситуацию: У меня есть программа в которой для воспроизведения аудио я использую библиотеки

winmm.dll

:
а для воспроизведения собственно аудиофайла команду:
Вопрос: Как по нажатии на Command1 узнать играет ли 1.mp3 или уже воспроизведение завершено?

Решение задачи: «Определить статус воспроизведения файла»

textual
Листинг программы
Option Explicit
 
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringW" (ByVal lpstrCommand As Long, ByVal lpstrReturnString As Long, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
Private Sub Command1_Click()
    Dim ret As String
    
    ret = Space(255)
    
    mciSendString StrPtr("status Music mode"), StrPtr(ret), Len(ret), 0
    
    If StrComp(Left$(ret, 7), "playing", vbTextCompare) = 0 Then
        MsgBox "Г…Г№ГҐ ГЁГЈГ°Г*ГҐГІ"
    Else
        MsgBox "ГЋГ±ГІГ*Г*îâëåГ*Г®"
    End If
End Sub
 
Private Sub Form_Load()
    Dim ret     As Long
    Dim file    As String
    
    file = Chr$(34) & "D:\Òîëèê\ÌóçûêГ*\ZX-Spectrum\ZX Spectrum - Lyra 2 Megademo (1991).mp3" & Chr$(34)
    ret = mciSendString(StrPtr("open " & file & " alias Music"), 0, 0, 0)
    mciSendString StrPtr("play Music"), 0, 0, 0
    
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    mciSendString StrPtr("close Music"), 0, 0, 0
End Sub

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


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

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

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