Question

VB中要求按下“确定”才能使选中的字号和字体在文本框中生效，应该怎么写代码？

Answer 1

    If Me.Option1.Value = True Then '字体

        Me.Text1.FontName = Me.Option1.Caption

    Else

        Me.Text1.FontName = Me.Option2.Caption

    End If

    

    If Me.Option3.Value = True Then '字号

        Me.Text1.FontSize = Left(Me.Option3.Caption, 1)

    Else

        Me.Text1.FontSize = Left(Me.Option4.Caption, 2)

    End If

Answer 2

这个很简单的啊，就是按下确定，再判断选择的项目，以下面为选项为：Option1(0) 宋体,Option1(1) 黑体，Option2(0)8号,Option2(1) 12号为例：
代码如下：
If Option1(0).Value = True Then
Text1.FontName = "宋体"
Else
Text1.FontName = "黑体"
End If

If Option2(0).Value = True Then
Text1.Font.Size = 8
Else
Text1.Font.Size = 12
End If

以上为个人看法，手打很辛苦，希望采纳，谢谢您的支持。
谢谢您的支持，有任何疑问欢迎您再次通过此渠道提问，让大家共同解决，共同进步！
以上回答仅为“百度规则”，没有任何违法行为，请楼主采纳，谢谢！