IBM Lotus Symphony


Funktionen QBColor [Runtime]

Returnerer RGB-farvekoden på farven, som overføres som farve via et ældre MS-DOS-baseret programmeringssystem.

Syntaks:

QBColor (Farvenummer As Integer)

Returværdi:

Long

Parameter:

Farvenummer: Et udtryk med typen Integer, som angiver farveværdien for den farve, som overføres fra et ældre MS-DOS-baseret programmeringssystem.

Farvenummer kan tildeles følgende værdier:

0 : Sort

1 : Blå

2 : Grøn

3 : Cyan

4 : Rød

5 : Magenta

6 : Gul

7 : Hvid

8 : Grå

9 : Lyseblå

10 : Lysegrøn

11 : Lys cyan

12 : Lys rød

13 : Lys magenta

14 : Bleggul

15 : Klar hvid

Funktionen bruges kun til konvertering fra ældre MS-DOS-baserede BASIC-programmer, som benytter ovenstående farvekoder. Funktionen returnerer en værdi med typen Long Integer, som angiver den farve, der skal bruges i Lotus® Symphony™ IDE.

Fejlkoder

5 Ugyldigt procedurekald

Eksempel:

Sub EksempelQBFarve

Dim iFarve As Integer

Dim sTekst As String

iFarve = 7

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

MsgBox stekst,0,"Farve " & iColor

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker