Funkcja QBColor

Ważne : Ten artykuł został przetłumaczony maszynowo, zobacz zastrzeżenie. Angielskojęzyczną wersję tego artykułu można znaleźć tutaj .

Zwraca wartość typu Liczba długa reprezentującą kod koloru RGB odpowiadający numerowi określonego koloru.

Składnia

QBColor ( color )

Wymagane koloruargument jest liczbą całkowitą z zakresu od 0 – 15.

Ustawienia

Argument Kolor ma następujące ustawienia:

Liczba

Kolor

Liczba

Kolor

0

Czarny

8

Jasnoszary

1

Niebieski

9

Uproszczona niebieski

2

Zielony

10

Uproszczone zielony

3

Błękitny

11

Uproszczona błękitny

4

Pozycja Czerwony

12

Jasnoczerwony

5

Amarantowy

13

Uproszczona amarantowy

6

Żółty

14

Uproszczone żółty

7

Biały

15

Jasny biały


Spostrzeżenia

Argument Kolor reprezentuje wartości koloru używane we wcześniejszych wersjach programu Basic (takich jak Microsoft Visual Basic for MS-DOS i podstawowe kompilatora). Począwszy od najmniej znaczącego bajtu, zwrócona wartość określa czerwony, zielony i niebieski wartości służy do ustawiania odpowiedni kolor w systemie RGB używane przez program Visual Basic for Applications.

Przykład

Uwaga : Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.

W tym przykładzie funkcja QBColor zmienić właściwość BackColor formularza przekazywany jako MyForm na kolor wskazywany przez ColorCode. QBColor akceptuje wartości całkowitych między 0 a 15.

Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub

Uwaga : Zrzeczenie dotyczące tłumaczenia maszynowego: Ten artykuł został przetłumaczony przez system komputerowy bez interwencji człowieka. Firma Microsoft udostępnia te tłumaczenia maszynowe, aby ułatwić użytkownikom, którzy nie znają języka angielskiego, korzystanie z zawartości dotyczącej produktów, usług i technologii firmy Microsoft. Ponieważ ten artykuł został przetłumaczony maszynowo, może zawierać błędy w słownictwie, składniowe lub gramatyczne.

Rozwijaj swoje umiejętności
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów pakietu Office

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×