QBColor Function

āĻĒā§āĻ°āĻ¨ā§‹ MS-DOS āĻ­āĻŋāĻ¤ā§āĻ¤āĻŋāĻ• āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽāĻŋāĻ‚ āĻ¸āĻŋāĻ¸ā§āĻŸā§‡āĻŽā§‡āĻ° āĻ°āĻ™ā§‡āĻ° āĻŽāĻžāĻ¨ āĻšāĻŋāĻ¸ā§‡āĻŦā§‡ āĻĒāĻžāĻ¸ āĻ•āĻ°āĻž āĻ°āĻ™ā§‡āĻ° RGB āĻ°āĻ™ā§‡āĻ° āĻ•ā§‹āĻĄ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°āĻž āĻ¯āĻžā§ŸāĨ¤

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:

QBColor (ColorNumber As Integer)

āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:

āĻ˛āĻ‚

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

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 Invalid procedure call

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


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!