Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Новое сообщение без темы Добавлено: 05.10.02 20:04  

Автор вопроса:  Synax | Web-сайт: elance.ru/sands

Как уже сказал использую этот код

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form_Click()
Dim res
res = mciExecute("Play C:\Путь_до_файла")
End Sub

но как сделать чтобы музыка остановилась?

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Ян



ICQ: 816105 

Вопросов: 38
Ответов: 198
 Web-сайт: www.yan.net.ru
 Профиль | | #1
Добавлено: 05.10.02 21:17

По моему-так:

res = mciExecute("close C:\Путь_до_файла")

Ответить

Номер ответа: 2
Автор ответа:
 Ян



ICQ: 816105 

Вопросов: 38
Ответов: 198
 Web-сайт: www.yan.net.ru
 Профиль | | #2
Добавлено: 05.10.02 21:17

По моему-так:

res = mciExecute("close C:\Путь_до_файла")

Ответить

Номер ответа: 3
Автор ответа:
 Synax



Вопросов: 20
Ответов: 61
 Web-сайт: elance.ru/sands
 Профиль | | #3
Добавлено: 06.10.02 20:25

Спасибо!

Ответить

Номер ответа: 4
Автор ответа:
 Synax



Вопросов: 20
Ответов: 61
 Web-сайт: elance.ru/sands
 Профиль | | #4
Добавлено: 06.10.02 21:09
Не работает.

Ответить

Номер ответа: 5
Автор ответа:
 Real



Вопросов: 3
Ответов: 5
 Профиль | | #5 Добавлено: 07.10.02 05:42

попробуй это:

Private Sub Command1_Click()
Dim res
res = mciExecute("Stop R:\Music\Belle.mp3")
End Sub

Private Sub Command2_Click()
Dim res
res = mciExecute("Pause R:\Music\Belle.mp3")
End Sub

У меня работает

Ответить

Номер ответа: 6
Автор ответа:
 Synax



Вопросов: 20
Ответов: 61
 Web-сайт: elance.ru/sands
 Профиль | | #6
Добавлено: 08.10.02 22:03

На кнопку работает а на анлоад не тянет.

Ответить

Номер ответа: 7
Автор ответа:
 Synax



Вопросов: 20
Ответов: 61
 Web-сайт: elance.ru/sands
 Профиль | | #7
Добавлено: 08.10.02 22:29

УРА!!! ЗАРАБОТАЛО!!!

Сбасибо всем!!!!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам