QBColor funtzioa

MS-DOS zaharragoan oinarritutako programazio-sistemaren bidez kolore-balio gisa pasatutako kolorearen RGB kolore-kodea itzultzen du.

Sintaxia:

QBColor (KoloreZenbakia As Integer)

Itzulera-balioa:

Long

Parametroak:

KoloreZenbakia: MS-DOS zaharragoan oinarritutako programazio-sistematik pasatutako kolorearen kolore-balioa zehazten duen osoko adierazpen oro.

KoloreZenbakia parametroak balio hauek eduki ditzake:

0 : Beltza

1 : Urdina

2 : Berdea

3 : Cyan-a

4 : Gorria

5 : Magenta

6 : Horia

7 : Zuria

8 : Grisa

9 : Urdin argia

10 : Berde argia

11 : Cyan argia

12 : Gorri argia

13 : Magenta argia

14 : Hori argia

15 : Zuri argia

Funtzio hau goian aipatutako kolore-kodeak erabiltzen dituzten eta MS-DOS zaharragoan oinarritutako BASICetik bihurtzeko bakarrik erabiltzen da. LibreOffice IDEn erabili beharreko kolorea adierazten duen osoko balio luzea itzultzen du funtzioak.

Errore-kodeak:

5 Prozedura-dei baliogabea

Adibidea:


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