二次元配列について

解決

ぺんぺんぺん 2005-03-23 01:09:20 No: 120396

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

何方かお願いします。
<環境>
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-23 01:17:55 No: 120397

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

ぺんぺんぺん 2005-03-23 01:23:01 No: 120398

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