vb.net – Xor的替代品

我得到了以下方法:

Private Sub boldButton_Click(sender As System.Object,e As System.EventArgs) Handles boldButton.Click
    Dim curFont As Font
    Dim newFont As Font
    curFont = rtb.SelectionFont
    If curFont IsNot Nothing Then
        'create the new font
        newFont = New Font(curFont.FontFamily,curFont.Size,curFont.Style Xor FontStyle.Bold)
        'set it
        rtb.SelectionFont = newFont
    End If
End Sub

目前在理解这部分代码curFont.Style Xor FontStyle.Bold时遇到的问题.在不使用运算符Xor的情况下实现相同结果的有效方法是什么?

编辑(由us2012评论)我需要替代方案吗?

我查了Xor on MSDN,但仍然无法理解boldButton_Click程序中的实现.

解决方法

按位异或切换标志.我们假设Style位域看起来像这样

00000000
     ^^^
     BIU (Bold,Italic,Underline)

所以FontStyle.Bold的值是:

00000100

现在Xor FontStyle.Bold会在某些东西中翻转这个东西.例:

00000111 Xor 00000100 = 00000011    (Boldness removed)
00000001 Xor 00000100 = 00000101    (Boldness added)

请注意,其他位不受影响.

由于您明确要求替代方案:您可以检查该位是否设置样式和粗体<> 0,然后设置它样式=样式或粗体或删除它样式=样式和(非粗体).

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...