Enable JavaScript in the browser to display LibreOfficeDev Help pages.

QBColor Function

Liveras la RGB koloran kodon de la koloro pasita kiel kolora valoro per malnova programa sistemo bazita sur MS-DOS.

Syntax:

QBColor (ColorNumber As Integer)

Return value:

Long

Parameters:

ColorNumber: entjera esprimo kiu specifas la koloran valoron de la koloro pasita de malnova programa sistemo bazita sur MS-DOS.

ColorNumber, al kiu eblas atribui la jenajn valorojn:

0 : Nigra

1 : Blua

2 : Verda

3 : Ciana

4 : Ruĝa

5 : Malva

6 : Flava

7 : Blanka

8 : Griza

9 : Hele blua

10 : Hele verda

11 : Hele ciana

12 : Hele ruĝa

13 : Hele malva

14 : Hele flava

15 : Brile blanka

Ĉi tiu funkcio estas uzebla nur por konverti de malnovaj BASIC-aplikaĵoj de MS-DOS kiuj uzas la suprajn kodojn. La funkcio liveras longentjeran valoron kiu indikas la koloron uzotan en la LibreOfficeDev IDE.

Error codes:

5 Nevalida procedurvoko

Example:


Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
    iColor = 7
    sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
    MsgBox steksto,0,"Color " & iKoloro
End Sub