ListView内の項目を検索するには？ (ID:121499)

名前

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

本文 単純だがこんな方法はいかが？ Private Sub Command1_Click() MsgBox サブアイテムを検索("text2") End Sub Function サブアイテムを検索(data As String) As Integer Dim i As Integer For i = 1 To ListView1.ListItems.Count If ListView1.ListItems.Item(i).SubItems(1) = data Then サブアイテムを検索 = i Exit Function End If Next サブアイテムを検索 = 0 End Function