ส่งกลับ 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 for 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