Visual Basic Forum

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Name: GetArrayCount
Funktion: Gibt die Größe eines Arrays zurück
Rückgabe: long

Beschreibung:
Ubound verursacht einen Fehler, falls ein Array nicht dimensioniert ist.
Und um zu verhindern dass dadurch das Programm abstürzt könnt ihr diese Funktion nutzen wo einfach bei einem Fehler "0" (Null) zurückgegeben wird.

Code:
Visual Basic: [code]Public Function GetArrayCount(ByRef sArray() As String) As Long
On Error GoTo Err:
GetArrayCount = UBound(sArray())
Exit Function
Err:
GetArrayCount = -1
End Function[/code]
Verwendung:
Visual Basic: [code]Dim iArrayCount as long
iArrayCount = GetArrayCount(sArray)
if iArrayCount <> -1 then
'code
End if[/code]

exe-cute · Newbie Anmeldedatum: 03.05.2008 Beiträge: 7

Wenn es keinen array gibt: Rückgabe = 0

Wenn nur einen Array gibt: Rückgabe = 0

Von daher würde ich diese Function so anwenden:

Visual Basic: [code] Public Function GetArrayCount(ByRef sArray() As String) As Long
On Error GoTo Err:
GetArrayCount = UBound(sArray())
Exit Function
Err:
GetArrayCount = -1
End Function[/code]

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Stimmt. Hat sich ein Fehler eingeschlichen.
Thx.