В этой программе мы научимся проверять включен ли переключатель, на практике.Теоретические сведения можно получить в разделе странички контрольные элементы.

Первым делом нужно понять, что же должна делать программа.В данном случае программа должна проверять - включен ли переключатель.То есть при нажатии на кнопу проверка, она должна говорить(выводить на экран) сообщение о состоянии переключателя.

Создаем новый проект.Ставим на форму объекты : кнопку со свойством Caption- проверить, переключатель со свойством Caption - Переключить, и кнопку с Caption'ом - выход.

Перейдите к коду кнопки - проверить.Впишите туда :

If Check1.Value = 1 then

Msgbox "Переключатель включен"

Else

Msgbox "Переключатель выключен"

End if

В коде кнопки - Выход введите: End

В результате у вас должно поучится вот это:

Private Sub Command1_Click()
If Check1.Value = 1 Then
MsgBox "Переключатель включен"
Else
MsgBox "Переключатель выключен"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Рассмотрим как работает программа:

If Check1.Value = 1 Then - программа проверяет - если свойство Value элемента Check1 равно 1, то есть флажок установлен то...

MsgBox "Переключатель включен" - вывести сообщение, говорящее о том что переключатель включен

Else - иначе ( то есть если свойство Value элемента Check1 не равно 1) то...

MsgBox "Переключатель выключен"-вывести сообщение, говорящее о том что переключатель выключен.

End If - закончить проверку.

Попробуйте запустить программу.Поставьте галочку на переключатель и на кнопку - проверка, потом уберите галочку и опять нажмите на кнопку проверка. Если все работает, то я вас поздравляю.Если же нет, то попробуйте взять программу и разобраться.

Переключатель вам скорее всего пригодится.Эта программа просто показывает как с ним работать, но потом можете делать многие вещс помощью переключателя. Например, в некоторых программах спрашивается, выводить ли это далее.