タイトル : リストビューの並べ替え 投稿日 : 2008/02/08(Fri) 15:21 投稿者 : みいさん
リストビューにアイテムを追加後、並べ替えしていますが、 以下のコードではソートはされず、最終行へ追加されます。 しかし、(*)の場所で一旦ブレイクすると、結果はちゃんと ソートしてくれます。 こんな場合は、何か対応策はないでしょうか? Set obItem = Me.ListView1.ListItems.Add() obItem.Text = Me.Text1.Text obItem.SubItems(1) = Me.Text2.Text obItem.SubItems(2) = Me.Text3.Text obItem.SubItems(3) = Me.Text4.Text Set obItem = Nothing ListView1.Sorted = True '(*)<===ここでブレイク ListView1.SortKey = 3 ListView1.SortOrder = lvwAscending ListView1.Sorted = False |