Thomas Risi Softwareentwicklung

SafeArrayGetDim

Immer wieder gerne in den Foren gefragt: Ist ein Array schon befüllt ?

Hier nun eine Lösung die eine API-Funktion verwendet ...

Option Explicit Private Declare Function SafeArrayGetDim Lib "oleaut32" ( _ pArray() As Any) As Long Private Sub Command1_Click() Dim arr() As Long ' Ein undimensionierter Array ... ReDim arr(10) ' Zum Testen auskommentieren If SafeArrayGetDim(arr) Then MsgBox "dimensioniert" Else MsgBox "undimensioniert" End If End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)