Red Function

μ§€μ •ν•œ 색상 μ½”λ“œμ˜ Red ꡬ성 μš”μ†Œλ₯Ό ν‘œμ‹œν•©λ‹ˆλ‹€.

ꡬ문:


Red (ColorNumber As Long)

λ°˜ν™˜ κ°’:

Integer

맀개 λ³€μˆ˜:

ColorNumber: Red ꡬ성 μš”μ†Œλ₯Ό ν‘œμ‹œν•  μž„μ˜μ˜ 색상 μ½”λ“œλ₯Ό μ§€μ •ν•˜λŠ” long integer μ‹μž…λ‹ˆλ‹€.

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