Методы элемента управления Календарь.

Метод	Описание
Nextday, nextweek, nextmonth, nextyear	Следующий день , неделя, месяц, год
Previusday, Previusweek, Previusmonth, Previusyear,	Предыдущий день , неделя, месяц, год
Today	Устанавливает текущую дату

Создадим форму, с помощью которой введем список из трех столбцов Фамилия, Дата приема на работу и Дата увольнения. (см. рис.)

На пустую форму добавьте следующие элементы – 3 поля ввода, кнопка и календарь. Им даем следующие имена – textName, textBegin, textEnd, cmdOk, cldmy. В модуле напишите следующий код:

Private m As Byte

Private pole(1 To 2) As Object

Private Sub UserForm_Initialize()

Set pole(1) = Textbegin

Set pole(2) = Textend

m = 1

pole(1).SetFocus

cldmy.Value = Now

End Sub

Private Sub Textbegin_Enter()

m = 1

End Sub

Private Sub Textend_Enter()

m = 2

End Sub

Private Sub cldmy_Click()

pole(m) = cldmy.Value

End Sub

Private Sub cmdok_Click()

Range("A1").Value = Textname.Text

Range("B1").Value = Textbegin.Text

Range("C1").Value = Textend.Text

End Sub

Запустите модуль на выполнение и введите запись.

Самостоятельно 1 – й вариант: разработать пользовательскую форму для организации следующего списка сотрудников предприятия «Престиж»: Фамилия (поле ввода), Имя (поле ввода), Отчество (поле ввода), Дата приема на работу (элемент управления Календарь), Дата рождения (элемент управления Календарь), Должность (поле со списком – системный администратор, лаборант, инженер, бухгалтер, экономист, финансист, оператор, директор), Отдел (поле со списком – научный, финансовый, управления, транспортный, экономический, сетевых коммуникаций), Кол-во отработанных лет (вычисляемое поле, в форму его не добавлять, а выводить вычисляемое значение в список), Возраст (вычисляемое поле, в форму его не добавлять, а выводить вычисляемое значение в список), Пол (переключатель). С помощью созданной формы добавить в список 10 записей.

Практическое задание №4. Элементы управления.

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

Свойство	Описание
DropButtonStyle	Устанавливает вид поля со списком. Допустимые значения: FmdropButtonStylePlain – кнопка без символов FmdropButtonStyleArrowdisplays – кнопка со стрелкой FmdropButtonStyleReduce – кнопка с линией FmdropButtonStyleEllipsis – кнопка с линией
ListRows	Устанавливает число элементов , отображаемых в поле со списком
MatchRequired	Лог.свойство – true – в поле ввода нельзя ввести значения, отличные от перечисленных в списке, false – иначе.
MatchFound	Лог.свойство – true – среди элементов поля со списком имеется элемент, который совпадает с элементам в поле ввода, false – иначе.