投稿日 | : 2006/04/05(Wed) 17:05 |
投稿者 | : YK |
Eメール | : |
URL | : |
タイトル | : Re: 動的配列がRedimされたかどうか |
こんにちは。
これで良いと思いますけど。
Bas.
Option Explicit
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)
frm.
Private Sub Command1_Click()
Dim a() As Long
Dim L As Long
ReDim a(4, 4)
GetMem4 a, L
If L <> 0 Then
Debug.Print "次元は " & SafeArrayGetDim(L)
Else
Debug.Print "初期化されていません"
End If
End Sub