vba 中用户窗体如何弹出

Question

如题。设计一个用户窗体
b.点击“宋体”复选框，添加代码：如果选择“宋体”复选框，则把字体设置为宋体
，否则字体默认为黑体
c.点击“加粗”复选框，添加代码：设置字体为粗体
d.点击“红色”复选框，添加代码：如果选择“红色”复选框，则把字体颜色设置为红色，否则字体颜色设置为黑色
e.运行程序后，在文字框中输入下列文字“您好！”，选中“宋体”、“加粗”、“红色”复选框，把文字设置为要求的格式。

Answer 1

vba 中用户窗体弹出的代码如下：

第一种：

宋体".Name = ".Font，添加控件你自己应该会做吧.Font.Bold = False
End If
End Sub

Private Sub chbFont_Click() ‘宋体复选框

If chbFont = True Then
TextBox1.Font.Name = "：
Private Sub chbBold_Click() ‘加粗复选框
If chbBold = True Then
TextBox1.Font.ForeColor = &HFF&
Else
TextBox1;黑体".Bold = True
Else
TextBox1;
End If
End Sub

Private Sub chbRed_Click() ‘红色复选框
If chbRed = True Then
TextBox1;
Else

 

第二种：

Answer 2

代码如下，添加控件你自己应该会做吧：
Private Sub chbBold_Click() ‘加粗复选框
If chbBold = True Then
TextBox1.Font.Bold = True
Else
TextBox1.Font.Bold = False
End If
End Sub

Private Sub chbFont_Click() ‘宋体复选框

If chbFont = True Then
TextBox1.Font.Name = "宋体"
Else
TextBox1.Font.Name = "黑体"
End If
End Sub

Private Sub chbRed_Click() ‘红色复选框
If chbRed = True Then
TextBox1.ForeColor = &HFF&
Else
TextBox1.ForeColor = &H0&
End If
End Sub本回答被提问者采纳