求助:如何在listbox里面实现鼠标右键菜单?????

VB..QQ群!! !!!5065880

敬告 kingchain

你要回帖,就请针对问题回萜, 再发这个 "广告", 本人只有连续删.....

Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

button 返回一个整数，用来标识该事件的产生是按下 ( MouseDown ) 或者释放 ( MouseUp ) 按钮引起的。button 参数是具有相应于左按钮（位 0），右按钮（位 1），以及中间按钮（位 2）的一个位字段。这些位的值分别等于 1，2，和 4。其中仅有一位被设置，指示出引起该事件的那个按钮。 

if button = 2 then 
'//在这里添加显示你的菜单的语句
end if

建个新的窗体，那就是你的菜单了（或者你干脆把它做成个控件）。

还将涉及到鼠标移出窗体（那个菜单）外点击鼠标后自动销毁窗体的问题，你自己查查相应的API看看吧。

呵呵，我帮了你的忙，也等于没帮，如果你理解了，就一定知道该怎么做了。