Здравствуйте эксперты. Подскажите, пожалуйста, как можно передавать параметры функции? Я имею в виду следующее: Нужно чтобы функция при определённых условиях проигрывала различные 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)
Здравствуйте, Михаил! Используй массивы 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.