回答編集履歴

1

追記

2016/12/21 12:56

投稿

jawa
jawa

スコア3013

test CHANGED
@@ -112,7 +112,7 @@
112
112
 
113
113
  If lstitem.Checked = True Then
114
114
 
115
- 'キー項目で削除
115
+ 'キー項目で削除(サンプルではメッセージ表示のみ)
116
116
 
117
117
  MsgBox "Delete " & lstitem.SubItems(1)
118
118
 
@@ -130,4 +130,8 @@
130
130
 
131
131
  ListVIewの全ての行をループして、チェック状態を調べ、チェックがついていたら削除キー項目を抜き出しています。
132
132
 
133
+ ※サンプルではメッセージボックスでキー情報を表示しているだけですが、ここで取得したキー情報を使って削除処理を実行すればよいと思います。
134
+
135
+
136
+
133
137
  参考になれば幸いです。