Prüfen, ob Array dimensioniert ist Mit dieser Funktion lässt sich schnell prüfen, ob ein Array dimensioniert ist.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  5.905
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 22 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die IsArray-Funktion von VB prüft bekanntlich nur, ob es sich bei der übergebenen Variablen um ein Array handelt. Ob das Array bereits dimensioniert ist, lässt sich allerdings nicht festellen:

Dim myArray() As String
If IsArray(myArray) Then ...

Um nun zu ermitteln, ob das Array bereits dimensioniert ist, könnte man wie folgt vorgehen:

On Error Resume Next
Dim nCount As Long
nCount = UBound(myArray)
If Err.Number <> 0 Then
  ' Array ist noch nicht dimensioniert
  ReDim myArray(10)
  ...
End If
On Error Goto 0

Es gibt aber noch eine einfachere und vor allem "sauberere" Lösung. Hierzu müssen wir wieder einmal auf eine API-Funktion zurückgreifen, die wie folgt zu deklarieren ist:

' benötigte API-Deklaration
Private Declare Function SafeArrayGetDim Lib "oleaut32" _
  Alias "SafeArrayGetDim" ( _
  pArray() As Any) As Long

Die Funktion selbst liefert den Wert 0 zurück, wenn das Array noch nicht dimensioniert ist:

If SafeArrayGetDim(myArray) = 0 Then
  ' Array ist noch nicht dimensioniert
  ReDim myArray(10)
  ...
End If