Определить статус воспроизведения файла - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д