VB6 中的标志不返回正确的值

Question

我目前正在尝试在 VB6 / COM 项目中使用位标志枚举。 但是，当尝试从枚举读取值时，我得到不一致的结果。

这是枚举定义：

Enum Fruits
    None = 0
    Apple = 1
    Strawberry = 2
    Lemon = 4
End Enum

我有一个对象，它公开了 Fruits 类型的属性。

Public Get AvailableFruits as Fruits

应该能够读取该值的代码用于根据枚举的每个位的值显示/隐藏标签：

lblAppleAvailable.Visible = basket.AvailableFruits And Fruits.Apple

当此代码为执行后，我有 basket.AvailableFruits = 0，结果为 True。

知道什么可能导致这种行为吗？

编辑：

我尝试过使用枚举的不同值：

basket.AvailableFruits = 0
basket.AvailableFruits And Apple        // Returns True
basket.AvailableFruits And Strawberry   // Returns True
basket.AvailableFruits And Lemon        // Returns False

作为辅助节点，在调试代码时，如果我将表达式放入监视表达式中，我会得到正确的值；但是当在我的代码中计算表达式时，它仍然返回 True。

我尝试使用不同的检查语法：

(basket.AvailableFruits And Fruits.Apple) = Fruits.Apple

在 basket.AvailableFruits = 0 时仍然为 True :-(

解决方案

在测试了不同的解决方案之后，我已经能够将问题缩小到COM 组件。 该组件的原始编码器将指针设置为 0，而不是返回 0 作为值，这导致在尝试读取该值时出现问题。

我选择了 FlipScript 答案，因为辅助函数似乎是提高代码可读性的一个很好的技巧。

Answer 1

要测试标志的值，请使用类似以下内容：

lblAppleAvailable.Visible = (basket.AvailableFruits And Fruits.Apple) = Fruits.Apple

执行“AND”后，您仍然需要查看结果值是否等于标志值（或实际上不是 0 的任何值）。

您还可以创建一个小辅助函数：

Private Function HasFruitFlag(Check As Fruits, Flag As Fruits) As Boolean
    HasFruitFlag (Check And Flag) = Flag
End Function

您可以这样调用它：

lblAppleAvailable.Visible = HasFruitFlag(basket.AvailableFruits, Fruits.Apple)

Answer 2

尝试使用本地变量

    Dim LocalFruits As Fruits

    LocalFruits = basket.AvailableFruits
    Debug.Print (LocalFruits And Apple) <> 0
    Debug.Print (LocalFruits And Strawberry) <> 0
    Debug.Print (LocalFruits And Lemon) <> 0

此外，您可能希望使用像这样的不易出错的枚举声明

Enum Fruits
    Apple = 2 ^ 0
    Strawberry = 2 ^ 1
    Lemon = 2 ^ 2
End Enum