Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 119
от 30.07.2004, 08:40

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 263
Отправлено ответов: 213
Активность: 80.98 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Горячев Игорь
Статус: Доверительный
Общий рейтинг: 120.72
[Подробней >>]
Dorian
Статус: Начальный
Общий рейтинг: 125
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 260. Как сделать чтобы при запуске програмы играла музыка?... (ответов: 2)

Вопросов: 1, ответов: 2


 Вопрос № 260

Как сделать чтобы при запуске програмы играла музыка?



Вопрос отправлен: 27.07.2004, 08:39
Отправитель: Олег

[Следующий вопрос >>] [Список вопросов]

Отвечает Горячев Игорь

Доброе время суток, Олег!
Два варианта:
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.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (24)
C / C++ (12)
Perl (5)
Builder / Delphi (18)
Pascal (23)
Basic / VBA (7)
Java / JavaScript (6)
PHP (16)
Криптография (8)
WinAPI (9)
Радиоэлектроника (11)
Пользователю
Windows 95/98/Me (45)
Windows NT/2000/XP (60)
"Железо" (45)
Поиск информации (14)
Администратору
Windows NT/2000/XP (37)
Linux / Unix (20)
Юристу
Гражданское право (11)
Семейное право (8)
Трудовое право (9)
КоАП (7)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
Rambler's TopShop Rambler's Top100
© 2001-2004 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
http://subscribe.ru/feedback/
Адрес подписки
Отписаться

В избранное