Информатика: Сборник лабораторных работ по программированию в среде Visual Basic for Applications, страница 24

Установим свойства объектов:

Объект	Свойство	Значение
Label1	Caption	Муж
Label2	Caption	Жен
CommandButton1	Caption	Ввод
CommandButton2	Caption	Конец

Кнопка Ввод считывает значение переключателя, кнопка Конец осуществляет выход из программы.

!!!       При работе с переключателями необходимо, чтобы свойство Loked для них имело значение False.

Кнопке Конец назначим процедуру :

PrivateSubCommandButton2_Click()

End

End Sub

Кнопке Ввод назначим процедуру:

Option Explicit

Private Sub CommandButton1_Click()

Dim Пол As String

With UserForm1

           If .OptionButton1 = True Then Пол = "Муж"

           If .OptionButton2 = True Then Пол = "Жен"

  End With

With Sheets("Лист1")

    .Cells(1, 1) = Пол

 End With

End Sub

Пример3.   Создать окно диалога, содержащее 2 флажка, 2 надписи и 2 кнопки. Если флажки установлены, то в клетках ЭТ А1 и А2 записывается слово "Да", в противном случае "Нет".

Окно формы имеет вид:

Установим свойства объектов:

Объект	Свойство	Значение
Label1	Caption	Оплачено
Label2	Caption	Паспорт сдан
CommandButton1	Caption	Начало
CommandButton2	Caption	Конец

Кнопка "Начало" считывает значения флажков, кнопка "Конец" – выход из программы.

!!!       При работе с флажками свойствам Locked также устанавливается значение False.

Кнопке Конец назначим процедуру :

PrivateSubCommandButton2_Click()

End

End Sub

Кнопке Начало назначим процедуру:

Option Explicit

Private Sub CommandButton1_Click()

Dim Паспорт, Оплачено As String

With UserForm1

    If CheckBox1.Value = True Then

Оплачено = "Да"

     Else

Оплачено = "Нет"

    End If

     If CheckBox2.Value = True Then

Паспорт = "Да"

     Else

        Паспорт = "Нет"

End If

End With

With Sheets("Лист1")

   .Cells(1, 1) = Оплачено

   .Cells(2, 1) = Паспорт

End With

EndSub

Пример4.   Создать окно диалога, содержащее список и две кнопки. Выбранное значение записать в клетку А1 ЭТ.

Окно формы имеет вид:

Установим свойства объектов:

Объект	Свойство	Значение
CommandButton1	Caption	Начало
CommandButton2	Caption	Конец

Кнопке Конец назначим процедуру :

Private Sub CommandButton2_Click()

End

End Sub

Для кнопки Начало назначим процедуру:

Option Explicit

Private Sub CommandButton1_Click()

ListBox1.Clear

 ListBox1.AddItem "Люкс"

 ListBox1.AddItem "Одноместный"

 ListBox1.AddItem "Двухместный"

End Sub

При нажатии кнопки Начало поле списка очищается командой ListBox1.Clear, а затем формируется поле списка с помощью метода AddItem.

Считывание значения поля списка в клетку А1 осуществляется с помощью процедуры:

Private Sub ListBox1_Click()

Cells(1, 1) = ListBox1

EndSub

Пример5.   Создайте окно диалога, содержащее поле со списком и две кнопки. Выбранное значение запишите в клетку А1 ЭТ.