Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Элементы управления формы




Ключевое слово Me

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

Вместо программного кода

 

Private Sub UserForm_Click()

UserForm1.BackColor = vbRed

End Sub

 

Можно написать

 

Private Sub UserForm_Click()

Me.BackColor = vbRed

End Sub

 

Примеры:

Пример 1

Используются две формы UserForm1 UserForm2

Ø Создать UserForm1

Ø Вызвать обработчик Activate для UserForm1

Private Sub UserForm_Activate()

UserForm1.Caption = "Щелкните по мне"

End Sub

 

Ø Создать UserForm2

Ø Вызвать обработчик события Click для UserForm1

Private Sub UserForm_Click()

Load UserForm2

UserForm2.StartUpPosition = 3

UserForm2.Show

End Sub

 

Ø Событие Deactivate для UserForm1

Private Sub UserForm_Deactivate()

UserForm1.Caption = "Я потеряла фокус"

UserForm2.Caption = "Фокус перешел от UserForm1 ко мне"

End Sub

 

Пример 2

Предполагается наличие двух форм UserForm1 UserForm2

В событии Initialize формы UserForm1 загружается и отображается форма UserForm2

Когда пользователь щелкает мышкой на UserForm2 она скрывается и отображается форма UserForm1

При щелчке на UserForm1форма UserForm2 отображается снова

 

Событие Initialize для UserForm1

Private Sub UserForm_Initialize()

Load UserForm2

UserForm2.Show

End Sub

 

Событие Click для UserForm2

Private Sub UserForm_Click()

UserForm2.Hide

End Sub

 

Событие Click для UserForm1

Private Sub UserForm_Click()

UserForm2.Show

End Sub

 

Приводим список основных элементов управления и соответствующих кнопок панели элементов.

Таблица – Элементы управления

Элемент управления Имя Кнопка для создания элемента
Надпись Label
Поле TextBox
Кнопка CommandButton
Флажок CheckBox
Переключатель OptonButton
Выключатель ToggleButton
Полоса прокрутки ScroolBar
Счётчик Spin Button
Рисунок Image
Список ListBox
Поле со списком ComboBox
Рамка Frame
Вкладки MultiPage
Ярлыки TabStrip

 




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


Дата добавления: 2014-01-05; Просмотров: 243; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.012 сек.