ຟັງຊັນ RGB [VBA]

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

ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.


RGB (Red, Green, Blue)

Long

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

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

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

ເນື່ອງຈາກໂໝດການເຂົ້າກັນໄດ້ກັບ VBA (Option VBASupport 1), ຄ່າ Long ຈະຖືກຄິດໄລ່ເປັນ
Result = red + green×256 + blue×65536.

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


Option VBASupport 1
Sub ExampleRGBVBA
Dim lVar As Long
    lVar = rgb(128,0,200)
    Print lVar; ' ສົ່ງຄືນຄ່າ 13107328
End Sub