这是每个节点的点击事件，双击事件怎么写啊?
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 编辑 ]

在TREEVIEW控件中，很少会使用DBLCLICK事件的。
TREEVIEW控件的DBLCLICK事件一般只用于父节点，在子节点中写了也没用的。子节点肯定得先响应NodeClick事件。

如果你必须得用到DBLCLICK事件，那在此事件代码前面先判断一下是否是子节点，是的话，就EXIT SUB。

下面是一个例子，你可以体会一下：

Private Sub TreeView1_DblClick()
If TreeView1.Nodes(TreeView1.SelectedItem.Index).Children > 0 Then
  MsgBox "这是父节点,所以响应此事件"
End If
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Children > 0 Then Exit Sub '如果是父节点，则不响应此事件
'下面写你想执行的代码
'...............
End Sub

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

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

不如用list控件，

谢谢已经解决

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
再补充一个问题，怎样让双击空白处失效，上面代码当我选中一个子节点时双击空白处也会执行