QBColor Function

ត្រឡប់​លេខ​ពណ៌ RGB នៃ​ពណ៌​ដែល​បាន​ហុច​ជា​តម្លៃ​ពណ៌​មួយ តាម​រយៈ​ប្រព័ន្ធ​សរសេរ​កម្មវិធី​ដែល​ផ្អែក​លើ MS-DOS មុន​ៗ ។

Syntax:

QBColor (ColorNumber As Integer)

Return type:

Long

Parameters:

ColorNumber កន្សោម​ចំនួន​គត់​ណា​មួយ ដែល​បញ្ជាក់​ពី​តម្លៃ​ពណ៌​នៃ​ពណ៌​ដែល​បាន​ហុច​ពី​ប្រព័ន្ធ​សរសេរ​កម្មវិធី​ដែល​ផ្អែក​លើ MS-DOS មុន​ៗ ។

ColorNumber អាច​ត្រូវ​បាន​ផ្តល់​តម្លៃ​ដូច​ខាង​ក្រោម​ ៖

០ ៖ ខ្មៅ

១ ៖ ខៀវ

២ ៖ បៃតង

៣ ៖ ផ្ទៃ​មេឃ

៤ ៖ ក្រហម

៥ ៖ ក្រហម​ស្វាយ

៦ ៖ លឿង

៧ ៖ ស

៨ ៖ ប្រផេះ

៩ ៖ ខៀវ​ស្រាល

១០ ៖ បៃតង​ស្រាល

១១ ៖ ផ្ទៃ​មេឃ​ស្រាល

១២ ៖ ក្រហម​ស្រាល

១៣ ៖ ក្រហម​ស្វាយ​ស្រាល

១៤ ៖ លឿង​ស្រាល

១៥ ៖ ស​ភ្លឺ

អនុគមន៍​នេះ​ត្រូវ​បាន​ប្រើ​ដើម្បី​បម្លែង​ពី​កម្មវិធី MS-DOS មុន​ៗ ដែល​ផ្អែក​លើ​កម្មវិធី BASIC ដែល​ប្រើ​លេខ​ពណ៌​ខាង​លើ ។ អនុគមន៍​ត្រឡប់​តម្លៃ​ចំនួន​គត់​ធំ ដែល​ចង្អុល​បង្ហាញពី​ពណ៌​ដែល​នឹង​ត្រូវ​ប្រើ​ក្នុង LibreOfficeDev 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