有没有更好的方法来编写以下 VB6 片段？

Question

我在 $COMPANY 工作，我正在帮助维护 $LEGACY_APPLICATION。它是用 Visual Basic 6 编写的。

由于缺乏 VB6 在 if 语句中执行短路评估的能力（这将大大简化这一点），我面临着做一个令人不快的复杂嵌套 if 语句。我试过AndAlso，但无济于事。必须是VB6之后添加的功能。

某处某处的某位天才指出，如果您有耐心，您可以欺骗 select case 语句使其像短路 if 语句一样工作，所以我尝试了，这就是我想出的：

Select Case (True) ' pretend this is an if-else statement
    Case (item Is Nothing): Exit Sub ' we got a non-element
    Case ((item Is Not Nothing) And (lastSelected Is Nothing)): Set lastSelected = item ' we got our first good element
    Case (item = lastSelected): Exit Sub ' we already had what we got
    Case (Not item = lastSelected): Set lastSelected = item ' we got something new
End Select

这肯定有点不寻常，我不得不使用我的奇妙白板（顺便说一句，它几乎是除了计算机之外最有用的编程资源）来确保我正确映射了所有语句。

这里发生了什么事：我有一个昂贵的手术，我想尽可能避免重复。 lastSelected 是对最近传递给此计算的值的持久引用。 item 是刚刚从 GUI 接收到的参数。如果之前从未调用过该程序，lastSelected 以 Nothing 开始。 item 也可以是 Nothing。此外，如果 lastSelected 和 item 是相同的东西，则跳过计算。

如果我用 C++ 写这个，我会写：

if (item == NULL || (lastSelected != NULL && item->operator==(*lastSelected))) return;
else lastSelected = item;

但是，我不是。

问题

我怎样才能重写它以使其看起来更好并且更有意义？如果回答说“是，原因如下：X、Y、Z”或“否，原因如下：X、Y、Z”，将获得支持。

编辑

修复了 C++ 语句以匹配 VB6 语句（它们应该是等效的）

Answer 1

是的

我从您的案例陈述中翻译了它。我个人觉得它更容易阅读。

If Item Is Nothing Then
  Exit Sub ' we got a non-element
ElseIf LastSelected Is Nothing Then
  Set LastSelected = Item ' we got our first good element
ElseIf Item = LastSelectedItem Then
  Exit Sub ' we already had what we got
Else
  Set LastSelected = Item ' we got something new
End If

你要求解释。我尽量不用付出太多（通过重用你自己的代码 cmets）。

但无论如何它都在这里:-)

• 首先如果没有项目，就退出。简单。
• 否则如果LastSelected Is Nothing 那么我们知道，因为第一个if 条件失败，所以Item 存在，并且可以安全地将该值标记为Last Selected。正如你所说，我们得到了第一个好的元素。潜艇继续。
• 但是，如果我们有 Item 和 LastSelected 的现有值，那么它们要么相等，要么不相等。如果他们相等，就退出。
• 如果它们不相等，则更新LastSelected。正如你所说，我们有了新的东西。

Answer 2

这更短，可读性提高了 100 倍。

编辑 Wug 将 MarkJ 原始答案中的代码编辑为：

If (item Is Nothing)
    Then Exit Sub ' we got a non-element
ElseIf (lastSelected Is Nothing) Then
    Set lastSelected = item ' we got our first go 
ElseIf (item = lastSelected) Then
    Exit Sub ' we already had what we got
End If
Set lastSelected = item ' we got something new 

这是 MarkJ 的回应。一个嵌套 if，但只有一个 Set。对我来说似乎更整洁。

If (item Is Nothing) Then 
  Exit Sub ' we got a non-element 
ElseIf Not (lastSelected Is Nothing) Then ' not our first go
  If (item = lastSelected) Then 
    Exit Sub ' we already had what we got 
  End If 
End If
Set lastSelected = item ' we got something new
' does stuff here? @Wug is that true?

• 要比较 VB6 中的引用相等性，请使用项目 Is LastSelected。因为 item = lastSelected 可能会评估对象中的默认属性并进行比较！
• 既然简洁似乎是一个目标，请考虑这一点。如果在条件 X 为 True 时退出 Sub，则以后无需再次检查 X。这是错误的！除非它在两次评估之间改变它的值（例如 X 是一个检查系统时钟的函数）。您正在检查项目是否是 lastSelected，然后是否不是。如果 item Is Nothing 为 False，请不要费心检查 item Is Not Nothing 是否为 True！
• VB6不会短路backwards compatibility with ancient versions of Basic
• 别担心 VB6 不是其他语言，放松一下！

Answer 3

是的

我会更简单：

If item Is Nothing Then
  Exit Sub ' we got a non-element
Else
  Set lastSelected = item ' we got something to assign
End If

除非赋值lastItem有副作用（可以是赋值代码无效的属性），否则代码逻辑基本相同。

如果你不需要退出sub（sn-p在sub的末尾什么的），那么next就更简单了：

If Not (item Is Nothing) Then Set lastSelected = item

顺便说一句，你的Select Case (True) 对 VB 程序员来说看起来很奇怪 :)

Answer 4

你可以像这样使用辅助函数：

Private Function pvGetItemData(oItem As ListItem) As Variant
    If Not oItem Is Nothing Then
        pvGetItemData = oItem.Tag
    Else
        pvGetItemData = -1
    End If
End Function

然后

If pvGetItemData(Item) = pvGetItemData(LastSelected) Then
    ' cache hit
Else
    ' do calc
    Set LastSelected = Item
End If