二次元配列について (ID:120396)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以下のソースで二次元配列にリストビューのアイテムとサブアイテムを 格納したいのですが、「型が一致しません。」とエラーが出てしまいます。 何方かお願いします。 <環境> 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