Объектно-ориентированный подход в программировании. Проектирование и реализация приложений в среде Microsof Office. Евсеева О.Н. - 62 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

1.4. Программирование на VBA 63
3
Имеется ряд операторов, свойств и функций, предназначенных для выдачи
сообщений и привлечения внимания пользователя: среди них оператор Beep,
свойства SoundNote и StatusBar, а также функция MsgBox.
Самый простой способ привлечь внимание пользователя к происходящему —
это подача звукового сигнала с помощью встроенного динамика посредством
оператора Beep. Для особо важных событий можно варьировать количество
выдаваемых сигналов, подав его дважды или даже трижды. Однако не стоит
злоупотреблять этим оператором — если, конечно, вы действительно хотите
привлечь внимание пользователя. Слишком частое использование
однообразного звукового сигнала может вызвать лишь раздражение. Разумное
его использование состоит в том, чтобы подать сигнал об ошибке или сообщить
о завершении особо длительной операции. Вот пример процедуры,
производящей некоторые вычисления и издающей двойной звуковой сигнал.
Процедура Pause добавлена для того, чтобы осуществить задержку между
сигналами в 2 секунды.
Sub RecalcAll()
' [Кое-что пересчитать]
Beep
Pause 2
Beep
End Sub
Sub Pause(numSeconds As Single)
Dim startTimer As Single
startTimer = Timer 'Установили начальное время
Do While Timer < startTimer + 1
DoEvents
Loop
End Sub
Если ваш компьютер имеет специальное звуковое оборудование (звуковую
карту и микрофон), то можно заставить процедуры издавать намного более
разнообразные звуки, в том числе и воспроизводить запись голоса,
произносящего вслух те или иные сообщения. Например, можно поместить
звуковое примечание в ячейку и затем воспроизвести его в подходящий
момент. В VBA имеется свойство SoundNote (звуковое примечание) и объект
SoundNote класса Range, с помощью которого можно импортировать
звуковые файлы, записывать их и воспроизводить звуковые примечания к
ячейке.
Для импортирования звукового файла в качестве звукового примечания
используется метод Import, имеющий следующий синтаксис:
объект.Import("звуковойФайл")

Страницы