ส่งกลับ 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 เป็นสีที่ระบุโดย ColorCodeQBColor ยอมรับค่าจํานวนเต็มระหว่าง 0 ถึง 15
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form) MyForm.BackColor = QBColor(ColorCode) End Sub