IBM Lotus Symphony
|
Returnerer RGB-farvekoden på farven, som overføres som farve via et ældre MS-DOS-baseret programmeringssystem.
QBColor (Farvenummer As Integer)
Long
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.
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