Question

VB中复选框的问题

小弟初学VB,学习的教程中有个复选框改变字体样式的一课.
复选框依次是 粗体,斜体,下划线.
发现只能实现点粗体后,点下面的两个才能变化,并且在去掉最后两个复选框里的勾后不能还原.只能先取消掉第一个后才能还原.请问要实现以上的功能需要加的代码.
我是想通过勾选上面的三个选项该改变原本设定的三个字的样式 比如 "你好吗"

Answer 1

Private Sub Check1_Click() '粗体复选框 如果是text控件时，把label1改掉
If Check1.Value = 0 Then '假如check的值为0(flase),即没有选中时，则
Label1.FontBold = Flase 'label1 粗体属性为flase
Else '否则 ,即True选中状态
Label1.FontBold = True 'label1 粗体属性也为True（下面的按钮大同小异）
End If
End Sub

Private Sub Check2_Click() '斜体复选按钮
If Check2.Value = 0 Then
Label1.FontItalic = False
Else
Label1.FontItalic = True
End If
End Sub
Private Sub Check3_Click() '下划线复选框
If Check3.Value = 0 Then
Label1.FontUnderline = False
Else
Label1.FontUnderline = True
End If
End Sub

Answer 2

If Check1.Value Then '加粗
Object.FontBold = True
Else
Object.FontBold = False
End If
其他的都一样，就是把代码中的Check1、Object改成你自己的控件、FontBold改成FontItalic（倾斜）或者FontUnderline（下划线）就可以了