Private Sub Trv_user_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And vbRightButton Then PopupMenu A End If End Sub 其中:A为菜单
Private Sub Trv_user_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And vbRightButton Then if not me.treeview1.hittest(x,y) is nothing then PopupMenu A end if End If End Sub
If Button And vbRightButton Then
PopupMenu A
End If
End Sub
其中:A为菜单
If Button And vbRightButton Then
if not me.treeview1.hittest(x,y) is nothing then
PopupMenu A
end if
End If
End Sub