Страница: 1 |
Как уже сказал использую этот код Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long но как сделать чтобы музыка остановилась?
По моему-так: res = mciExecute("close C:\Путь_до_файла") По моему-так: res = mciExecute("close C:\Путь_до_файла") Спасибо! попробуй это: Private Sub Command1_Click() Private Sub Command2_Click() У меня работает На кнопку работает а на анлоад не тянет. УРА!!! ЗАРАБОТАЛО!!! Сбасибо всем!!!! Страница: 1 |
Вопрос: Новое сообщение без темы
Добавлено: 05.10.02 20:04
Автор вопроса: Synax | Web-сайт:
Private Sub Form_Click()
Dim res
res = mciExecute("Play C:\Путь_до_файла")
End Sub
Ответы
Всего ответов: 7
Номер ответа: 1
Автор ответа:
Ян
ICQ: 816105
Вопросов: 38
Ответов: 198
Web-сайт:
Профиль | | #1
Добавлено: 05.10.02 21:17
Номер ответа: 2
Автор ответа:
Ян
ICQ: 816105
Вопросов: 38
Ответов: 198
Web-сайт:
Профиль | | #2
Добавлено: 05.10.02 21:17
Номер ответа: 3
Автор ответа:
Synax
Вопросов: 20
Ответов: 61
Web-сайт:
Профиль | | #3
Добавлено: 06.10.02 20:25
Номер ответа: 4
Автор ответа:
Synax
Вопросов: 20
Ответов: 61
Web-сайт:
Профиль | | #4
Добавлено: 06.10.02 21:09
Не работает.
Номер ответа: 5
Автор ответа:
Real
Вопросов: 3
Ответов: 5
Профиль | | #5
Добавлено: 07.10.02 05:42
Dim res
res = mciExecute("Stop R:\Music\Belle.mp3")
End Sub
Dim res
res = mciExecute("Pause R:\Music\Belle.mp3")
End Sub
Номер ответа: 6
Автор ответа:
Synax
Вопросов: 20
Ответов: 61
Web-сайт:
Профиль | | #6
Добавлено: 08.10.02 22:03
Номер ответа: 7
Автор ответа:
Synax
Вопросов: 20
Ответов: 61
Web-сайт:
Профиль | | #7
Добавлено: 08.10.02 22:29