
- •Оглавление
- •Справочная информация Элементы управления и пользовательская форма Элементы управления
- •Режим конструктора
- •Установка свойств элемента управления
- •Редактор кода
- •Пользовательская форма UserForm
- •Семейство Controls
- •Создание пользовательской формы
- •Общие свойства элементов управления
- •Соглашения об именах
- •Общие методы и события элементов управления
- •Объект DataObject
- •Надпись
- •Заполнение списка
- •Выбор нескольких элементов из списка
- •Поле со списком
- •Полоса прокрутки и счетчик
- •Переключатель
- •Флажок и выключатель
- •Ссылки на ячейки и диапазоны
- •Набор страниц
- •Набор вкладок
- •Дополнительные элементы управления
- •Последовательность выбора элементов управления
- •Последовательность перехода
- •Закрытие диалогового окна
- •Отображение встроенных диалоговых окон
- •Примеры Заполнение базы данных Пример 1
- •Пример2
- •If Sheets("БазаДанных").Cells(НайденнаяЗапись, 3)
- •If Sheets("БазаДанных").Cells(НайденнаяЗапись, 6)
- •If Sheets("БазаДанных").Cells(НайденнаяЗапись, 7)
- •Пример: Опросчик Задача:
- •Разработка программы
- •Заключение
- •Задание.
- •Литература
Общие свойства элементов управления
Приведем основные общие свойства элементов управления.
Name |
Имя элемента управления |
Caption |
Надпись, отображаемая при элементе управления |
AutoSize |
Допустимые значения: True (устанавливает режим автоматического изменения размеров элемента управления так, чтобы на нем полностью помещался текст, присвоенный свойству Caption) и False (в противном случае) |
Visible |
Допустимые значения: True (элемент управления отображается во время выполнения программы) и False (в противном случае) |
Enabled |
Допустимые значения: True (пользователь вручную может управлять элементом управления) и False (в противном случае) |
Height И Width |
Устанавливают геометрические размеры объекта (высоту и ширину) |
Left И Top |
Устанавливают координаты верхнего левого угла элемента управления, определяющие его местоположение в форме |
ControlTipText |
Устанавливает текст в окне всплывающей подсказки, связанной с элементом управления. В следующем примере элементу управления CommandButtonl назначен текст всплывающей подсказки Это кнопка: CommandButtonl . ControlTipText = "Это кнопка" |
BackColor, ForeColor и BorderColor |
Устанавливают цвет заднего и переднего плана элемента управления, также его границы |
BackStyle |
Устанавливает тип заднего фона |
BorderStyle |
Устанавливает тип границы. Допустимые значения: fmBorderStyieSingle (граница в виде контура) fmBorderStyieNone (граница невидима) |
SpecialEffeet |
Устанавливает тип границы. Отличается от свойства BorderStyle тем, что позволяет установить несколько типов, но одного цвета. BorderStyle позволяет установить только один тип, но различных цветов |
Picture (создание картинки) |
Внедряет картинку на элемент управления. Например, на поверхности кнопки картинка отображается с помощью следующей инструкции: CommandButtonl.Picture=LoadPicture("с:\mydoc\Kpyr.bmp") Функция LoadPicture (ПолноеИмяФайла) считывает графическое изображение. Аргумент ПолноеИмяФайла указывает полное имя графического файла |
Picture (удаление картинки) |
После того как картинка создана на элементе управления, иногда возникает необходимость ее удалить. Это легко достигается присвоением свойству Picture значения LoadPicture ("") |
Tag |
Используется для хранения дополнительной информации о форме или элементе управления, которая может быть в последующем востребована в программе. В следующем примере в пользовательской форме расположены три кнопки и одно поле. Свойство Tag каждого из этих элементов управления, за исключением второй кнопки, установлено равным “показать”. Свойство Tag второй кнопки установлено равным “спрятать”. В цикле проверяется свойство Tag всех элементов управления и при инициализации диалогового окна отображаются только те элементы управления, у которых это свойство равно “показать”. Private Sub UserForm Initialize () Dim Элемент As Object CommandButton1.Tag = "Показать" CommandButton2.Tag = "Спрятать" CommandButton3.Tag = "Показать" TextBoxl.Tag = "Показать" For Each Элемент In Controls If Элемент.Tag = "Показать" Then Элемент.Visible = True Else Элемент.Visible = False End If Next Элемент End Sub |
Цвета, устанавливаемые свойствами BackColor, ForeColor и BorderColor, задаются шестнадцатеричными числами. Если эти свойства устанавливать не при помощи окна Свойства (Properties), а программно, вместо этих шестна-дцатеричных чисел удобнее использовать соответствующие постоянные, задающие цвета (табл. 7.2).
Таблица 7.2. Константы, задающие цвет
Константа |
Значение |
Цвет |
vbBlack |
0x0 |
Черный |
vbRed |
0xFF |
Красный |
vbGreen |
0xFF00 |
Зеленый |
vb Yellow |
0xFFFF |
Желтый |
vbBlue |
0xFF0000 |
Синий |
vbMagenta |
0xFF00FF |
Розойый |
vbCyan |
0xFFFF00 |
Голубой |
vbWhite |
0xFFFFFF |
Белый |