- En la clase tengo este procedimiento hecho, que creo que con él inserto en las tres cosas que pongo en una estructura ( ya la he declarado y eso )
Public Sub añadir(ByVal name As String, ByVal number As String, ByVal position As String)
Static j As Integer
j = CInt(position)
agenda(j).nombre = name
agenda(j).numero = number
agenda(j).posicion = position
ReDim Preserve agenda(j)
End Sub
- Lo que no me sale es cuando meto el segundo contacto , comprobar si la posición está ya metida, había pensado que podría meter las posiciones en un vector de integer pero no se como hacer el bucle por que siempre se me genera un bucle infinito o me da algún problema