QBColor Function

이전의 MS-DOS 기반 프로그래밍 시스템을 통해 색상 값으로 전달된 색상의 RGB 색상 코드를 구합니다.

QBColor (ColorNumber As Integer)

Long

ColorNumber: 이전의 MS-DOS 기반 프로그래밍 시스템에서 전달된 색상의 색상 값을 지정하는 임의의 정수 식입니다.

다음 값을 ColorNumber에 할당할 수 있습니다.

0 : 흑색

1 : 청색

2 : 녹색

3 : 청록색

4 : 적색

5 : 선홍색

6 : 황색

7 : 흰색

8 : 회색

9 : 밝은 청색

10 : 밝은 녹색

11 : 밝은 청록색

12 : 밝은 적색

13 : 밝은 선홍색

14 : 밝은 황색

15 : 투명한 흰색

이 함수는 위 색상 코드를 사용하는 이전의 MS-DOS 기반 BASIC 응용 프로그램에서 변환하는 경우에만 사용됩니다. 이 함수는 LibreOffice IDE에서 사용되는 색상을 나타내는 long integer 값을 구합니다.

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