IBM Lotus Symphony


Funkcja QBColor [środowisko wykonawcze]

Zwraca kod koloru RGB dla wartości koloru pochodzącej ze starszego systemu programistycznego zgodnego ze standardem MS-DOS.

Składnia

QBColor (Kolor As Integer)

Zwracana wartość

Długa liczba całkowita

Parametr

Kolor: Liczba całkowita określająca wartość koloru pochodzącego ze starszego systemu programistycznego.

Parametr Kolor może przyjmować następujące wartości:

0: czarny

1: niebieski

2: zielony

3: niebieskozielony

4: czerwony

5: amarantowy

6: żółty

7: biały

8: szary

9: jasnoniebieski

10: jasnozielony

11: jasnoniebieskozielony

12: jasnoczerwony

13: jasnoamarantowy

14: jasnożółty

15: jasnobiały

Ta funkcja służy tylko do konwersji kolorów ze starszych aplikacji języka BASIC w systemie MS-DOS, które używają wyżej wymienionych kolorów. Funkcja zwraca długą liczbę całkowitą oznaczającą kolor używany w środowisku IDE programu Lotus® Symphony™.

Kody błędów

5 Nieprawidłowe wywołanie procedury

Przykład

Sub Przyklad_QBColor

Dim iKolor As Integer

Dim sTekst As String

iKolor = 7

sTekst = "RGB= " & Red(QBColor( iKolor) ) & ":" & Blue(QBColor( iKolor) ) & ":" & Green(QBColor( iKolor) )

MsgBox stekst,0,"Kolor " & iKolor

End Sub


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe