IBM Lotus Symphony
|
Palauttaa MS-DOS-käyttöjärjestelmään perustuvan ohjelmointijärjestelmän kautta väriarvona välitetyn värin RGB-värikoodin.
QBColor (ColorNumber As Integer)
Suurkokonaisluku
ColorNumber: Mikä tahansa kokonaislukulauseke, joka määrittää MS-DOS-käyttöjärjestelmään perustuvan ohjelmointijärjestelmän kautta välitetyn värin väriarvon.
ColorNumber-arvo voi saada seuraavat arvot:
0 : Musta
1 : Sininen
2 : Vihreä
3 : Syaani
4 : Punainen
5 : Purppura
6 : Keltainen
7 : Valkoinen
8 : Harmaa
9 : Kirkas sininen
10 : Kirkas vihreä
11 : Kirkas syaani
12 : Kirkas punainen
13 : Kirkas purppura
14 : Kirkas keltainen
15 : Kirkas valkoinen
Tätä funktiota käytetään vain muuntamaan vanhoja MS-DOS-käyttöjärjestelmään perustuvia BASIC-sovelluksia, jotka käyttävät edellä mainittuja värikoodeja. Funktio palauttaa suurkokonaislukuarvon, joka ilmaisee, mitä väriä Lotus Symphony -ohjelman IDE-ympäristössä on käytettävä.
Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
iColor = 7
sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
MsgBox stext,0,"Color " & iColor
End Sub