vb6 - 如何检查数组的值是否为空

Question

我正在编写一个国际象棋程序，必须查看某个值是否为空。我试过了

aPiece 是一组 CommandButtons。 cmdSquare 是形状的控件数组。

Private aPiece(63) As CommandButton

...

For p = 0 To 63
    If IsEmpty(aPiece(p)) Then
        aPiece(p).Left = cmdSquare(p).Left
        aPiece(p).Top = cmdSquare(p).Top
    
    End If
Next p 

所有变量都已声明并且似乎是 IsEmpty 函数，该函数不起作用。

Answer 1

IsEmpty 方法只返回对变体有意义的信息。由于数组包含对象，您需要像这样检查:

If aPiece(p) Is Nothing Then

然而，这似乎只是答案的一部分。上面的逻辑是说“如果我的数组中没有片段，则更新它的位置”。这对我来说没有意义，并且会产生错误。您还需要像下面这样添加 Not:

For p = 0 To 1
   If Not aPiece(p) Is Nothing Then
      aPiece(p).Left = cmdSquare(p).Left
      aPiece(p).Top = cmdSquare(p).Top
   End If
Next p