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 값을 κ΅¬ν•©λ‹ˆλ‹€.

Error codes:

5 잘λͺ»λœ ν”„λ‘œμ‹œμ € ν˜ΈμΆœμž…λ‹ˆλ‹€.

예:


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

Please support us!