ListViewの重複をチェックする方法 (ID:102796)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 vb6.0ですよね。 Microsoft Windows Common Controls 6.0(SP4) を使用した場合のサンプルコードを示します。 ---------------- 以下、ソースコード ---------------- Option Explicit Private Sub Form_Load() Me.ListView1.ListItems.Add , , "ABC" Me.ListView1.ListItems.Add , , "DEF" Me.ListView1.ListItems.Add , , "GHI" Me.ListView1.ListItems.Add , , "JKL" Me.ListView1.ListItems.Add , , "MNO" AddNew "ABC" AddNew "DEF" AddNew "GHI" AddNew "JKL" AddNew "MNO" AddNew "PQR" End Sub Private Sub AddNew(ByVal strNewItem As String) Dim lstItm As ListItem For Each lstItm In Me.ListView1.ListItems If lstItm.Text = strNewItem Then Exit Sub Next lstItm Me.ListView1.ListItems.Add , , strNewItem End Sub ---------------- ここまで ---------------- こんなもんじゃないでしょうかね。 的外れな回答でしたらすみません。