加载中…
个人资料
悦妃云
悦妃云
  • 博客等级:
  • 博客积分:0
  • 博客访问:143,034
  • 关注人气:27
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

VB右键(ListBox)弹出菜单源码

(2013-06-23 08:39:18)
标签:

listbox

弹出

菜单

右键

it

分类: 开发源码
Private Sub Form_Load()
 For i = 0 To 10
   List1.AddItem "VB你好啊!" & i
 Next i
 Call Hook("Hook", List1.hWnd)
End Sub

Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu caidan     'caidan 是你要弹出的菜单
End Sub


一个listbox控件,先在菜单编辑器编辑好要弹出的菜单.

0

阅读 评论 收藏 禁止转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有