回答編集履歴
1
追記
answer
CHANGED
|
@@ -55,7 +55,7 @@
|
|
|
55
55
|
For Each lstitem In ListView1.ListItems
|
|
56
56
|
'チェックがついていたら
|
|
57
57
|
If lstitem.Checked = True Then
|
|
58
|
-
'キー項目で削除
|
|
58
|
+
'キー項目で削除（サンプルではメッセージ表示のみ）
|
|
59
59
|
MsgBox "Delete " & lstitem.SubItems(1)
|
|
60
60
|
End If
|
|
61
61
|
Next
|
|
@@ -64,4 +64,6 @@
|
|
|
64
64
|
```
|
|
65
65
|
|
|
66
66
|
ListVIewの全ての行をループして、チェック状態を調べ、チェックがついていたら削除キー項目を抜き出しています。
|
|
67
|
+
※サンプルではメッセージボックスでキー情報を表示しているだけですが、ここで取得したキー情報を使って削除処理を実行すればよいと思います。
|
|
68
|
+
|
|
67
69
|
参考になれば幸いです。
|