USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  descobrir o número de dimensões de um array
Postada em 5/4/2006 por Geronimo            
Tente a função abaixo:

Function Dimensions(ARR As Variant) As Integer

    Dim I As Integer
    Dim Dummy As Long
    
    On Error Resume Next
    Err.Clear
    
    Do
        I = I + 1
        Dummy = UBound(ARR, I)
        If Err.Number <> 0 Then Exit Do
    Loop
    
    Dimensions = I - 1
    
End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página