Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
                            If Not TreeView1.HitTest(x, y) Is TreeView1.SelectedItem Then
                                  Set TreeView1.SelectedItem = Nothing
                            End If
End Sub
在TreeView1中我写了上面的代码是为了让双击空白处失效不让它执行，可是加上这句代码后，如果我选中其中一个节点再点击一下空白处，我选中的节点将会变成没有被选中，怎样让单击空白处也失效呢，让它的值在我选中的节点上，请版主修改一下，下面有源码

[ 本帖最后由 统一电讯 于 2009-11-5 09:05 编辑 ]

你试试是不是想要这个效果：
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    'If Not TreeView1.HitTest(x, y) Is TreeView1.SelectedItem Then
    If Len(TreeView1.SelectedItem) > 0 Then
       Set TreeView1.SelectedItem = TreeView1.SelectedItem
    End If
End Sub

不是那样的效果，如果那样写代码就和把TreeView1_MouseDown中的代码去掉不要一样，那样的话双击空白处就又会执行我选中的节点

[ 本帖最后由 统一电讯 于 2009-11-4 16:31 编辑 ]

'定义两个变量用来实时捕获鼠标按下时的坐标传递给TreeView1_DblClick事件
Dim x1 As Double
Dim y1 As Double

Private Sub TreeView1_DblClick()
If TreeView1.HitTest(x1, y1) Is TreeView1.SelectedItem Then
Select Case TreeView1.SelectedItem.Key '根据KEY来判断，也可以根据TEXT来判断
   Case "hebei1"
       Shell App.Path & "\东震三号\东震三号.exe"
   Case "hebei2"
       Shell "Explorer.exe " & App.Path & "\八大芯片最新版V4.05原版", vbNormalFocus
   Case Else
        '........
End Select
End If
End Sub
 
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  x1 = x
  y1 = y
End Sub


不知道上面代码是不是楼主想要的

谢谢4楼版主就是这个效果