LibreOfficeDev 25.8 Help
ត្រឡប់លេខពណ៌ RGB នៃពណ៌ដែលបានហុចជាតម្លៃពណ៌មួយ តាមរយៈប្រព័ន្ធសរសេរកម្មវិធីដែលផ្អែកលើ MS-DOS មុនៗ ។
QBColor (ColorNumber As Integer)
Long
ColorNumber កន្សោមចំនួនគត់ណាមួយ ដែលបញ្ជាក់ពីតម្លៃពណ៌នៃពណ៌ដែលបានហុចពីប្រព័ន្ធសរសេរកម្មវិធីដែលផ្អែកលើ MS-DOS មុនៗ ។
ColorNumber អាចត្រូវបានផ្តល់តម្លៃដូចខាងក្រោម ៖
០ ៖ ខ្មៅ
១ ៖ ខៀវ
២ ៖ បៃតង
៣ ៖ ផ្ទៃមេឃ
៤ ៖ ក្រហម
៥ ៖ ក្រហមស្វាយ
៦ ៖ លឿង
៧ ៖ ស
៨ ៖ ប្រផេះ
៩ ៖ ខៀវស្រាល
១០ ៖ បៃតងស្រាល
១១ ៖ ផ្ទៃមេឃស្រាល
១២ ៖ ក្រហមស្រាល
១៣ ៖ ក្រហមស្វាយស្រាល
១៤ ៖ លឿងស្រាល
១៥ ៖ សភ្លឺ
អនុគមន៍នេះត្រូវបានប្រើដើម្បីបម្លែងពីកម្មវិធី MS-DOS មុនៗ ដែលផ្អែកលើកម្មវិធី BASIC ដែលប្រើលេខពណ៌ខាងលើ ។ អនុគមន៍ត្រឡប់តម្លៃចំនួនគត់ធំ ដែលចង្អុលបង្ហាញពីពណ៌ដែលនឹងត្រូវប្រើក្នុង LibreOfficeDev IDE ។
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