从品牌网站建设到网络营销策划,从策略到执行的一站式服务
ConTextMenuStrip控件不要和listbox绑定,用代码弹出来:
成都创新互联公司-企业级云服务器提供商,为用户提供云服务器、CDN、云安全服务、服务器托管、服务器租用、高防服务器等全方位云服务与各行业解决方案,帮助企业及个人极速备案,轻松上云,安全无忧。
Private Sub ListBoxUser_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBoxUser.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim sPoint As Point = New Point(e.X, e.Y)
Dim sIndex As Integer = ListBoxUser.IndexFromPoint(sPoint.X, sPoint.Y)
If sIndex -1 Then
ListBoxUser.SelectedIndex = sIndex
ListBoxUser.ContextMenuStrip = ContextMenuListBox
Else
ListBoxUser.ContextMenuStrip = Nothing
End If
Else
ListBoxUser.ContextMenuStrip = Nothing
End If
End Sub
上面示例中,ListBoxUser是一个ListBox实例,ContextMenuListBox是一个菜单示例。
添加一个ContextMenuStrip,设计好菜单后,点你要弹出这个菜单的控件,将ContextMenu属性改成你要的菜单
如果是窗体右键单击事件,是
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
'这里写你要的代码
End If
End Sub
但是如果只是右键单击就弹出菜单的话没必要这样,只需要在窗体上放置一个ContextMenuStrip控件,然后在Form的ContextMenuStrip属性中绑定这个控件就可以了。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图