掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストビューの項目を消した時に空欄を失くしたい (ID：84836)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
通りすがりのネコさんのからお教え頂いたとおり frmMain.lstv.ListItems.Countを使って以下のコードで うまくいきました。二度も教えて頂いて本当にありがとうございました。 Private Sub cmdSakujoOK_Click() frmMain.lstv.SelectedItem.Text = " " frmMain.lstv.SelectedItem.SubItems(1) = " " Dim i As Integer Dim u As Integer u = frmMain.lstv.ListItems.Count - 1 For i = 1 To u Step 1 If frmMain.lstv.ListItems(i).Text = " " Then frmMain.lstv.ListItems(i).Text = frmMain.lstv.ListItems(i + 1).Text frmMain.lstv.ListItems(i).SubItems(1) = frmMain.lstv.ListItems(i + 1).SubItems(1) frmMain.lstv.ListItems(i + 1).Text = " " frmMain.lstv.ListItems(i + 1).SubItems(1) = " " End If Next
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.