Question

vb.net checkbox使用的问题

这个程序里的checkbox，我希望是可以多选，并且选完后就可以看到效果。
我在四个checkbox都用了相同的if语句
If CheckBox1.Checked = True Then
If CheckBox2.Checked = True Then
If CheckBox3.Checked = True Then
If CheckBox4.Checked = True Then
zFontstyle = FontStyle.Bold Or FontStyle.Italic Or FontStyle.Underline Or FontStyle.Strikeout
Else
。。。。。。。。
zFontstyle = FontStyle.Strikeout
Else
zFontstyle = FontStyle.Regular
End If
End If
End If
End If
TextBox1.Font = New Font(zFontname, zFontsize, zFontstyle)
这里写不了那么多代码。就用这种方法实现功能。
在vb.net中有没有更简单的方法？
我是个新手，望高手多多海涵！
谢谢！

Answer 1

比如要斜体，可以在Checkbox2的CheckedChanged里写

        If CheckBox2.Checked = True Then
            zFontstyle  = zFontstyle  + FontStyle.Italic
            '选中时
        Else
            zFontstyle  = zFontstyle  - FontStyle.Italic
            '未选中时
        End If

 其他也类似

选中时在原有的Font.Style上加上枚举值

去除时在原有的Font.Style上减去枚举值