ຟັງຊັນ QBColor

ສົ່ງຄືນລະຫັດສີ RGB ຂອງສີທີ່ຖືກສົ່ງເປັນຄ່າສີຜ່ານລະບົບການຂຽນໂປຣແກຣມແບບ MS-DOS ລຸ້ນເກົ່າ.

ໄວຍາກອນ:

QBColor (ColorNumber As Integer)

ປະເພດຄ່າທີ່ສົ່ງກັບ:

Long

ພາຣາມິເຕີ:

ColorNumber: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ກຳນົດຄ່າສີຂອງສີທີ່ສົ່ງມາຈາກລະບົບການຂຽນໂປຣແກຣມແບບ MS-DOS ລຸ້ນເກົ່າ.

ColorNumber ສາມາດກຳນົດເປັນຄ່າຕ່າງໆໄດ້ດັ່ງນີ້:

0 : ສີດຳ

1 : ສີຟ້າ

2 : ສີຂຽວ

3 : ສີຟ້າຂຽວ (Cyan)

4 : ສີແດງ

5 : ສີບົວເຂັ້ມ (Magenta)

6 : ສີເຫຼືອງ

7 : ສີຂາວ

8 : ສີເທົາ

9 : ສີຟ້າອ່ອນ

10 : ສີຂຽວອ່ອນ

11 : ສີຟ້າຂຽວອ່ອນ

12 : ສີແດງອ່ອນ

13 : ສີບົວເຂັ້ມອ່ອນ

14 : ສີເຫຼືອງອ່ອນ

15 : ສີຂາວໃສ

ຟັງຊັນນີ້ໃຊ້ເພື່ອປ່ຽນຄ່າຈາກແອັບພລິເຄຊັນ BASIC ລຸ້ນເກົ່າທີ່ໃຊ້ MS-DOS ເຊິ່ງໃຊ້ລະຫັດສີຂ້າງເທິງ. ຟັງຊັນຈະສົ່ງຄືນຄ່າຈຳນວນຖ້ວນແບບຍາວ ເພື່ອບອກສີທີ່ຈະໃຊ້ໃນ LibreOffice IDE.

ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

ຕົວຢ່າງ:


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