Question

vb中复选框的问题

窗体的字在我选了"黑体"这个复选框后变成黑体了,但是去掉复选框里的勾后怎样让字体还原到原来的状态啊?
原来不知道是宋体啊 要还原成点之前的状态

Answer 1

Dim a
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Font = "黑体"
Else
Text1.Font = a
End If
End Sub

Private Sub Form_Load()
a = Text1.Font
End Sub
先将启动是的字体保存下来，还原的时候就能还原以前的字体

Answer 2

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Font="黑体"
Else
Text1.Font="宋体"
End If
End Sub

另外建议这个最好用单选框