VB复选框（今天刚上手）

来源：百度知道 编辑：UC知道 时间：2024/06/23 17:32:00
代码段

Private Sub Check1_Click()
If Check1.Value = 1 Then
Tex1.FontBold = True
Else
Tex1.FontBold = False

End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Tex1.FontUnderline = True
Else
Tex1.FontUnderline = False
End If
End Sub

Private Sub Check3_Click()
If Check2.Value = 1 Then
Tex1.FontItalic = true
Else
Tex1.FontItalic = True

End If
End Sub

一个texbox 三个复选框，依次为黑体 下划线 斜体
黑体 下划线操作正常 斜体操作不正常
只有在先操作一次下划线的情况下，斜体有效改变一次，这是为什么呢
初次提问，谢谢回答。

你看看你的代码：
Private Sub Check3_Click()
If Check2.Value = 1 Then '你这一句，放在Check3里面，竟然是判断Check2，肯定就出问题啊。
Tex1.FontItalic = true
Else
Tex1.FontItalic = True

End If
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
改为：
Private Sub Check3_Click()
If Check3.Value = 1 Then
Tex1.FontItalic = true
Else
Tex1.FontItalic = False '这里也是你粗心吧。

End If
End Sub