動的配列でReDimされたかどうかを知るには?

解決


かべ  2004-04-10 03:13:24  No: 112774

動的配列を作成して、その後ReDimされたかどうかを知るには
どうすればよいでしょうか?
UBound・LBound関数はエラーになってしまうので・・・。


いな  2004-04-10 03:21:10  No: 112775

UBoundを応用して

--
Public Function cmnUBound(strAr() As String) As Long
    On Error GoTo cmnUBound_ERR
    
    cmnUBound = UBound(strAr)
    Exit Function

cmnUBound_ERR:
    If Err.Number = 9 Then
        cmnUBound = -1
    End If
    
End Function

とすれば、結果が-1のときにRedimされていない。
という話になります。


かべ  2004-04-10 03:27:47  No: 112776

ありがとうございました。
この方法でやってみます。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加