投稿日 | : 2005/10/03(Mon) 14:44 |
投稿者 | : YK |
Eメール | : |
URL | : |
タイトル | : Re: 空の配列の判定 |
こんにちは。
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