Excel vba Userform内のlistviewにおいてアイテムダブルクリックで内容を表示

Question

経緯

エクセル vbaでユーザーフォームを作成しています。
Listviewを組み込み、itemの登録には至ったのですが、
登録したitemの内容が長く、msgboxで表示しようと考えました。

##問題点
下記に記載しましたコードでは、「クリック」での表示が可能なのですが、
これを「ダブルクリック」で表示する方法について、可否含めご教示の程お願い致します。

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    MsgBox Item & vbCrLf & Item.SubItems(1) & vbCrLf & Item.SubItems(2)
End Sub

Answer 1

以下でいかがでしょうか？

Private Sub ListView1_DblClick()
    'ListViewをダブルクリックしたときに出力するデータを確認
    Dim outputTxt As String
    With ListView1.SelectedItem
        outputTxt = .Text & vbCrLf & .SubItems(1) & vbCrLf & .SubItems(2)
    End With
    MsgBox outputTxt
End Sub

Comments

[asuka0810]

hex309様
早々のご回答ありがとうございます。
記載いただいた内容にて実現できました。
また、ご縁がありましたら、宜しくお願い致します。