QBColor Function

Ibinabalik ang RGB color code ng kulay na ipinasa bilang halaga ng kulay sa pamamagitan ng mas lumang MS-DOS based programming system.

Syntax:

QBColor (ColorNumber Bilang Integer)

Ibinalik na halaga:

Long

Mga Parameter:

ColorNumber : Anumang integer expression na tumutukoy sa halaga ng kulay ng kulay na ipinasa mula sa isang mas lumang MS-DOS based programming system.

ColorNumber maaaring italaga ang mga sumusunod na halaga:

0 : Itim

1: Asul

2: Berde

3 : Cyan

4: Pula

5 : Magenta

6 : Dilaw

7 : Puti

8: Kulay abo

9 : Banayad na Asul

10 : Banayad na Berde

11 : Banayad na Cyan

12 : Banayad na Pula

13 : Banayad na Magenta

14 : Banayad na Dilaw

15 : Maliwanag na Puti

Ang function na ito ay ginagamit lamang upang mag-convert mula sa mas lumang MS-DOS based BASIC application na gumagamit ng mga color code sa itaas. Ang function ay nagbabalik ng mahabang integer value na nagsasaad ng kulay na gagamitin sa LibreOffice IDE.

Mga error code:

5 Di-wastong procedure call

Halimbawa:


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,"Kulay " at iColor
End Sub