VB文本框的文字颜色的变化

来源：百度知道 编辑：UC知道 时间：2024/06/06 00:04:12
一个文本框和三个组合框，三个组合框分别输入R、G、B、的数值。当程序运行时，通过选择相对应组合框内的不同组合项来设置文本框的前景色。
麻烦大家帮帮忙，谢谢！

Private Sub Combo1_Click()
a = Combo1.Text
Text1.ForeColor = RGB(a, b, c)
End Sub

Private Sub Combo2_Click()
b = Combo2.Text
Text1.ForeColor = RGB(a, b, c)
End Sub

Private Sub Combo3_Click()
c = Combo3.Text
Text1.ForeColor = RGB(a, b, c)
End Sub

Private Sub Form_Load()
Combo1.Text = "0"
Combo2.Text = "0"
Combo3.Text = "0"
For h = 0 To 255
Combo1.AddItem h
Combo2.AddItem h
Combo3.AddItem h
Next
End Sub

把代码放进去,建三个组合框,一个文本框即可