Thomas Risi Softwareentwicklung
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
|
Copyright © 2001 - by Thomas Risi