2.6.Формы и элементы управления
2.6.4.Доп элементы управления


В VBA кроме перечисленных стандартных элементов управления имеется ряд дополнительных. Дополнительные элементы управления являются самостоятельными объектами, обладающими как общими для всех элементов управления свойствами и методами, так и присущими только им свойствами и методами. Для добавления дополнительных элементов управления в панель элементов при видимой панели элементов:

 

1.   Выберите команду Tools | Additional Controls.

2.    В отобразившемся на экране окне Дополнительные элементы в списке Доступные элементы управления установите флажок напротив добавляемого элемента управления.

3.   Нажмите кнопку ОК.


 

В результате значок выбранного дополнительного элемента управления появится в панели элементов.

 

Среди дополнительных элементов управления очень полезным является элемент управления Calendar (Календарь). Он представляет средство для организации удобного интерфейса по вводу дат. Элемент управления конструируется на форме кнопкой Calendar

 

Основными свойствами календаря являются свойства Day, Month, Year и value, возвращающие выбранный день, месяц, год и дату. Свойство DayLenght устанавливает формат числа. Допустимыми являются значения: 2 — отображается полные названия дней, 1 — в русской версии — отображаются две буквы из названий дней, в английской — три буквы, 0 — отображается только по первой букве из названия дня. Свойство MonthLenght устанавливает формат месяца. Допустимыми являются значения: 2 — ото­бражаются полные названия месяца, 0 — отображается только по первой три буквы из названия месяца.

 

Основными методами календаря являются методы NextDay, Nextweek, NextMonth, Next Year, PreviousDay, Previous Week, PreviousMonth, PreviousYear, ycтaнaвливaющиe следующий и предыдущий день, неделю, месяц и год, а также метод Today, задающий текущую дату в календаре.

 

Пример. Рассмотрим пример простого приложения, которое позволяет вводить при помощи элемента управления Calendar дату рождения.


Private Sub Calendar1_Click()

TextBox1.Text = Calendar1.Value

End Sub












  
ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map