Foro de elhacker.net

function isArrayNullEntero(arreglo() as integer) as boolean
...
end function
 
function isArrayNullNuevoTipo(arreglo() as nuevotipo) as boolean
...
end function
 

 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)
Private Declare Function VarPtrA Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Ptr() As Any) As Long
 
Private Function ItsArrayIni(ByVal lngPtr As Long, Optional LnBytes As Long = 4) As Boolean
Dim lng_PtrSA                   As Long
    If lngPtr <> 0 And LnBytes > 0 Then
        Call CopyMemory(ByVal VarPtr(lng_PtrSA), ByVal lngPtr, LnBytes)
        ItsArrayIni = Not lng_PtrSA = 0
    End If
End Function
 
'//uso:
 
if (ItsArrayIni(VarPtrA(iArray()))) then
' Haz algo...
end if
 

dim b() as variant ' o el tipo que sea
If (Not Not b) = False Then ' 
'no se inicializo (hay que dimensionarlo)
Else
'esta inicializado
End If
 

If Not Not iArray Then
    '// Haz algo...
End If

Private Form_Load()
Dim IDEbug&()
    '// Prevenir el NotNot bug.
    Debug.Assert Not IDEbug Or App.hInstance
End Sub

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

Private Function isArrayNull(tarray() As integer) As Boolean
    Dim i As Integer
    On Error GoTo tError
    i = UBound(tarray)
    Exit Function
tError:
    isArrayNullAnimal = True
End Function
 
Private Sub Form_Load()
    Dim a() as Integer
    Msgbox isArrayNull(a)
End Sub
 

 
typedef struct FARSTRUCT tagSAFEARRAY {
   unsigned short cDims;       // Count of dimensions in this array.
   unsigned short fFeatures;   // Flags used by the SafeArray
                        // routines documented below.
#if defined(WIN32)
   unsigned long cbElements;   // Size of an element of the array.
                        // Does not include size of
                        // pointed-to data.
   unsigned long cLocks;      // Number of times the array has been 
                        // locked without corresponding unlock.
#else
   unsigned short cbElements;
   unsigned short cLocks;
   unsigned long handle;      // Used on Macintosh only.
#endif
   void HUGEP* pvData;             // Pointer to the data.
   SAFEARRAYBOUND rgsabound[1];      // One bound for each dimension.
} SAFEARRAY;
 
 

 
 
Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)
Private Declare Function VarPtrA Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Ptr() As Any) As Long
 
Private Function ItsArrayIni(ByVal lngPtr As Long, Optional LnBytes As Long = 4) As Boolean
Dim lng_PtrSA                   As Long
    If lngPtr <> 0 And LnBytes > 0 Then
        Call CopyMemory(ByVal VarPtr(lng_PtrSA), ByVal lngPtr, LnBytes)
        ItsArrayIni = Not lng_PtrSA = 0
    End If
End Function
 
Private Sub Form_Load()
Dim aVar() As Integer
    MsgBox ItsArrayIni(VarPtrA(aVar()))
    ReDim aVar(0 To 10)
    MsgBox ItsArrayIni(VarPtrA(aVar()))
    Erase aVar()
    MsgBox ItsArrayIni(VarPtrA(aVar()))
End Sub