| Вопрос: Что не так? | Добавлено: 01.10.09 17:18 |
Автор вопроса:  Not андерстен
|
|
' Декларируем функцию 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 ‘ Загрузка формы Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strFile As String ' Сначала загружаем файл strFile = "C:\Koni.mp3" ' - это путь к музыкальному файлу... mciSendString("open " & strFile & " alias music wait", "", 0, 0) ' Затем воспроизводим mciSendString("play music", "", 0, 0) End Sub Что не так? звука нет |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Илья Вопросов: 1 Ответов: 48 |
Профиль | | #1 | Добавлено: 01.10.09 18:20 |
|
" alias music wait"
Здесь вроде должен быть формат |
||
|
Номер ответа: 2 Автор ответа: EROS Вопросов: 58 Ответов: 4255  |
Профиль | | #2 | Добавлено: 01.10.09 20:38 |
| у тебя не верно задекларирована функция mciSendString | ||
Страница: 1 |