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