ເນື້ອໃນ

# ຟັງຊັນ 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

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!