Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ЛР02_II_(UserForm).doc
Скачиваний:
3
Добавлен:
08.11.2019
Размер:
465.92 Кб
Скачать

2.2.2 Надпись (Label)

Элемент управления Label предназначен для вывода текста в форме, например для вывода заголовка для тех элементов управления, у которых отсутствует собственное свойство Cap­tion. В качестве примера таких элементов можно назвать поле или рисунок в форме. В этом случае надпись находится около этого элемента управления, указывая его назначение.

Для задания текста надписи можно использовать свойство Caption. Например:

TxtMyAdress.Caption="Адрес"

По умолчанию надписи имеют имена Label1, Label2 и т. д.

Надписи в пользовательской форме могут изменять состояние видимость. Т.е., некоторые надписи могут присутствовать в форме постоянно, часть же надписей может включаться при необходимости. Чтобы установить режим отображения, нужно указать свойство Visible:

Label1.Visible = True

А чтобы скрыть надпись (как и любой другой элемент формы) – записать:

Label1.Visible = False

2.2.3 Кнопка (CommandButton)

Элемент управления CommandButton задает выполнение некоторого действия, например запуск, прерывание или останов некоторого процесса.

По умолчанию кнопкам присваиваются имена CommandBut­ton1, CommandButton2 и т. д. Для изменения имени кнопки от­кройте окно свойств и введите новое имя в поле Имя (Name).

Можно задать текст, который будет выводиться на кнопке вместо установленного по умолчанию значения CommandButton_n (где n - порядковый номер данной кнопки в общем списке кнопок в соответствии с очередностью их создания). Для этого установите новое значение свойства Caption. Например:

CbMyButton.Caption="Moя новая программа"

Чтобы получить текст, выведенный на кнопке, можно ис­пользовать следующие инструкции:

Dim Str_My_Button_Caption As String

Str_My_Button_Caption= CbMyButton.Caption

Если в форме имеется несколько кнопок, то одну из них можно назначить применяемой по умолчанию. Например, при выводе окна сообщений, в котором содержится запрос на под­тверждение удаления данных, кнопка «Да» обычно задана по умолчанию. Если по ошибке нажать клавишу «Пробел» или Enter, то вся информация будет уничтожена. Поэтому нужно на­значить применяемой по умолчанию кнопку «Нет». Для того что­бы назначить кнопку по умолчанию, нужно присвоить значение True ее свойству Default. Тогда свойству Default остальных кнопок формы автоматически будет присвоено значение False. Например:

CbMyButton.Default=True

С нажатием кнопки можно связать выполнение некоторого дей­ствия, если назначить эту кнопку некоторому событию «Нажатие кнопки» (Click). Процедура обработки события Click не имеет па­раметров. Например, следующая процедура обработки события выводит в окне отладки Debug сообщение «Моя новая програм­ма», после того как нажата кнопка CommandButton1

Private Sub CbMyButton_Click()

Debug.Print "Моя новая программа"

End Sub

Остальные элементы пользовательской формы описаны в [1].

3 Порядок выполнения работы

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

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

Добавьте в форму кнопку Отмена для завершения работы с пользовательской формой.

Предусмотреть различные варианты ввода исходных данных для массивов:

  • ввод из ячеек рабочего листа MS Excel,

  • ввод в соответствующие поля пользовательской формы.

Предусмотреть различные варианты вывода данных:

  • вывод в ячейки рабочего листа,

  • вывод в соответствующие поля пользовательской формы.

Присвоить всем элементам управления, а также пользовательской форме уникальные имена.

Ко всем элементам управления добавить всплывающие под­сказки, установив значения соответствующих свойств этих эле­ментов управления в окне свойств.