by Newsgroup Posting (15 Submissions)
Category: Data Structures
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (38 Votes)
Tells if a dynamic array has been dimensioned or not.
Lu
Function Member(ary$(), text$)
On Local Error GoTo MemberExit
For i = 1 To UBound(ary$)
If text$ = ary$(i) Then
subscript = i
Exit For
End If
Next
MemberExit:
Member = subscript
End Function
;========================================
another possibility;
Function ArrayElements(ary$())
elements = 0
On Local Error GoTo MemberExit
elements = UBound(ary$)
MemberExit:
ArrayElements = elements
End Function