Программирование
Веб программирование

Работа с флажками и переключателями

 
 

Флажки и переключатели это основные объекты. Их в основном используют для установки параметров программы. Сейчас мы сделаем программу, которая будет реагировать на изменения флажков и переключателей. На форме размести 1 объект CheckBox, 2 объекта Panel, это для того чтобы разделить переключатели. Теперь в первый объект Panel размести 2 объекта RadioButton, и во второй тоже 2 RadioButton. Скажу еще про событие CheckedChanged, оно срабатывает когда изменяется свойство CheckState, ну короче при включении/выключении переключателя, и при ставке/убирании флажка.

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.CheckState = 1 Then MsgBox("Флажок поставлен") 'Свойство CheckState у флажков может принимать 3 значения: 0 - флажок убран, 1 - флажок поставлен, 2 - флажок заблокирован
If CheckBox1.CheckState = 0 Then MsgBox("Флажок убран")
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then MsgBox("Переключатель '1' включен") 'Свойство CheckState у переключателей может принимать 2 значения: True - переключатель включен, False - выключен
If RadioButton1.Checked = False Then MsgBox("Переключатель '1' выключен")
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then MsgBox("Переключатель '2' включен")
If RadioButton2.Checked = False Then MsgBox("Переключатель '2' выключен")
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then MsgBox("Переключатель '3' включен")
If RadioButton3.Checked = False Then MsgBox("Переключатель '3' выключен")
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton4.Checked = True Then MsgBox("Переключатель '4' включен")
If RadioButton4.Checked = False Then MsgBox("Переключатель '4' выключен")
End Sub

Исходник


Есть вопросы? Спроси на нашем форуме!!
Phoenix222210 [29.04.2014 18:19]

Про чекбоксов и радиокнопок все ясно! Спасибо

Stertor370 [29.04.2014 18:53]

Батюшка, что-то ты совсем быдлокодник. Я в шоке ( ;(

byval e as system.argevents - скорее всего в эту переменную передается состояние чекбокса, просто нужно проверить; нет, ты все равно проверяешь по имени контрола!

If CheckBox1.CheckState = 1 Then
...
If CheckBox1.CheckState = 0 Then
...

Зачем это, если не секрет? Состояние чекбокса может быть только checked и unchecked (иногда еще grayed, но в данном случае оно не используется), нельзя было сделать так:


If CheckBox1.CheckState = 1 Then // чекбокс зачекан
...
else // не зачекан
...



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.