'======================================================================
'========================== 属性值操作 (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
VB6属性值操作 (2^n)
最新推荐文章于 2023-10-13 10:26:33 发布