Question

VB中修改字号

Private Sub Check1_Click()
If Check1.Value = 1 Then
Check2.Value = 0
Check3.Value = 0
Text1.FontSize = 17
Else

End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Check1.Value = 0
Check3.Value = 0
Text1.FontSize = 24
Else

End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Check1.Value = 0
Check2.Value = 0
Text1.FontSize = 38
Else

End If
End Sub

Private Sub Option1_Click()
If Text1.Visible = True Then
Text1.FontName = "宋体"
Else
Text1.Visible = False
End If
End Sub

Private Sub Option2_Click()
If Text1.Visible = True Then
Text1.FontName = "黑体"
Else
Text1.Visible = False
End If
End Sub

Private Sub Option3_Click()
If Text1.Visible = True Then
Text1.FontName = "楷体_GB2312"
Else
Text1.Visible = False
End If
条件：3个checkbox只有一个Value能为1，并且每个checkbox都执行至少一次对文本框的操作
要求：Else下面该写什么才能让文本框的内容恢复到Optionbutton执行后,checkbox执行前的内容？
Private Sub Check4_Click()
If Check4.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check5_Click()
If Check5.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
Private Sub Check6_Click()
If Check6.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub
这里加上上面的代码就是全部了，控件为：
一个文本框，它的MultiLine值为True
3个Optionbutton
6个checkbox
有图
要求：当check1或者check2或者check3的Value值从1变回0时，文本框所显示内容后退一步或者返回上一步。
能做出来的再加50分

Answer 1

我觉得“3个checkbox只有一个Value能为1”还不如直接采用Option，另外你可以使用变量来保存你的值（“下面该写什么才能让文本框的内容恢复到Optionbutton执行后,checkbox执行前的内容”），具体的我看不懂你要做什么，如果按照这里的程序运行的话，文本框的内容根本不会变化啊。

追问

如果用Option执行那么6个Option只能选1个了不是吗？
还有用变量保存是什么意思
我这里的意思就是说在文本框内输入几个字体
然后用Option跟checkbox修改。

追答

你的单选框实际上为两个功能，一组用来改字号，一组用来改字体，这样的话你可以在窗体中加入两个Frame1，然后将字号的和字体的分别画入（注意不是双击添加，而是在Frame1拖动或者剪切进去）文本框中输入的内容不会变，只是字体和大小会变。所以什么恢复之类的不存在。

Answer 2

用一个变量保存字体大小。这里用text1.tag属性：

Private Sub Check1_Click()
If Check1.Value = 1 Then
Check2.Value = 0
Check3.Value = 0
Text1.FontSize = 17
text1.tag=17
Else
text1.fontsize=val(text1.tag)
End If
End Sub

其他两个check写法一样

追问

简要一点说我的要求好了
在文本框中输入一些文字，然后执行Option跟check一次（不分顺序）（就是check的Value属性为1 ，Option为true）
然后把check的Value属性重新设置回0 那么文本框内显示的内容怎么样才能变成就像只执行Option一样？

追答

用text1的tag 属性保存字体大小，相当于一个全局变量

追问

当check1或者check2或者check3的Value值从1变回0时，文本框所显示内容后退一步或者返回上一步。

追答

字号应该用option控件