菜鸟的问题~

[k_jerry]

Dim bold1 As Boolean, italic1 As Boolean, underline1 As Boolean
Private Sub bold_Click()
If bold1 = False Then
bold1 = True
Text1.FontBold = True
Form1.bold.Checked = True
Else
bold1 = False
Text1.FontBold = False
Form1.bold.Checked = False
End If
End Sub
Private Sub italic_Click()
If italic1 = True Then
italic1 = False
Text1.FontItalic = False
Form1.italic.Checked = False
Else
italic1 = True
Text1.FontItalic = True
Form1.italic.Checked = True
End If
End Sub
Private Sub underling_Click()
If underline1 = True Then
underline1 = False
Text1.FontUnderline = False
Form1.underling.Checked = False
Else
underline1 = True
Text1.FontUnderline = True
Form1.underling.Checked = True
End If
End Sub
首先~在菜单编辑器中~先设定了字体菜单，包括（粗体bold、斜体italic、下划线underline）
但在定义的时候为什么不能直接用设定好的（bold,italic,underline）~而要重新设定呢？
为什么要定义为boolean布尔型呢？

[EricaCHH]

bold1 , italic1, underline1 没有定义他们的初值，无法直接判断吧。可以不用这些，直接
Private Sub bold_Click()
Text1.FontBold = ture
end sub
如果你要判断text1里的文字是不是粗体,是粗体，就不变，不是变粗体。可以直接
Private Sub bold_Click()
if Text1.FontBold = flase then
Text1.FontBold = ture
end if
end sub

[LWMWORK]

粗体bold、斜体italic、下划线underline
因为它们都只有两种状态，True or False