ListView コントロールでソート(カラムクリック)機能を組み込んだのですが、悩んでいます。
画面初期表示時は、正常にListViewコントロール内に明細データを表示し、
項目見出しをクリックすると、ソーティングが正常に行われます。
但し、再度ListVIewコントロールのアイテムをクリアし、再生成時にエラーとなってしまいます。
ソート機能は、当フォーラムやMSDN(http://msdn2.microsoft.com/ja-jp/library/system.windows.forms.listview.listviewitemsorter(VS.80).aspx)を流用し、
ソート機能を組み込みました。
【画面概要】
画面上にListViewを表示するボタンを作成。
このﾎﾞﾀﾝ押下により、ListViewに項目を追加し、表示するようにしています。
ｱﾌﾟﾘｹｰｼｮﾝを起動し、初期表示には、特に問題なく表示し、ソートも機能する。
再度ﾎﾞﾀﾝ押下すると、ListView.Items.Add時にエラーやエラーが起きない場合でも、
正常にListViewにデータが表示されません（SubItems項目が歯抜け状態で表示。）。
エラーの場合は、ListView.Items.Add時に上記雛形Class ListViewItemComparer の
Compareメソッドに制御が移り、『'2'のInvalidArgument=Valueは'index'に対して有効ではありません。
ﾊﾟﾗﾒｰﾀ名 index』とエラーメッセージが表示されます。
画面上のListViewには、4つのColumがあり、上記エラーの場合は、2番目の項目をクリック（ｿｰﾄ表示）後に、
再度ﾎﾞﾀﾝを押下し、ListViewを再表示した時に起こります。
ｿｰﾄ機能を実行せず、再度ﾎﾞﾀﾝ押下時は、正常に再表示されます。
１．どうして、Compareメソッドに制御が移るのでしょうか。
２．ソート機能が実行されないと正常に再編集されるのは、なぜでしょうか。
３．カラムクリック時以外は、通らないものかと思っていたのですが、それとも、
下名のListView編集ロジックがおかしいのでしょうか。
回避策やアドバイスを頂ける方は、申し訳ございませんが、ご教示願います。
下名 ListView編集 ソースコードは、以下の通りです。
'''画面上に作成してあるボタンを押下すると、以下のﾌﾟﾛｼｰｼﾞｬが呼び出されます。
'''見出しについては、デザイン画面で"列の編集"で設定しています。
Shared Sub CsvParser(ByVal strCsvFile As String)
Using parser As New TextFieldParser(strCsvFile, _
System.Text.Encoding.GetEncoding("Shift_JIS"))
parser.TextFieldType = FieldType.Delimited
parser.SetDelimiters(",") ' 区切り文字はコンマ
Dim RecCnt As Integer = 0
Dim ReadCnt As Integer = 1
My.Forms.FormMain.ListView1.Items.Clear()
While Not parser.EndOfData
Dim row As String() = parser.ReadFields() ' 1行読み込み
If ReadCnt <> 1 Then ' 1行目は、TitleFieldの為、読み飛ばし。
Dim i As Integer = 0
Dim str1recs(0) As String
For Each strfield As String In row
ReDim Preserve str1recs(i)
str1recs(i) = strfield
i += 1
Next
'''My.Forms.FormMain.ListView1.BeginUpdate() '入れなくてもＯＫ。
My.Forms.FormMain.ListView1.Items.Add(CStr(str1recs(0)), RecCnt)
''' ※ｴﾗｰは、上記ステップからCompareﾒｿｯﾄﾞに制御が移りｴﾗｰとなってしまいます。
My.Forms.FormMain.ListView1.Items(RecCnt).SubItems.Add(CStr(str1recs(1)))
My.Forms.FormMain.ListView1.Items(RecCnt).SubItems.Add(CStr(str1recs(2)))
My.Forms.FormMain.ListView1.Items(RecCnt).SubItems.Add(CStr(str1recs(3)))
RecCnt += 1
End If
ReadCnt += 1
End While
End Using
End Sub
'''--------------念のため、ソートステップも添付します。
'''FormMain ｸﾗｽ内
Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) _
Handles ListView1.ColumnClick
Me.ListView1.ListViewItemSorter = New ListViewItemComparer(e.Column)
End Sub
'''--------------ソートクラス 雛形ｿｰｽｺｰﾄﾞを貼り付けました。
Public Class ListViewItemComparer
Implements IComparer
Private col As Integer
Public Sub New()
col = 0
End Sub
Public Sub New(ByVal column As Integer)
col = column
End Sub
'''以下のﾒｿｯﾄﾞに制御が移ってしまいます。
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
Implements IComparer.Compare
Return [String].Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)
End Function
End Class
