Технология выполнения. Рис. 42.Форма примера 24 Обработайте кнопки Нажми и Закрыть

  1. Запустите приложение Word, сохраните новый документ.
  2. Создайте форму в режиме конструктора (рис. 42).

Рис. 42.Форма примера 24

  1. Обработайте кнопки Нажми и Закрыть.

Кнопка Нажми

Private Sub CommandButton1_Click()

For Each Ctrl In myForm.Controls 'цикл по всем элементам управления

msgCode = vbYesNo + vbQuestion

'Вопрос об очередном элементе управления:

Answer = MsgBox(prompt:="Cкрыть элемент " & Ctrl.Name,

Buttons:=msgCode, Title:="Bonpoc")

If Answer = vbYes Then 'ответ «Да»

Ctrl.Visible = False 'скрыть очередной элемент

End If

Next Ctrl

End Sub

Кнопка Закрыть

Private Sub CommandButton2_Click()

Unload Me

End Sub

  1. Откомпилируйте приложение.
  2. Запустите на выполнение (рис. 43, 44, 45).

Примечание. Скрытие ненужных элементов в форме можно произвести и другим способом (например, если в форме слишком много элементов, то до нужного добираться по циклу нерационально). Для этого используют свойство Click элементов управления.

Рис. 43.Первоначальный запуск формы и вызов процедуры кнопки Нажми

 

Рис. 44.Выполнение скрытия элемента label1 и следующий запрос

 

Рис. 45.Вид формы перед удалением последнего элемента управления

В этом случае необходимо только щелкнуть по нужному элементу и прописать код, для каждого элемента свой:

Private Sub Label1_Click()

msgCode = vbYesNo + vbQuestion

Answer = MsgBox(prompt:="Cкрыть элемент",

Buttons:=msgCode, Title:="Вопрос")

If Answer = vbYes Then

Label1.Visible = False

Else

Label1.Visible = True

End If

End Sub

В результате работа формы будет более рациональной (рис. 46).

Рис. 46.Работа формы по щелчку скрываемого элемента








Дата добавления: 2016-04-14; просмотров: 570;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.005 сек.