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
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
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
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", 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