ListView?

得到listview的双击事件，可以通过selecteditem得到listview的选择item,在mouseup中通过HitTest得到当前鼠标所在的item 设置为selecteditem

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

1.双击事件中
Private Sub lstv_DblClick()
    If lstv.ListItems.Count > 0 Then
        ......
        .....
    End If
End Sub
2.
    Lstv.SortKey = ColumnHeader.Index - 1
    Lstv.SortOrder = intLastSort
    Lstv.Sorted = True
3.
Microangelo
1.双击事件中
Private Sub lstv_DblClick()
    If lstv.ListItems.Count > 0 Then
        '在这里对 lstv.selectitem 进行操作
        '......
        '.....
    End If
End Sub
Option Explicit
Dim bIsLvwItemDblClick As Boolean
Dim blnClick As Boolean
Private Sub Form_Load()
    Dim i As Integer
    blnClick = False
    ListView1.ListItems.Add , , "aa"
    ListView1.ListItems.Add , , "bb"
    ListView1.ListItems.Add , , "cc"
    ListView1.ListItems.Add , , "dd"
    ListView1.OLEDragMode = ccOLEDragAutomatic
    ListView1.LabelEdit = lvwManual
    ListView1.HideSelection = False
End SubPrivate Sub ListView1_Click()
    blnClick = True
End SubPrivate Sub ListView1_DblClick()

    If bIsLvwItemDblClick Then
        If blnClick Then
            blnClick = False
            MsgBox ListView1.SelectedItem.Text
        Else

        End If
    End If
End SubPrivate Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    bIsLvwItemDblClick = ListView1.HitTest(x, y) Is ListView1.SelectedItem
End Sub
'对lstv的内容从新排序的子程序，通常是用户点击clumnheader时，从新对listview的内容进行排序，这里你只要把点击的columheader和listview对象作为参数传进去就可以了。
Public Sub ReOrderLstv(ByVal ColumnHeader As MSComctlLib.ColumnHeader, Lstv As ListView)
    Static strLastCol As String
    Static intLastSort As Integer
    If ColumnHeader <> strLastCol Then
        intLastSort = lvwAscending
    Else
        If intLastSort = lvwDescending Then
            intLastSort = lvwAscending
        Else
            intLastSort = lvwDescending
        End If
    End If
    Lstv.SortKey = ColumnHeader.Index - 1
    Lstv.SortOrder = intLastSort
    Lstv.Sorted = True
    strLastCol = ColumnHeader
End Sub
Set nodx = TreeView1.Nodes.Add(, , "r", "ÉÌÆ·Î¬»¤")
    Set nodx = TreeView1.Nodes.Add("r", tvwChild, "b", "Õû»úÀà")
        Set nodx = TreeView1.Nodes.Add("b", tvwChild, "c", "Ì¨Ê½»ú")
        Set nodx = TreeView1.Nodes.Add("b", tvwChild, "c1", "±Ê¼Ç±¾")
        Set nodx = TreeView1.Nodes.Add("b", tvwChild, "c2", "·þÎñÆ÷")
        Set nodx = TreeView1.Nodes.Add("b", tvwChild, "c3", "¹¤×÷Õ¾")
        Set nodx = TreeView1.Nodes.Add("b", tvwChild, "c4", "¹¤¿Ø»ú")
    Set nodx = TreeView1.Nodes.Add("r", tvwChild, "b10", "¼æÈÝ»ú")

    Set nodx = TreeView1.Nodes.Add("r", tvwChild, "b1", "µçÄÔÅä¼þ")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d1", "Ö÷°å")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d2", "ÄÚ´æ")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d3", "CPU")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d4", "Ó²ÅÌ")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d5", "ÏÔ¿¨")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d6", "Éù¿¨")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d7", "CD/DVD¹âÇý")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d8", "ÈíÇý")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d9", "Êó±ê")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d10", "¼üÅÌ")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d11", "»úÏä")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d12", "CPU·çÉÈ")
        Set nodx = TreeView1.Nodes.Add("b1", tvwChild, "d13", "ÆäËû")
    Set nodx = TreeView1.Nodes.Add("r", tvwChild, "b2", "ÊýÂë²úÆ·")
        Set nodx = TreeView1.Nodes.Add("b2", tvwChild, "a", "MP3")
        Set nodx = TreeView1.Nodes.Add("b2", tvwChild, "a1", "PDA")
        Set nodx = TreeView1.Nodes.Add("b2", tvwChild, "a2", "ÉãÏñÍ·")
        Set nodx = TreeView1.Nodes.Add("b2", tvwChild, "a3", "ÒÆ¶¯µç»°")
        Set nodx = TreeView1.Nodes.Add("b2", tvwChild, "a4", "ÊýÂëÏà»ú")
        Set nodx = TreeView1.Nodes.Add("b2", tvwChild, "a5", "ÊýÂëÂ¼Òô±Ê")
    Set nodx = TreeView1.Nodes.Add("r", tvwChild, "b3", "ÍøÂç²úÆ·")If Node.Text = "Ì¨Ê½»ú" Then
  frmmain.Show 1, Me
  frmmain.Caption = "Ì¨Ê½»ú"ElseIf Node.Text = "±Ê¼Ç±¾" Then
frm_spxs.Adodc1.Recordset.Fields(0).Value = bb  frmmain.Show 1, Me
  frmmain.Caption = "±Ê¼Ç±¾"
ElseIf Node.Text = "·þÎñÆ÷" Then
  frmmain.Show 1, Me
  frmmain.Caption = "·þÎñÆ÷"
ElseIf Node.Text = "¹¤×÷Õ¾" Then
end if