VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

空の配列の判定(VB6.0)_1 ( No.1 ) 　[親スレッドへ]

日時： 2011/04/05 10:37
名前： 花ちゃん: * カテゴリー：[基本コード][応用コード][]
-----------------------------------------------------------------------------------
Re: 空の配列の判定 - YK  2005/10/03-14:44 No.4558
-----------------------------------------------------------------------------------
こんにちは。
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