Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
ReDim arr(10)
If SafeArrayGetDim(arr) Then
MsgBox "dimensioniert"
Else
MsgBox "undimensioniert"
End If
End Sub
© 2001 -
by Thomas Risi