UC知道菜鸟问题：VB程序冲突，请帮忙解决。
来源：百度知道 编辑：UC知道 时间：2024/05/05 21:50:09
发现下面程序运行时当点空白处时出现块未定义错误，请帮忙修改，最好说明冲突原因谢谢。
Private Sub TreeView1_click()
Text1.Text = TreeView1.SelectedItem.Text
End Sub
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
Private Sub TreeView1_click()
Text1.Text = TreeView1.SelectedItem.Text
End Sub
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
Private Sub TreeView1_click()
On Error Resume Next
'主要出在这里，因为当你在TreeView1_MouseDown中发现在空白处点击鼠标时，把Selecteditem设置成了Nothing,这时再去访问它的属性的话就行出错(因为VB还是向鼠标平行的Node发送了Click命令)
If TreeView1.SelectedItem Is Nothing Then Exit Sub
Text1.Text = TreeView1.SelectedItem.Text
End Sub
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