右键菜单用ContextMenuStrip实现后,第一次点击鼠标右键菜单不出来。

dushuang 2009-09-28 04:18:39
第二次以后就正常显示菜单了,不知道什么原因。

Private Sub frmRoomDisplay_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick, pnlFlow.MouseClick, pnlExg.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
If sender.Equals(pnlFlow) Then
pnlFlow.ContextMenuStrip = cmsRoomDisplay
ElseIf sender.Equals(pnlExg) Then
pnlExg.ContextMenuStrip = cmsRoomDisplay
ElseIf sender.Equals(Me) Then
Me.ContextMenuStrip = cmsRoomDisplay
End If
End If
End Sub
...全文
287 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
jiangjubo 2009-09-29
  • 打赏
  • 举报
回复
Private Sub tableDataGridView_CellMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles tableDataGridView.CellMouseDown
Dim p As New Point()
If (e.Button = MouseButtons.Right) Then
p.X = MousePosition.X
p.Y = MousePosition.Y
Me.cms2.Show(p)
End If
End Sub
dushuang 2009-09-29
  • 打赏
  • 举报
回复
加上:cmsRoomDisplay.show()大多数时候是显示了,可是第一次显示的时候位置不对,右键菜单跑道左上角显示了。
lyc120 2009-09-28
  • 打赏
  • 举报
回复
正在学C#,
不过了解一下
古今多少事 2009-09-28
  • 打赏
  • 举报
回复
加上:cmsRoomDisplay.show()

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧