这是每个节点的点击事件，双击事件怎么写啊?
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.
 ElseIf (Node.Key = "hebei2") Then
    WMP1.URL = "mms://mms.
    End If
End Sub

[ 本帖最后由 统一电讯 于 2009-11-2 17:03 编辑 ]

我的意思是让双击播放附件已上传请版主改一下

谢谢已经解决

Private Sub TreeView1_DblClick()
Select Case TreeView1.SelectedItem.Key'根据KEY来判断，也可以根据TEXT来判断
   Case "hebei1"
       WMP1.URL = "mms://mms.
   Case "hebei2"
       WMP1.URL = "mms://mms.
   Case Else
        '........
End Select
End Sub
再补充一个问题，怎样让双击空白处失效，上面代码当我选中一个子节点时双击空白处也会执行