vb2010 textbox中单击鼠标右键显示自定义菜单
我添加了一个自定义菜单。然后textbox里单击鼠标右键时候显示自定义菜单。去掉默认菜单代码怎么写,不知道那里出错PrivateSubTextBox1_MouseDown...
我添加了一个自定义菜单。
然后textbox里单击鼠标右键时候显示自定义菜单。
去掉默认菜单
代码怎么写,不知道那里出错
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
TextBox1.Enabled = False '禁止弹出系统菜单
PopupMenu(ContextMenuStrip1) ' 显示自定义菜单
TextBox1.Enabled = True
End If
End Sub 展开
然后textbox里单击鼠标右键时候显示自定义菜单。
去掉默认菜单
代码怎么写,不知道那里出错
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
TextBox1.Enabled = False '禁止弹出系统菜单
PopupMenu(ContextMenuStrip1) ' 显示自定义菜单
TextBox1.Enabled = True
End If
End Sub 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询