ฟังก์ชัน 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 ไม่มีอยู่ หรือถ้าไม่มีคุณสมบัติ Color ข้อผิดพลาดจะเกิดขึ้น

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)