Question

VB 单选框 复选框的问题

通过单选框 复选框设置文本框的字体 代码如下

Private Sub Option1_Click()
Text1.Font.Name = "宋体"
End Sub

Private Sub Option2_Click()
Text1.Font.Name = "黑体"
Private Sub Check1_Click()
Text1.Font.Bold = Not Text1.Font.Bold
End Sub

Private Sub Check3_Click()
Text1.Font.Italic = Not Text1.Font.Italic
End Sub

Private Sub Check2_Click()
Text1.Font.Strikethrough = Not Text1.Font.Strikethrough
End Sub

Private Sub Check4_Click()
Text1.Font.Underline = Not Text1.Font.Underline
End Sub

我的问题是。。为什么每句代码后面都是 Not Text1.font.bold 这是什么意思啊。。为什么是Not呢?

Answer 1

Text1.Font.Underline = Not Text1.Font.Underline
文本框 的 字体 . N种状态 = NOT ( 取反) 文本框 的 字体 . N种状态
取反就是非
这样解释, 如果 "有下划线" 那本次的点击事件就是 "删除下划线".
NOT(相反), 如果 "没有下划线" 那就 "加上下划线"

不可能同时有多条下划线是吧~~.

Answer 2

布尔量取反，原来是真的就变假，原来是假的就变真