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

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


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


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

Выпуск № 013
от 12.07.2002, 02:10

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


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

masquer
Статус: Профессиональный
Общий рейтинг: 160.62
[Подробней >>]


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

Вопрос № 19. Здравствуйте эксперты. Подскажите, пожалуйста, как можно передавать параметры функции? Я имею в виду... (ответов: 1)

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


 Вопрос № 19

Здравствуйте эксперты.
Подскажите, пожалуйста, как можно передавать параметры функции? Я имею в виду следующее:
Нужно чтобы функция при определённых условиях проигрывала различные wav файлы, но у меня ни как не получается изменить программно параметр lpszSoundName.
Declare Function sndPlaySound _
Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
muzic = "C:Program FilesVOYETRAAudioStation 32MediaSinkdr"
muzic1 = "C:Program FilesVOYETRAAudioStation 32MediaHip_s"
End Sub
Затем, при определённых условиях, проигрываем muzic либо muzic1.
Call sndPlaySound(muzic, 1)



Вопрос отправлен: 09.07.2002, 02:03
Отправитель: Михаил (Pit-bool@rambler.ru)

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

Отвечает masquer

Здравствуйте, Михаил!
Используй массивы
Public music(2) as String ' '
music(1) = ... ' здесь заносишь пути
music(2) = ...
затем напиши функцию
Public Function Play (index as Integer)
path = music(index)
Call sndPlaySound(path, 1)
End Function

Ответ отправлен: 09.07.2002, 08:13
Отправитель: masquer



Форма отправки вопроса

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

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

Ваше имя:

Ваш e-mail:

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


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

Ваш вопрос:


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


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


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

Программисту
Assembler (48)
C / C++ (33)
Perl (10)
Delphi (17)
Pascal (29)
Basic / VBA (12)
Java / JavaScript (6)
PHP (6)
MySQL / MSSQL (9)
Пользователю
Windows 95/98/Me (44)
Windows NT/2000/XP (32)
"Железо" (36)
Поиск информации (19)
Администратору
Windows NT/2000/XP (19)
Linux / Unix (15)
Юристу
Гражданское право (8)
Семейное право (3)
Трудовое право (7)
КоАП (2)

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




be number one Яндекс цитирования

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное