RGB Function
Red, Green λ° Blue κ΅¬μ± μμλ‘ κ΅¬μ±λλ long integer μμκ°μ ꡬν©λλ€.
ꡬ문:
RGB (Red, Green, Blue)
λ°ν κ°:
Long
λ§€κ° λ³μ:
Red: λ³΅ν© μμμ Red κ΅¬μ± μμ(0-255)λ₯Ό λνλ΄λ μμμ μ μ μμ λλ€.
Green: λ³΅ν© μμμ Green κ΅¬μ± μμ(0-255)λ₯Ό λνλ΄λ μμμ μ μ μμ λλ€.
Blue: λ³΅ν© μμμ Blue κ΅¬μ± μμ(0-255)λ₯Ό λνλ΄λ μμμ μ μ μμ λλ€.
μ:
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