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