回 帖 发 新 帖 刷新版面

主题:文本框的问题

如果让文本框不能使用,复制粘贴???
也就是当点击右键时,不会出现上下菜单
谢谢

回复列表 (共4个回复)

沙发

If e.Button = MouseButtons.Right Then
            Dim str As New ContextMenu
            str.Dispose()
            TextBox1.ContextMenu = str
        End If

板凳

谢谢

还有其它方法吗

3 楼

你是要做什么用的?
我觉的这个已经很简单了!!
  你想要的是什么样的内容??

4 楼

TextBox1_MouseDown里面添加这句代码 也能实现楼主的要求(如果用键盘在加句代码)
If e.Button = MouseButtons.Right Then MsgBox("你干吗?")

我来回复

您尚未登录,请登录后再回复。点此登录或注册