要用到两个事件和一个变量:
dim intA as integerPrivate Sub listView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
intA = Button
End SubPrivate Sub ListView1_NodeClick(ByVal Node As MSComctlLib.Node)
if intA=2 then
Me.PopupMenu mnu
end if
End Sub
dim intA as integerPrivate Sub listView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
intA = Button
End SubPrivate Sub ListView1_NodeClick(ByVal Node As MSComctlLib.Node)
if intA=2 then
Me.PopupMenu mnu
end if
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货