Green Function

ཚོས་མདོག་ཚབ་ཨང་གྱི་ལྗང་ཁུལ་གྲུབ་ཆ་གཏན་འཁེལ་བ་ཕྱིར་ལོག་པ་སྤྱོད།

བརྡ་འཕྲོད་


Green (Color As Long)

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

ཧྲིལ་གྲངས་

ཞུགས་གྲངས་

Color:ཧྲིལ་གྲངས་ཐང་རིང་པོ་མཚོན་ཚུལ་ ལྗང་ཁུལ་གྲུབ་ཆའི་གང་རུང་ཕྱིར་ལོག་པ་གཏན་འཁེལ་བ་སྤྱོད་ཚོས་གཞི་ཚབ་ཨང་

Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

དཔེ་གཞི་


Sub ExampleColor
Dim lVar As Long
    lVar = rgb(128,0,200)
    msgbox "The color " & lVar & " contains the components:"& Chr(13) &_
        "red = " & red(lVar) & Chr(13)&_
        "green = " & green(lVar) & Chr(13)&_
        "blue = " & blue(lVar) & Chr(13) , 64,"colors"
End Sub

Please support us!