Hvodan tjekker man om et araay er tomt!?

If UBound(dropdown) < 0 Then
  MsgBox "Der er ingen data i dit array"
End If

UBound giver dig den sidste post i dit array, som jo må være under 0, når dit array er tomt

har ikke testet det, men se om det virker

Erklær følgende i et array:

<Code>
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long


Public Function IsStringArrayInitialized(sA() As String) As Boolean
    On Error GoTo OnErr
    IsStringArrayInitialized = (SafeArrayGetDim(sA) > 0)
    Exit Function
   
OnErr:
    Debug.print Err.Number & " " Err.Description
    Resume Next
End Function

</Code>

minijensen1:
Giver fjelen Subscrip out of range når jeg fyre den af :-(
benny.tordrup:
Kan det passe at man skal lave så meget for så lidt!?

Hvis du vil undgå fejlen "Subscript out of range", så ja. Du kan selvfølgelig sætte en On Error resume next ind før checket på ubound.

Men hvad er definitionen på meget? Jeg har erklæret en API-funktion, som jeg så kalder i en VB-funktion. Den funktion kan skrælles ned til følgende:


Public Function IsStringArrayInitialized(sA() As String) As Boolean
    On Error Resume Next
    IsStringArrayInitialized = (SafeArrayGetDim(sA) > 0)
End Function

Spørgsmålet er også hvor mange steder, du har behov for at teste på, om et string array er initialiseret eller ej. Du skal ikke have mange steder, før det er sparet ind i antal kodelinier.

Takkker for svarene. Jeg har selv "pruttet" noget kode:
    ReDim ddDatabases(0) ' Bliver kaldt en gang under init.
    If ddDatabases(0) = "" Then
        MsgBox "Der er ingen data i dit array"
    End If
Så må jeg redimme når der er brug for det. Jeg kunne ikke lige få benny's funktion til at virke gav false, men den ser ret lovende ud, tak for det.
-det utroligt er så meget man hader Null-pointer errors når man kode java og utroligt hvor meget man mangler dem i VB :-D