0 
If ListView1.CheckBoxes = True Then
    'using check boxes
    For Each lvi As ListViewItem In ListView1.CheckedItems
        'whole bunch of code
    Next
Else
    'not using check boxes
    For Each lvi As ListViewItem In ListView1.SelectedItems
        'the exact same whole bunch of code
    Next
End If

コードを複製せずに、2 つの異なるコレクション セットを選択するにはどうすればよいですか? 私のプログラムでは、ユーザーがチェックボックスを使用している場合に選択された項目に対して行ったのと同じことを CheckedItems に対して行います。これらのアイテムへの参照を失わずにコレクション変数を作成して、それらにプロパティを書き込めるようにするにはどうすればよいですか?

4

2 に答える 2

0

同様のコードを関数に入れるだけです

If ListView1.CheckBoxes = True Then
    'using check boxes
    For Each lvi As ListViewItem In ListView1.CheckedItems
        SimilarCode(lvi)
    Next
Else
    'not using check boxes
    For Each lvi As ListViewItem In ListView1.SelectedItems
        SimilarCode(lvi)
    Next
End If

Sub SimilarCode(ByVal lvi As ListViewItem)
    'whole bunch of code
End Sub
于 2013-06-26T01:56:43.127 に答える