배열 Nothing 확인하기 (Array Nothing detect in VB 6.0)

안녕하세요. 공유민입니다.

이번 포스팅은 배열을 사용할 때, Nothing 인지 아닌지 확인하는 방법을 정리하려고 합니다.

---

Array Nothing detect

VB 6.0에서 배열을 선언만(Dim) 해 놓고 

Public testArray() As Byte    ' or DimtestArray() As Byte

추후에 아래처럼 재선언을 해야하는데

ReDim testArray(1 To 10)    

배열을 재선언(ReDim) 하였는지 아닌지에서 루틴이 달라져서 이것을 확인하기 위해

If Not(testArray Is Nothing) Then    ' Or testArray() Is Nothing
    <...>                        
End If

이런 방법을 써도 만약 재선언이 되어 있지 않다면 에러가 발생합니다.

게다가 VB 6.0 에서는 IsNot도 지원하지 않습니다.

그래서 다른 방법을 모색하다가 구글링을 하다가 해결법을 찾아냈습니다.

If (Not testArray()) = -1 Then
    <...>
End If

위와 같이 적어주면 배열이 재선언(ReDim) 되었는지 안 되었는지 확인할 수 있습니다.

도움이 되셨기를 바랍니다.