VB 将颜色添加到组合框

来源：百度知道 编辑：UC知道 时间：2024/05/12 19:49:22
我要做一个组合框，可以选择颜色，
问下有没有方法可以将颜色直接加载进去
这个是要考试的题目，要求做成组合框。里面的选项要是中文的，我想把VB里面的标准颜色弄进去。

如果 仅仅是添加vb自带的颜色,用中文显示
那就很简单了 参考以下代码:

'添加 ms form2.0 object library 控件组 中的combobox

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0: Me.BackColor = RGB(0, 0, 0)
Case 1: Me.BackColor = RGB(0, 0, 191)
Case 2: Me.BackColor = RGB(0, 191, 0)
Case 3: Me.BackColor = RGB(0, 191, 191)
Case 4: Me.BackColor = RGB(191, 0, 0)
Case 5: Me.BackColor = RGB(191, 0, 191)
Case 6: Me.BackColor = RGB(191, 191, 0)
Case 7: Me.BackColor = RGB(191, 191, 191)
Case 8: Me.BackColor = RGB(64, 64, 64)
Case 9: Me.BackColor = RGB(0, 0, 255)
Case 10: Me.BackColor = RGB(0, 255, 0)
Case 11: Me.BackColor = RGB(0, 255, 255)
Case 12: Me.BackColor = RGB(255, 0, 0)
Case 13: Me.BackColor = RGB(255, 0, 255)
Case 14: Me.BackColor = RGB(255, 255, 0)
Case 15: Me.BackColor = RGB(255, 255, 255)
End Select
End Sub
P