level 1
cunfugst1
楼主
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nd As Node
If Button = vbRightButton Then
Set nd = TreeView1.HitTest(x, y)
If Not nd Is Nothing Then
If Left(nd.Key, 1) = "R" Then
select_id = nd.Text
Me.PopupMenu mnupop
End If
End If
End If
End Sub
Me提示：要求对象
2018年12月11日 13点12分
1
Dim nd As Node
If Button = vbRightButton Then
Set nd = TreeView1.HitTest(x, y)
If Not nd Is Nothing Then
If Left(nd.Key, 1) = "R" Then
select_id = nd.Text
Me.PopupMenu mnupop
End If
End If
End If
End Sub
Me提示：要求对象
