IBM Lotus Symphony
|
Zwraca kod koloru RGB dla wartości koloru pochodzącej ze starszego systemu programistycznego zgodnego ze standardem MS-DOS.
QBColor (Kolor As Integer)
Długa liczba całkowita
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™.
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