Книга: Основы программирования в среде Visual Basic for Application VBA
Picture
(создание картинки)
Внедряет картинку на элемент управления. Например, на поверхности кнопки картинка отображается с помощью следующей инструкции:
CommandButtonI.Picture = _
LoadPicture("с:\my doc\Kpyг.bmp")
Функция LoadPicture(ПолноеИмяФайла) считывает графическое изображение. Аргумент ПолноеИмяФайла указывает полное имя графического файла
Picture
(удаление картинки)
Используется для хранения дополнительной информации о форме или элементе управления, которая может быть в последующем востребована в программе. В следующем примере в пользовательской форме расположены три кнопки и одно поле. Свойство Tag каждого из этих элементов управления, за исключением второй кнопки, установлено равным Показать. Свойство Tag второй кнопки установлено равным Спрятать. В цикле проверяется свойство Tag всех элементов управления и при инициализации диалогового окна отображаются только те элементы управления, у которых это свойство равно Показать.
Private Sub UserForm Initialize ()
Dim Элемент As Object
CommandButton1.Tag = "Показать"
CommandButton2 . Tag = "Спрятать"
CommandButton3 . Tag = "Показать"
TextBox1.Tag = "Показать"
For Each Элемент In Controls
If Элемент.Tag="Показать" Then
Элемент.Visible = True
Else
Элемент.Visible = False
End If
Next Элемент
End Sub
Цвета, устанавливаемые свойствами BackColor, Forecolor и BorderColor, задаются шестнадцатеричными числами. Если эти свойства устанавливать не при помощи окна Свойства (Properties), а программно, вместо этих шестнадцатеричных чисел удобнее использовать соответствующие постоянные, задающие цвета.
Константы, задающие цвет
| Константа | Значение | Цвет |
| vbBlack | 0х0 | Черный |
| vbRed | OxFF | Красный |
| vbGreen | OxFFOO | Зеленый |
| vbYellow | OxFFFF | Желтый |
| vbBlue | OxFFOOOO | Синий |
| vbMagenta | OxFFOOFF | Розовый |
| vbCyan | OxFFFFOO | Голубой |
| vbWhite | OxFFFFFF | Белый |
2.6.1 Соглашения об именах
При создании формы или элемента управления, VBA устанавливает свойство объекта Name (т. е. его имя) по умолчанию. Например, для первой созданной кнопки свойство Name устанавливается равным CommandButton1, для второй – CommandButton2 и т. д. При разработке приложений с одной формой имя объекта, устанавливаемое по умолчанию, обычно не вызывает никаких проблем и в этом случае имена объектов оставляют без изменения. Если приложение обладает сложной структурой и состоит из нескольких форм, будет трудно отличить первую кнопку CommandButton1 первой формы, от первой кнопки CommandButton1 второй формы. В этом случае полезно переименовать объекты так, чтобы они легче различались. Для переименования объектов и переменных в среде Windows существует соглашение об именах, называемое венгерской нотацией. Суть соглашения состоит в следующем: имя объекта начинается с короткого префикса, одинакового для объектов одного и того же рода. За префиксом следует собственно имя, отображающее суть объекта. Ниже приведены префиксы и примеры имен управляющих элементов.
| Примеры префиксов и имен | ||
| Управляющий элемент | Префикс | Пример имени |
| TextBox | txt | txtAcount |
| Label | lbl | lblInform |
| CommandButton | cmd | cmdOK |
| ListBox | lst | lstNames |
| ComboBox | cbo | cboFirms |
| ScrollBar | scr | scrDown |
| SpinButton | spn | spnUp |
| OptionButton | opt | optChoice |
| CheckBox | chk | chkSex |
| ToggleButton | Tgl | TglSwitch |
| Frame | fra | fraStatus |
| Image | img | imgBall |
| RefEdit | ref | ref Fun |
| MultiPage | mit | rnltPages |
| TabStrip | tab | tabTwoTabs |
| UserForm | frm | frmGame |
2.7 Общие методы и события элементов управления
Перечислим основные общие методы элементов управления.
| Add | Позволяет добавить элемент управления во время выполнения программы |
| Move | Перемещает элемент управления |
| SetFocus | Устанавливает фокус на вызвавшем этот метод элементе управления. Часто применяется в программах обработки ошибок |
| Zorder | Помещает объект до или после всех пересекающихся с ним объектов |
Перечислим наиболее часто употребляемые общие события элементов управления.
| Click | Происходит, когда пользователь выбирает элемент управления с помощью одинарного щелчка кнопкой мыши |
| Dbici'ick | Происходит, когда пользователь выбирает элемент управления с помощью двойного щелчка кнопкой мыши |
| Keypress | Происходит, когда пользователь нажимает любую клавишу на клавиатуре, кроме функциональных и клавиш управления курсором |
| Change | Происходит при изменении значения элемента управления |
| GotFocus и LostFocus | Происходит, когда элемент управления получает или теряет фокус |
| Error | Используется при уведомлении об ошибке |
Рассмотрим синтаксис процедур обработки событий, генерируемых нажатием кнопки мыши и перемещением указателя мыши и связанных с элементами управления.