Blue Function

์ง€์ •ํ•œ ์ƒ‰์ƒ ์ฝ”๋“œ์˜ Blue ๊ตฌ์„ฑ ์š”์†Œ๋ฅผ ํ‘œ์‹œํ•ฉ๋‹ˆ๋‹ค.

๊ตฌ๋ฌธ:

Blue (Color As Long)

๋ฐ˜ํ™˜ ๊ฐ’:

Integer

๋งค๊ฐœ ๋ณ€์ˆ˜:

์ƒ‰์ƒ ๊ฐ’: Blue ๊ตฌ์„ฑ ์š”์†Œ๋ฅผ ํ‘œ์‹œํ•  ์ž„์˜์˜ ์ƒ‰์ƒ ์ฝ”๋“œ๋ฅผ ์ง€์ •ํ•˜๋Š” ๊ธด ์ •์ˆ˜ ์‹์ž…๋‹ˆ๋‹ค.

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