Функция QBColor

Забележка:  Бихме искали да ви осигурим най-новото помощно съдържание възможно най-бързо на вашия собствен език. Тази страница е преведена чрез автоматизация и може да съдържа граматически грешки и несъответствия. Нашата цел е това съдържание да ви бъде полезно. Можете ли да ни кажете дали информацията е била полезна за вас, в дъното на тази страница? Ето статията на английски за бърза справка.

Връща Long, представляваща RGB цветови код, съответстващи на указания номер на цвят.

Синтаксис

QBColor () цвят )

Необходими цвятаргумент е цяло число в диапазона 0-15.

Настройки

Аргументът цвят има тези настройки:

Number

Цвят

Number

Цвят

0

Черно

8

Сиво

1

син

9

Светло синьо

2

зелен

10

Светлозелено

3

Циан

11

Светъл циан

4

Вмъкване на символ

12

Светло червен

5

Пурпурно

13

Лека пурпурно

6

Жълто

14

Светло жълто

7

Бяло

15

Ярка бяла


Забележки

Аргументът цвят представлява цветови стойности, използвани от по-ранните версии на основни (например Microsoft Visual Basic for MS-DOS и основни компилатора). Започва с най-малкото значителна байт, върнатата стойност указва червено, зелено и синьо стойности, използвани за да зададете съответния цвят в RGB система, използвана от Visual Basic for Applications.

Пример

Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.

Този пример използва функцията QBColor да промените свойството цвят на фона на формуляра, подадени в като MyForm на цвета, зададена с ColorCode. QBColor приема стойности на цяло число между 0 и 15.

Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
Разширете уменията си в Office
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×