ฟังก์ชัน RGB

นำไปใช้กับ
Access for Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

ส่งกลับ Long ที่แสดงค่าสี RGB

ไวยากรณ์

RGB(สีแดง สีเขียว สีน้ําเงิน)

ไวยากรณ์ของฟังก์ชัน RGB มีอาร์กิวเมนต์ดังนี้

อาร์กิวเมนต์ คำอธิบาย
แดง จำเป็น ตัวแปร (จํานวนเต็ม) ตัวเลขในช่วง 0-255 ครอบคลุม ที่แสดงถึงส่วนประกอบสีแดงของสี
สี เขียว จำเป็น ตัวแปร (จํานวนเต็ม) ตัวเลขในช่วง 0–255 ครอบคลุม ที่แสดงถึงส่วนประกอบสีเขียวของสี
สี ฟ้า จำเป็น ตัวแปร (จํานวนเต็ม) ตัวเลขในช่วง 0–255 ครอบคลุม ที่แสดงถึงส่วนประกอบสีน้ําเงินของสี

    

ข้อสังเกต

วิธีการและคุณสมบัติของแอปพลิเคชันที่ยอมรับข้อกําหนดสีคาดว่าข้อกําหนดดังกล่าวจะเป็นตัวเลขที่แสดงค่าสี RGB ค่าสี RGB ระบุความเข้มสัมพัทธ์ของสีแดง สีเขียว และสีน้ําเงินเพื่อให้แสดงสีที่เฉพาะเจาะจง

ค่าสําหรับอาร์กิวเมนต์ใดๆ ถึง RGB ที่เกิน 255 จะถือว่าเป็น 255

ตารางต่อไปนี้แสดงสีมาตรฐานและค่าสีแดง สีเขียว และสีน้ําเงินได้แก่:

สี ค่าสีแดง ค่าสีเขียว ค่าสีน้ําเงิน
สีดำ 0 0 0
สีน้ำเงิน 0 0 255
สีเขียว 0 255 0
สี ฟ้า 0 255 255
สีแดง 255 0 0
ม่วงมาเจนต้า 255 0 255
เหลือง 255 255 0
สีขาว 255 255 255

    

ค่าสี RGB ที่ส่งกลับโดยฟังก์ชันนี้ไม่เข้ากันกับค่าที่ใช้โดยระบบปฏิบัติการ Macintosh ซึ่งอาจใช้ภายในบริบทของแอปพลิเคชัน Microsoft สําหรับ Macintosh แต่ไม่ควรใช้เมื่อการสื่อสารเปลี่ยนสีโดยตรงกับระบบปฏิบัติการ Macintosh

ตัวอย่าง

หมายเหตุ

ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา

ตัวอย่างนี้แสดงวิธีใช้ฟังก์ชัน RGB เพื่อส่งกลับจํานวนทั้งหมดที่แสดงค่าสี RGB ซึ่งใช้สําหรับวิธีการและคุณสมบัติของแอปพลิเคชันที่ยอมรับข้อมูลจําเพาะของสี วัตถุและคุณสมบัติของวัตถุ MyObject จะถูกใช้เพื่อประกอบเท่านั้น ถ้า MyObject ไม่มีอยู่ หรือถ้าไม่มีคุณสมบัติ สี จะเกิดข้อผิดพลาดขึ้น

Dim RED, I, RGBValue, MyObject
' Return the value for Red.
Red = RGB(255, 0, 0)    
' Initialize offset.
I = 75    
RGBValue = RGB(I, 64 + I, 128 + I)     
' Same as RGB(75, 139, 203).
' Set the Color property of MyObject to Red.
MyObject.Color = RGB(255, 0, 0)