estoy haciendo una tarea para buscar datos en un arreglo, en este ejemplo tengo un arreglo con valores 01, 02, y 03.
Lo que hago es colocar un valor en una caja de texto y en una función BuscarClaves indicar si ese valor existe en el arreglo. No se en qué puedo estar equivocado ya que solo me toma el primer valor del arreglo y por lo tanto me imprime el mismo mensaje siempre.
Este es el código que tengo.
Dim VectorA() As String = {"01", "02", "03"}
Public Function buscarClaves(ByVal dts As String) As Boolean
'buscarClaves = False
For Each clave As String In VectorA
If clave = dts Then
Return True
Else
Return False
End If
Next
'
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 1 To VectorA.Length
If buscarClaves(TextBox1.Text) Then
MsgBox("Clave duplicado")
Else
MsgBox("Clave disponible")
End If
Next i
End Sub