13问答网 > 在VB中如何用ComboBox来设置文本框中字体的属性？代码大致怎样？

在VB中如何用ComboBox来设置文本框中字体的属性？代码大致怎样？

图中设置文本框中字体的代码那里出错！

2025-04-28 06:25:29

推荐回答（2个）

回答1：

写个代码，参考一下吧：
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "红色"
Text1.ForeColor = vbRed
Case "蓝色"
Text1.ForeColor = vbBlue
Case "绿色"
Text1.ForeColor = vbGreen
End Select
End Sub

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

回答2：

只需要把TextBox控件的HideSelection属性设置成False即可实现这个目的了