ເນື້ອໃນ

# ຟັງຊັນ RGB

ສົ່ງຄືນຄ່າສີເປັນຈຳນວນຖ້ວນແບບ Long ເຊິ່ງປະກອບດ້ວຍສ່ວນປະກອບສີແດງ, ສີຂຽວ ແລະ ສີຟ້າ.

### ໄວຍາກອນ:

    RGB (Red, Green, Blue)

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

Long

### ພາຣາມິເຕີ:

red: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ແທນສ່ວນປະກອບສີແດງ (0-255) ຂອງສີປະສົມ.

green: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ແທນສ່ວນປະກອບສີຂຽວ (0-255) ຂອງສີປະສົມ.

blue: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ແທນສ່ວນປະກອບສີຟ້າ (0-255) ຂອງສີປະສົມ.

ຄ່າ Long ທີ່ໄດ້ຮັບແມ່ນການຄິດໄລ່ຕາມສູດດັ່ງນີ້:
Result = red×65536 + green×256 + blue.

ພາຍໃຕ້ໂໝດການເຂົ້າກັນໄດ້ກັບ VBA (Option VBASupport 1), ຄ່າ Long ຈະຖືກຄິດໄລ່ເປັນ
Result = red + green×256 + blue×65536
ເບິ່ງ ຟັງຊັນ RGB [VBA]

ກ່ອງໂຕ້ຕອບຕົວເລືອກສີ ຊ່ວຍໃນການຄິດໄລ່ສ່ວນປະກອບສີແດງ, ສີຂຽວ ແລະ ສີຟ້າ ຂອງສີປະສົມ. ການປ່ຽນສີຂໍ້ຄວາມ ແລະ ການເລືອກ ສີກຳນົດເອງ ຈະສະແດງກ່ອງໂຕ້ຕອບຕົວເລືອກສີ.

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

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

### ຕົວຢ່າງ:

    Sub ExampleColor
    Dim lVar As Long
        lVar = rgb(128,0,200)
        MsgBox "The color " & lVar & " consists of:" & Chr(13) &_
            "red= " & red(lVar) & Chr(13)&_
            "green= " & green(lVar) & Chr(13)&_
            "blue= " & blue(lVar) & Chr(13) , 64,"colors"
    End Sub

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