RGB Function

Red, Green 및 Blue ꡬ성 μš”μ†Œλ‘œ κ΅¬μ„±λ˜λŠ” long integer 색상값을 κ΅¬ν•©λ‹ˆλ‹€.

ꡬ문:

RGB (Red, Green, Blue)

λ°˜ν™˜ κ°’:

Long

맀개 λ³€μˆ˜:

Red: 볡합 μƒ‰μƒμ˜ Red ꡬ성 μš”μ†Œ(0-255)λ₯Ό λ‚˜νƒ€λ‚΄λŠ” μž„μ˜μ˜ μ •μˆ˜ μ‹μž…λ‹ˆλ‹€.

Green: 볡합 μƒ‰μƒμ˜ Green ꡬ성 μš”μ†Œ(0-255)λ₯Ό λ‚˜νƒ€λ‚΄λŠ” μž„μ˜μ˜ μ •μˆ˜ μ‹μž…λ‹ˆλ‹€.

Blue: 볡합 μƒ‰μƒμ˜ Blue ꡬ성 μš”μ†Œ(0-255)λ₯Ό λ‚˜νƒ€λ‚΄λŠ” μž„μ˜μ˜ μ •μˆ˜ μ‹μž…λ‹ˆλ‹€.

Error codes:

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

예:

Sub ExampleColor

Dim lVar As Long

    lVar = rgb(128,0,200)

    MsgBox "색상은 " & lVar & "λ‹€μŒκ³Ό 같이 κ΅¬μ„±λ©λ‹ˆλ‹€:" & Chr(13) &_

        "red= " & red(lVar) & Chr(13)&_

        "green= " & green(lVar) & Chr(13)&_

        "blue= " & blue(lVar) & Chr(13) , 64,"colors"

End Sub