UC知道VB中treeview双击事件代码怎么写啊
来源：百度知道 编辑：UC知道 时间：2024/07/06 15:56:49
这是每个节点的点击事件，双击事件怎么写啊?
Private Sub Form_Load()
TreeView1.LineStyle = tvwRootLines
TreeView1.Nodes.Add , , "dianshi", "电视"
TreeView1.Nodes.Add "dianshi", tvwChild, "hebei1", "河北卫视"
TreeView1.Nodes.Add "dianshi", tvwChild, "hebei2", "河北经济"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If (Node.Key = "hebei1") Then
WMP1.URL = "mms://mms.hebtv.com/tv1"
ElseIf (Node.Key = "hebei2") Then
WMP1.URL = "mms://mms.hebtv.com/tv2"
End If
End Sub
Private Sub Form_Load()
TreeView1.LineStyle = tvwRootLines
TreeView1.Nodes.Add , , "dianshi", "电视"
TreeView1.Nodes.Add "dianshi", tvwChild, "hebei1", "河北卫视"
TreeView1.Nodes.Add "dianshi", tvwChild, "hebei2", "河北经济"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If (Node.Key = "hebei1") Then
WMP1.URL = "mms://mms.hebtv.com/tv1"
ElseIf (Node.Key = "hebei2") Then
WMP1.URL = "mms://mms.hebtv.com/tv2"
End If
End Sub
Private Sub TreeView1_DblClick()
On Error Resume Next
Select Case TreeView1.Nodes.Item(TreeView1.SelectedItem.Index).Key
Case "hebei1"
WMP1.URL = "mms://mms.hebtv.com/tv1"
Case "hebei2"
WMP1.URL = "mms://mms.hebtv.com/tv2"
End Select
End Sub
自己可以再改改