Как оптимально сделать выключатель звуковых сообщений?

[TiG]

Алгоритмически на ум приходит только два способа:
1. Сделать кнопку которая будет вырубать весь звук в винде (кстати если кто-то знает текст программы для такой кнопки, то напишите пожалуйста)
2. Наверное в VB как и во многих языках есть, что-то типа "Если - то", поэтому можно написать что-то такое:

маус клик
если значение кнопки какой-то там кнопки "вкл/выкл звук" = 1 то
Call sndPlaySound("c:\2.wav", 1)
иначе
....(ничего)

(напишите пожалуйста как в VB выглядит оператор типа if else и как считать текущее значение какой либо кнопки - в смысле если кнопка имеет два состояния: нажата/отжата)

Кто знает другой человеческий способ, то напишите пожалуйста.

[Александр Андреев]

Хорошо, что ты не написал это в главный форум...

Обычно в любой виндовской проге есть специальный диалог свойств, который вызывается из главного меню основного окна. Делаешь на нем переключатель CheckBox (назовем его cbPlaySound). Дальше можно завести глобальную переменную:

Код: Выделить всё

Public bPlaySound As Boolean

Когда диалог свойств загружается, инициализируешь CheckBox этим значением:

Код: Выделить всё

If bPlaySound Then
    cbPlaySound.Value = 1
End If

Когда нажата кнопка Ok переинициализируешь переменную:

Код: Выделить всё

bPlaySound = cbPlaySound.Value

А в основной проге можно написать так:

Код: Выделить всё

If bPlaySound Then
    ' проигрываем wav
Else
    ' ничего не делаем
End If

А еще лучше этот If облечь в функцию. Например в Private Function playWav(sFileName As String) As Boolean