VB编程，在窗体上创建一文本框，通过选择，我们可以改变文本框的字体以及字体颜色和背景颜色，运行结果

Question

VB编程，在窗体上创建一文本框，通过选择，我们可以改变文本框的字体以及字体颜色和背景颜色，运行结果如图所示。
多谢各位大神！！拜托大家帮帮我吧～感激不尽！！

Answer 1

Private Sub Option1_Click(Index As Integer)
''字体、字色、背景都用控件数组
Text1.FontName = Option1(Index).Caption '字体
End Sub
Private Sub Option2_Click(Index As Integer)
If Option2(Index).Caption = "红色" Then '背景色
Text1.BackColor = vbRed
ElseIf Option2(Index).Caption = "绿色" Then
Text1.BackColor = vbGreen '色值，VB里有定义的
Else
Text1.BackColor = &HFF0000 '蓝色16进制值。这样写也行
End If
End Sub
Private Sub Option3_Click(Index As Integer)
If Option3(Index).Caption = "红色" Then '字色
Text1.ForeColor = vbRed
ElseIf Option3(Index).Caption = "绿色" Then
Text1.ForeColor = vbGreen '色值，VB里有定义的
Else
Text1.ForeColor = &HFF0000 '这是蓝色值。这样写也行
End If
End Sub本回答被提问者采纳