ส่งกลับ Long ที่แสดงโค้ดสี RGB ที่สอดคล้องกับหมายเลขสีที่ระบุ
ไวยากรณ์
QBColor(color)
อาร์กิวเมนต์สีที่จําเป็นคือจํานวนเต็มในช่วง 0-15
การตั้งค่า
อาร์กิวเมนต์ สี มีการตั้งค่าเหล่านี้:
| หมายเลข | สี | หมายเลข | สี |
|---|---|---|---|
| 0 | สีดำ | 8 | เทา |
| 1 | สีน้ำเงิน | 9 | ฟ้าอ่อน |
| 2 | สีเขียว | 10 | เขียวอ่อน |
| 3 | สี ฟ้า | 11 | ฟ้าอ่อน |
| 4 | สีแดง | 1.2 | แดงอ่อน |
| 5 | ม่วงมาเจนต้า | 1.3 | ม่วงมาเจนต้าอ่อน |
| 6 | เหลือง | 14 | เหลืองอ่อน |
| 7 | สีขาว | 15 | สีขาวสว่าง |
ข้อสังเกต
อาร์กิวเมนต์ สี แสดงค่าสีที่ใช้โดย Basic เวอร์ชันก่อนหน้า (เช่น Microsoft Visual Basic สําหรับ MS-DOS และ Basic Compiler) เริ่มต้นด้วยไบต์ที่มีนัยสําคัญน้อยที่สุด ค่าที่ส่งกลับจะระบุค่าสีแดง สีเขียว และสีน้ําเงินที่ใช้เพื่อตั้งค่าสีที่เหมาะสมในระบบ RGB ที่ใช้โดย Visual Basic for Applications
ตัวอย่าง
หมายเหตุ
ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน QBColor เพื่อเปลี่ยนคุณสมบัติ BackColor ของฟอร์มที่ส่งผ่านเป็นMyFormสีที่ระบุโดยColorCode
QBColor ยอมรับค่าจํานวนเต็มระหว่าง 0 ถึง 15
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub