傳回 Long，代表對應至指定色號的 RGB 色彩代碼。
語法
QBColor (色彩)
必要的 color引數是 0-15 範圍內的整數。
設定
color 引數具有下列設定：
| 數值 | 色彩 | 數值 | 色彩 |
|---|---|---|---|
| 0 | 黑色 | 8 | 灰色 |
| 1 | 藍色 | 9 | 淺藍色 |
| 2 | 綠色 | 10 | 淺綠色 |
| 3 | 青色 | 11 | 淺青色 |
| 4 | 紅色 | 12 | 淺紅色 |
| 5 | 洋紅色 | 13 | 淺洋紅色 |
| 6 | 黃色 | 14 | 淺黃色 |
| 7 | 白色 | 15 | 亮白色 |
註解
color 引數代表舊版基本 (使用的色彩值，例如 Microsoft Visual Basic for MS-DOS 和基本編譯器) 。 從最低有效位元組開始，傳回值會指定紅色、綠色和藍色值，用來在 Visual Basic for Applications 使用的 RGB 系統中設定適當的色彩。
範例
注意
下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。
此範例使用 QBColor 函數將傳入MyForm表單的 BackColor 屬性變更為 所指示ColorCode的色彩
QBColor 接受介於 0 到 15 之間的整數值。
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub