Доброе время суток, Олег! Два варианта: 1. Использовать WinAPI в Sub Main (функция PlaySoundA). 2. Кинуть на форму MMControl и по Form_Load запускать на проигрывание музыки. Ответ отправлен: 27.07.2004, 23:55 Отправитель: Горячев Игорь Отвечает Dorian
Добрый день, Олег! Все зависит от того, какого формата файл. Wav: Совету использовать API-функцию PlaySound. В модуле размещаем: Public Declare Function PlaySound _ Lib "winmm.dll" Alias "PlaySoundA" ( _ ByVal lpszName As String, ByVal hModule As Long, _ ByVal dwFlags As Long) As Long Далее в процедуру Form_Load Private Sub Form1_Load() Call PlaySound("C:WINDOWSMEDIATada.wav", 1, 1) End Sub 'Поэксперементируй с последними двумя параметрами. (0,1)
Midi: Для начала тебе нужно поместить на форму ActiveX-элемент. Нажми в панели объектов на правую кнопку мышки и в выплывающем меню нажми - Components. Выбери там объект MCIWndX Control и нажми Ок. Помести на форму этот элемент и придай ему размеры которые тебе нужны. В поле свойства FileName этого объекта введи путь к midi-файлу. Сделай этот
элемент невидимым (MCIWndX1.Visable = False) Далее, впиши в код формы, событие Load Mciwnd1.Command = "Play" Теперь нужно сделать так, чтобы когда файл кончался он запускался заново. Войди в код элемента Mciwnd1 выберите событие PositionChange и там пиши If Mciwnd1.Position = Mciwnd1.Lenght Then Mciwnd1.Position = 0 Mciwnd1.Command = "Play" После этого у тебя должен получится такой код: Private Sub Form_Load() MCIWnd1.Command = "Play" End Sub Private Sub MCIWnd1_PositionChange(ByVal Position As Long) If MCIWnd1.Position = MCIWnd1.Length Then MCIWnd1.Position = 0 MCIWnd1.Command = "Play" End If End Sub Mp3: Чтобы проиграть mp3 файл воспользуйся OCX-элементом: Windows Media Player Его можно настроить как хочешь по твоему желанию. С ним разберись сам, там все предельно просто. От также
может проигрывать и видео файлы. Вообщем все что и сам проигрыватель.
Удачи!
Ответ отправлен: 27.07.2004, 09:34 Отправитель: Dorian
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.