Dim Flag As Boolean
Private Sub ListViewOther_ItemClick(ByVal Item As MSComctlLib.ListItem)
flag = True
End SubPrivate Sub ListViewOther_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If flag = True Then
   If Button = 2 Then
      MsgBox  ListViewOther.SelectedItem.ListSubItems(2)'"记录的反馈!"
   End If
End If
End Sub

解决方案 »

  1.   

    可是我又怎幺知道item失去焦点, 单击的是没有item(listview的其它区域)的区域.
      

  2.   

    你檢測: lv.selectitem is nothing就ok
      

  3.   

    MS的VisSData源代码中有关于这方面的详细代码,可以实现使用右健选中然后弹出菜单。
      

  4.   

    不用Listview 
    可以用TreeView
    那里有Notes集合,并且有note对象被点击的事件。
      

  5.   

    '定义模块级变量
    private curx as long,cury as long
    '在ListView的MouseMove事件里面写上:
    curx=x:cury=y
    '在ListView的Click事件里面写上:
    dim lvItem as listitem
        set lvItem=ListView1.HitTest(curx,cury)
        if lvitem is nothing then '点击的是空白区域
             exit sub
        else'点击在Item上
             msgbox "你点击的是:" & lvItem.caption & "项目"
        end if
        set lvItem=nothing
      

  6.   

    listview如何实现单击选中,双击显示msgbox
    http://www.csdn.net/expert/topic/251/251400.shtm