QBColor Function

ཨར་ཇི་བི་ ཨེམ་ཨེསི་ ཌི་ཨོ་ཨེསི་་གཞི་རྟེན་ལས་རིམ་བཟོ་ལས་རིམ་ལུགས་རྒས་མི་ཚོས་གཞི་གནས་གོང་བརྒྱུད་སྦེ་ཚོས་གཞི་རྩིས་སྤྲོད་ཡོད་མི་གི་ ཚོས་གཞི་ཨང་རྟགས་དེ་སླར་ལོགཔ་ཨིན།

ཚིག་སྦྱོར:

ཀེའུ་བི་ཚོས་གཞི་ (ColorNumber As Integer)

གནས་གོང་སླར་ལོག:

རིངམོ།

ཚད་བཟུང་:

ཚོས་གཞི་ཨང: ཧྲིལ་ཨང་གང་རུང་གསལ་བརྗོད་གཞི་རིམ་ལས་རིམ་རིམ་ལུགས་ཨེམ་ཨེསི་ ཌི་ཨོ་ཨེསི་རྒས་ཤོས་ཅིག་ལས་ཚོས་གཞི་རྩིས་སྤྲོད་ཡོད་མི་གི་ཚོས་གཞི་གནས་གོང་འདི་གསལ་བཀོད་འབདཝ་ཨིན།

ཚོས་གཞི་ཨང་འདི་ འོག་གི་གནས་གོང་ཚུ་འགན་སྤྲོད་ཡོདཔ་ཨིན:

༠ : གནགཔོ།

༡ : ཧོནམ།

༢ : ལྗང་ཁུ།

༣ : སྔོ་ལྗང་།

༤ : དམརཔོ།

༥ : དམར་སྨུག

༦ : སེརཔོ།

༧ : དཀརཔོ།

༨ : སྐྱ་ཐལ།

༩ : སྔོ་སྐྱ།

༡༠ : ལྗང་སྐྱ།

༡༡ : སྔོ་ལྗང་སྐྱ་བོ།

༡༢ : དམརཔོ་སྐྱ་བོ།

༡༣ : དམར་་སྨུག་སྐྱ་བོ།

༡༤ : སེར་སྐྱ།

༡༥ : དཀར་སྐྱ།

འ་ནི་ལས་འགན་དེ་ལྟག་གི་ཚོས་གཞི་ཨང་རྟགས་ཚུ་ལག་ལེན་འཐབ་ནི་འཇུག་སྤྱོད་ཚུ་ གཞི་རིམ་ གཞི་བཞག་ ཨེམ་ཨེསི་ ཌི་ཨོ་ཨེསི་ རྒས་མི་ལས་གཞི་བསྒྱུར་འབད་ནི་རྐྱངམ་ཅིག་ལག་ལེན་འཐབ་ཡོདཔ་ཨིན། ལས་འགན་དེ་གིས་LibreOffice ཨའི་ཌི་ཨི་་ནང་ལག་ལེན་འཐབ་ནི་ལུ་ཚོས་གཞི་་བརྡ་སྟོན་གནས་གོང་ཧྲིལ་ཨང་རིངམ་ཅིག་སླར་ལོགཔ་ཨིན།

Error codes:

༥ ནུས་མེད་བྱ་སྒོའི་ལམ་ལུགས་བོད་བརྡ་

དཔེར་བརྗོད:


Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
    iColor = 7
    sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
    འཕྲིན་དོན་སྒྲོམ་ཨེསི་ཚིག་ཡིག ༠"Color " & iColor
End Sub

Please support us!