RGB Function

དམར་པོ་ལྗང་ཁུ་དང་སྔོན་པོ་གྲུབ་ལས་གྲུབ་པའི་ཧྲིལ་དབྱིབས་རང་པོའི་ཚོས་གཞི་ཐང་ཕྱིར་ལོག་བྱེད།

བརྡ་འཕྲོད་


RGB (Red, Green, Blue)

ཕྱིར་ལོག་ཐང་

ཧྲིལ་གྲངས་རིང་པོ་

ཞུགས་གྲངས་

Red:ཚོས་མདོག་ནང་གི་དམར་པའི་གྲུབ་ཆ་ (0-255) ཡིས་ཧྲིལ་གྲངས་གང་རུང་གི་མཚོན་ཚུལ།

Green:ཚོས་མདོག་ནང་གི་སྔོན་པའི་གྲུབ་ཆ་ (0-255) ཡིས་ཧྲིལ་གྲངས་གང་རུང་གི་མཚོན་ཚུལ།

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