掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストビューの項目を消した時に空欄を失くしたい (ID：84834)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
先程リストビューについて質問した者です。 私ではない方が解決と更新してしまいました。 通りすがりのネコさんありがとうございます。 できればマウスでクリックしているリストビューの項目を削除し、 その下の項目が一つずつ上に詰められ、 空欄ができないようにしたいのですが、 どなたかご指導ください。 リストビューの項目の数が決まっていなくて、ある項目を削除した時 その空欄に一つ下の項目が一つずつ上がっていくようにしたいのですが、 以下のコードだと最後の空白行の処理でエラーが起きます。 どなたかいい方法をご存知ではないでしょうか？ Dim i As Integer For i = 1 To 30 Step 1 '本当は何個か不定ですが30にしておきました。 If frmMain.lstv.ListItems(i).Text = " " Then If frmMain.lstv.ListItems(i + 1).Text = " " Then Exit For frmMain.lstv.ListItems(i).Text = frmMain.lstv.ListItems(i + 1).Text frmMain.lstv.ListItems(i).SubItems(1) = frmMain.lstv.ListItems(i + 1).SubItems(1) End If Next
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.