Verificar array


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Verificar array

Croda

OSASCO
SP - BRASIL

ENUNCIADA !

Postada em 07/10/2009 10:43 hs

Como eu faço para checar se a array foi iniciada ou não.

Exemplo:
'Declaro a array
Dim arrTeste() As String

Agora eu gostaria de checar se a array já foi ou não redimencionada.
Caso eu use o UBound(arrTeste), retorna o erro "Subscript out of range".

Desde já agradeço qualquer ajuda.

Croda.

Ash Katchup

CAXIAS DO SUL
RS - BRASIL

ENUNCIADA !

Postada em 07/10/2009 13:07 hs

Eu utilizo uma função que "trata o erro";

Private Sub Form_Load()
    Dim x() As Integer
    '
    If func_Vetor_Iniciado(x) Then
        MsgBox "Vetor iniciado", vbOKOnly
    Else
        MsgBox "Ainda não foi iniciado", vbOKOnly
    End If
    '
End Sub

Private Function func_Vetor_Iniciado(vVetor() As Integer) As Boolean
    Dim aux As Integer
    '
    On Error Resume Next
    aux = UBound(vVetor)
    '
    If Err.Number = 0 Then
        func_Vetor_Iniciado = True
    Else
        func_Vetor_Iniciado = False
    End If
    '
End Function

__________________

"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."

-F.E.A.R. (First Encounter Assault Recon )

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 07/10/2009 15:10 hs

TÓPICO EDITADO

Guilherme
não registrado

ENUNCIADA !

Postada em 17/05/2012 17:57 hs

Simplifiquei a função àcima

Private Function tamanhoArray(ar)
    tamanhoArray = 0
    On Error Resume Next
    tamanhoArray = UBound(ar) + 1
    On Error Resume Next
End Function

Assim dá pra saber o tamanho do array como se fosse o .length do javascript.
Se quiser saber se foi dimencionado ou não "if tamanhoArray(array)>0 then"

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR