好吧问答库 > vb中如何使用combobox设计一个能够调节textbox内容字体颜色的东西？？

vb中如何使用combobox设计一个能够调节textbox内容字体颜色的东西？？

2026年09月28日 19:32

有2个网友回答

网友（1）：

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "红色"
Text1.ForeColor = &HFF&
Case "绿色"
Text1.ForeColor = &HC000&
Case "黑色"
Text1.ForeColor = &H0&
Case "蓝色"
Text1.ForeColor = &HFF0000
Case "紫色"
Text1.ForeColor = &HFF00FF
Case Else
Exit Sub
End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem "红色"
Combo1.AddItem "绿色"
Combo1.AddItem "黑色"
Combo1.AddItem "蓝色"
Combo1.AddItem "紫色"
End Sub

网友（2）：

Private Sub Combo1_Click()
Text1.ForeColor = QBColor(Val(Combo1.Text))
End Sub

Private Sub Form_Load()
For i = 0 To 15
Combo1.AddItem i & " 号颜色"
Next
Combo1.Text = Combo1.List(0)
End Sub