Question

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

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

Answer 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

Answer 2

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