VB6属性值操作 (2^n)

最新推荐文章于 2025-05-26 15:06:31 发布

原创最新推荐文章于 2025-05-26 15:06:31 发布 · 448 阅读

0 ·

CC 4.0 BY-SA版权

VB6 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一种高效处理属性值集合的方法，包括如何检查属性值是否存在、如何添加或删除属性值等。通过使用位运算，可以实现对属性值的快速操作，适用于需要频繁处理属性集合的场景。

'======================================================================
'========================== 属性值操作 (2^n) ==========================
'======================================================================
'完整属性值内是否包含指定的某属性值
Function AttrInclude(ByVal AttrMulti As Long, ByVal AttrOne As Long) As Boolean
    AttrInclude = ((AttrMulti And AttrOne) = AttrOne)
End Function
'将指定的某属性值加入完整属性值内，无论完整属性值是否已经包含该属性
Function AttrJoin(ByVal AttrMulti As Long, ByVal AttrOne As Long) As Long
    AttrJoin = AttrMulti Or AttrOne
End Function
'将指定的某属性值从完整属性值内移除，无论完整属性值是否已经包含该属性
Function AttrRemove(ByVal AttrMulti As Long, ByVal AttrOne As Long) As Long
    AttrRemove = AttrMulti Xor AttrOne
End Function