| 发表于:2007-05-25 17:43:282楼 得分:10 |
private sub treeview1_mouseup(button as integer, shift as integer, x as single, y as single) dim nodx as node if button = vbrightbutton then set nodx = treeview1.hittest(x, y) if not nodx is nothing then if not nodx.parent is nothing then popupmenu yourmenu end if end if end if end sub | | |
|