二次元配列について

解決


ぺんぺんぺん  2005-03-22 16:09:20  No: 120396  IP: [192.*.*.*]

以下のソースで二次元配列にリストビューのアイテムとサブアイテムを
格納したいのですが、「型が一致しません。」とエラーが出てしまいます。

何方かお願いします。
<環境>
WinXP-Pro VB6

Private Sub SearchList_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

    Dim itmX() As String
    Dim i As Integer
    
    ReDim Preserve itmX(SearchList.ListItems.Count, 2)
    For i = 1 To SearchList.ListItems.Count
        itmX(i - 1)(0) = CStr(SearchList.ListItems(i))
        itmX(i - 1)(1) = CDate(FileDateTime(strOpenFilePath & SearchList.ListItems(i)))
    Next i

End Sub

編集 削除
魔界の仮面弁士  2005-03-22 16:17:55  No: 120397  IP: [192.*.*.*]

2次元配列なら、itmX(0)(0) ではなく、itemX(0, 0)なのでは?

編集 削除
ぺんぺんぺん  2005-03-22 16:23:01  No: 120398  IP: [192.*.*.*]

そうでした!!!
つまらない事で申し訳ありませんでした。
魔界の仮面弁士さんありがとうございました!!

編集 削除