QBColor Function

MS-DOS གཞིག་པའི་སྔ་དུས་རྩོམ་རིམ་མ་ལག་བརྒྱུད་སྐྱེལ་གྱི་ཚོས་གཞི་ ཐང་གྱི་ཚབ་བྱེད་པའི་ཚོས་གཞི་ལས་སྣོན་བེད་སྤྱོད་ རྟེན་གྲངས་འདི་ཚོས་གཞི་འདི་ཚོས་ཞིག་ཚབ་ཨང་ཕྱིར་ལོག་བྱེད་ RGB

བརྡ་འཕྲོད་

QBColor (ColorNumber As Integer)

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

Long

ཞུགས་གྲངས་

ColorNumber:ཧྲིལ་གྲངས་གང་རུང་གི་མཚོན་ཚུལ་ ལ་ཞིག་པའི་ MS-DOS ཞིག་པའི་སྔ་དུས་རྩོམ་རིམ་མ་ལག་བརྒྱུད་སྐྱེལ་གྱི་ཚོས་གཞི་ཐང་གྱི་ཚབ་བྱེད་པའི་ཚོས་གཞི་ལས་སྣོན་བེད་སྤྱོད་

ColorNumber གཤམ་གྱི་ཐང་ལ་གཏན་འཁེལ་བྱ་ཆོག་

0:ནག་པ་

1:སྔོན་པ་

2:ལྗང་ཁུ་

3:སྔོན་མདོག་

4:དམར་པོ་

5:མུ་མེན་དམར་མདོག་

6:སེར་པོ་

7:དཀར་པོ་

8:ཐལ་མདོག་

9:སྔོ་སྐྱལ་མདོག་

10:ལྗང་སྐྱལ་མདོག་

11:སྔོ་སྐྱལ་མདོག་

12:དམར་སྐྱའི་མདོག་

13:མུ་མེར་དམར་སྐྱལ་མདོག་

14:སེལ་སྐྱལ་མདོག་

15:དཀར་མདོག་གསལ་དངས་

རྟེན་གྲངས་འདི་བརྗེ་སྒྱུར་ MS-DOS གཞི་བྱས་པའི་སྔ་དུས་ཉེར་སྤྱོད་བྱ་རིམ་ཁོ་ན་སྤྱོད་BASICཉེར་སྤྱོད་བྱ་རིམ་འདི་དག་གཤམ་ལ་སྒྲིག་པའི་ཚོས་གཞི་ཚབ་ཨང་བེད་སྤྱོད་བྱེད་རྟེནགྲངས་ནི་ཕྱིར་ལོག་པའི་ཧྲིལ་དབྱིབས་རིང་པོའི་ཐང་ཡིན་ LibreOffice IDE ནང་སྤྱོད་པའི་ཚོས་གཞི་དྲན་སྟོན་བྱེད།

Error codes:

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

དཔེ་གཞི་


Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
    iColor = 7
    sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
    MsgBox stext,0,"Color " & iColor
End Sub

Please support us!