Получение нужного цвета

Если задавать цвет только с помощью ключевых слов, таких как vbRed, vbWhite и vbYellow, вы обделите себя. Существует множество пастельных тонов и волнующих оттенков, только и ждущих применения в вашем коде на языке Visual Basic. К сожале­нию, для задания этих цветов нельзя использовать ключевые слова. Вместо них придет­ся применять числовые коды цветов.

Чаще всего вы не будете знать правильного числового кода для цвета, который хотите использовать. Но эту проблему можно решить с помощью удобной функции RGB, вклю­ченной в язык Visual Basic (как и функция MsgBox, которая применялась раньше). Функция RGB принимает три отдельных числа, представляющих красную, зеленую и синюю составляющие цвета, и преобразует их в код цвета, который можно использовать для задания свойств ForeColor или BackColor.

³ На рис. 16.8 текст сообщения выводится на английском языке. Вы, разумеется, можете тоже выво­дить текст на английском. — Ред.

Далее приведен пример, использующий описанный метод, для применения оттенка светлого оранжево-розового цвета:

Detail.BackColor = RGB(266, 160, 122)

Этот оператор выполняется в два этапа. Сначала программа Access выполняет функцию RGB для создания кода цвета. Затем она заносит код цвета в свойство BackColor. На первый взгляд преимущество применения функции RGB может показаться не столь оче­видным, поскольку она требует указания трех отдельных чисел. На самом деле RGB-обозначение цвета — общепринятый стандарт, применяемый в Web-пространстве и в большинстве Windows-приложений. Найти цвет можно даже в указателе цвета про­граммы Access, а затем определить нужные RGB-компоненты, выполнив следующие действия.

1. Откройте форму в Конструкторе.

2. Выберите элемент управления и затем в Окне свойствщелкните кнопкой мыши поле Цвет текста(ForeColor) или Цвет фона(BackColor).

3. Щелкните мышью кнопку с многоточием (...) в поле цвета для перехода в окно быстрого выбора цвета, в котором отображаются некоторые распространенные и недавно использовавшиеся цветовые варианты.

4. Выберите кнопку Другие цвета(More Colors) для отображения полного набора цветов.

5. Щелкните кнопкой мыши вкладку Спектр (Custom).

6. Выберите цвет, как показано на рис. 16.9.

7. Запишите RGB-значения. Их можно использовать в вашем программном коде.

8. Щелкните мышью кнопку Отмена(Cancel) для возврата в программу Access.

У формы в этот момент обнаруживается дефект. Когда выполняется первое изменение, появляется подпись и меняется цвет фона, как и должно быть. Однако, после того как вы зафиксировали изменение, перейдя к другой записи, сообщение и цвет фона сохраняются. Полученный результат, очевидно, — не то, что вам нужно.

Для устранения ошибки необходимо отреагировать на другое событие: событие формы После обновления (After Update). Оно возникает после того, как программа Access успешно зафиксирует изменение в БД. Далее приведен код, необходимый для возврата обычного внешнего вида формы:

Private Sub Form_AfterUpdate ()

Detail.BackColor = vbWhite

InfoMessage.Caption = "" End Sub