QBColor Function

αžαŸ’αžšαž‘αž”αŸ‹β€‹αž›αŸαžβ€‹αž–αžŽαŸŒ RGB αž“αŸƒβ€‹αž–αžŽαŸŒβ€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž αž»αž…β€‹αž‡αžΆβ€‹αžαž˜αŸ’αž›αŸƒβ€‹αž–αžŽαŸŒβ€‹αž˜αž½αž™ αžαžΆαž˜β€‹αžšαž™αŸˆβ€‹αž”αŸ’αžšαž–αŸαž“αŸ’αž’β€‹αžŸαžšαžŸαŸαžšβ€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αžŠαŸ‚αž›β€‹αž•αŸ’αž’αŸ‚αž€β€‹αž›αžΎ MS-DOS αž˜αž»αž“β€‹αŸ—Β αŸ”

Syntax:

QBColor (ColorNumber As Integer)

Return value:

Long

Parameters:

ColorNumber αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž…αŸ†αž“αž½αž“β€‹αž‚αžαŸ‹β€‹αžŽαžΆβ€‹αž˜αž½αž™ αžŠαŸ‚αž›β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹αž–αžΈβ€‹αžαž˜αŸ’αž›αŸƒβ€‹αž–αžŽαŸŒβ€‹αž“αŸƒβ€‹αž–αžŽαŸŒβ€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž αž»αž…β€‹αž–αžΈβ€‹αž”αŸ’αžšαž–αŸαž“αŸ’αž’β€‹αžŸαžšαžŸαŸαžšβ€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αžŠαŸ‚αž›β€‹αž•αŸ’αž’αŸ‚αž€β€‹αž›αžΎ MS-DOS αž˜αž»αž“β€‹αŸ—Β αŸ”

ColorNumber αž’αžΆαž…β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž•αŸ’αžαž›αŸ‹β€‹αžαž˜αŸ’αž›αŸƒβ€‹αžŠαžΌαž…β€‹αžαžΆαž„β€‹αž€αŸ’αžšαŸ„αž˜β€‹ αŸ–

០ αŸ– αžαŸ’αž˜αŸ…

៑ αŸ– αžαŸ€αžœ

្ αŸ– αž”αŸƒαžαž„

៣ αŸ– αž•αŸ’αž‘αŸƒβ€‹αž˜αŸαžƒ

ៀ αŸ– αž€αŸ’αžšαž αž˜

αŸ₯ αŸ– αž€αŸ’αžšαž αž˜β€‹αžŸαŸ’αžœαžΆαž™

៦ αŸ– αž›αžΏαž„

៧ αŸ– ស

៨ αŸ– αž”αŸ’αžšαž•αŸαŸ‡

៩ αŸ– αžαŸ€αžœβ€‹αžŸαŸ’αžšαžΆαž›

៑០ αŸ– αž”αŸƒαžαž„β€‹αžŸαŸ’αžšαžΆαž›

៑៑ αŸ– αž•αŸ’αž‘αŸƒβ€‹αž˜αŸαžƒβ€‹αžŸαŸ’αžšαžΆαž›

៑្ αŸ– αž€αŸ’αžšαž αž˜β€‹αžŸαŸ’αžšαžΆαž›

៑៣ αŸ– αž€αŸ’αžšαž αž˜β€‹αžŸαŸ’αžœαžΆαž™β€‹αžŸαŸ’αžšαžΆαž›

៑ៀ αŸ– αž›αžΏαž„β€‹αžŸαŸ’αžšαžΆαž›

៑αŸ₯ αŸ– αžŸβ€‹αž—αŸ’αž›αžΊ

αž’αž“αž»αž‚αž˜αž“αŸβ€‹αž“αŸαŸ‡β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžΎβ€‹αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž”αž˜αŸ’αž›αŸ‚αž„β€‹αž–αžΈβ€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈ MS-DOS αž˜αž»αž“β€‹αŸ— αžŠαŸ‚αž›β€‹αž•αŸ’αž’αŸ‚αž€β€‹αž›αžΎβ€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈ BASIC αžŠαŸ‚αž›β€‹αž”αŸ’αžšαžΎβ€‹αž›αŸαžβ€‹αž–αžŽαŸŒβ€‹αžαžΆαž„β€‹αž›αžΎΒ αŸ” αž’αž“αž»αž‚αž˜αž“αŸβ€‹αžαŸ’αžšαž‘αž”αŸ‹β€‹αžαž˜αŸ’αž›αŸƒβ€‹αž…αŸ†αž“αž½αž“β€‹αž‚αžαŸ‹β€‹αž’αŸ† αžŠαŸ‚αž›β€‹αž…αž„αŸ’αž’αž»αž›β€‹αž”αž„αŸ’αž αžΆαž‰αž–αžΈβ€‹αž–αžŽαŸŒβ€‹αžŠαŸ‚αž›β€‹αž“αžΉαž„β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αŸ’αžšαžΎβ€‹αž€αŸ’αž“αž»αž„ LibreOffice IDEΒ αŸ”

Error codes:

5 αž€αžΆαžšβ€‹αž αŸ…β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

Example:


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!