掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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 ---------------- ここまで ---------------- こんなもんじゃないでしょうかね。 的外れな回答でしたらすみません。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.