ListViewの重複をチェックする方法

解決

Dreamer 2011-03-05 22:31:52 No: 102795

題名道理の質問です。
ListViewに指定した文字列を追加していく、とあるプログラムを開発中です。
そこで重複した文字列がある場合追加しないようにしたいと思っています。

ListView.Items.Findを使って試みましたがうまく行きませんでした。
強引でも良いので方法があれば教えていただけると幸いです。
よろしくお願いします。

58 2011-03-14 21:14:43 No: 102796

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
---------------- ここまで ----------------

こんなもんじゃないでしょうかね。
的外れな回答でしたらすみません。

Dreamer 2011-03-17 07:28:32 No: 102797

ありがとうございました。
無事動作致しましたので解決とさせていただきます。