[VB6] Kiểm tra giá trị có trong 1 mảng (array) hay ko?

Hàm dưới đây sẽ giúp các bạn kiểm tra 1 giá trị có nằm trong 1 mảng giá trị (array string) đã được thiết lập sẵn hay không. Rất hữu ích nếu chúng ta muốn giới hạn việc nhập liệu trong 1 textbox chỉ cho phép nhập giá trị có trong mảng, v.v...

Public Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
    Dim i
    For i = LBound(arr) To UBound(arr)
        If arr(i) = stringToBeFound Then
            IsInArray = True
            Exit Function
        End If
    Next i
    IsInArray = False

End Function

Hàm này được ứng dụng như ví dụ sau:

IsInArray("MAR", Array("JAN", "FEB", "MAR", "APR", "MAY"))

Sưu tầm từ stackoverflow.com