在VB中如何用代码实现使用鼠标右键?

ourbone 2003-05-14 03:23:47
在VB中如何用代码实现使用鼠标右键?
...全文
49 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sxs69 2003-05-14
窗体的KeyPreview属性应设为True
回复
ntz 2003-05-14
首先要建一个菜单,就是你要用右键弹出的那个东西呀,比如说菜单名叫"menxx"
再加上:
Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
If button = 2 Then
popupmenu menxx
End If
End Sub
回复
titan1975 2003-05-14
up
回复
lazycat818 2003-05-14
呵呵,估计楼主要求的是鼠标右键弹出菜单吧
Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
If button = vbRightButton Then
popupmenu mnuHello,2 ’具体用法自己查
End If
End Sub
回复
leswang107 2003-05-14
不好意思上面的错了,呵呵,应该这样,汗~~~~~~~~

Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
If button = vbRightButton Then
MsgBox ""
End If
End Sub
回复
leswang107 2003-05-14
Private Sub Form_Click()
If vbRightButton = 2 Then
MsgBox ""
End If
End Sub
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-14 03:23
社区公告
暂无公告