投稿日 | : 2005/10/03(Mon) 15:09 |
投稿者 | : DAI |
URL | : |
タイトル | : Re^2: 空の配列の判定 |
> こんにちは。
> Public Declare Function SafeArrayGetDim Lib "oleaut32" _
> (ByVal pa As Long) As Long
> Public Declare Sub GetMem4 Lib "msvbvm60" _
> (ByRef pa() As Any, ByRef Var As Long)
>
> Sub TEST()
> Dim sArray() As String
> Dim lngNum As Long
>
> ' ***** 配列があるかどうかのチェック *****
> GetMem4 sArray, lngNum
> If lngNum <> 0 Then
> Debug.Print "次元数は " & SafeArrayGetDim(lngNum)
> Else
> Debug.Print "初期化されていません"
> End If
> End Sub
返答ありがとうございます。
やはり、判定用メソッドを用意しなければならないようですね。
試してみます。