以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  禁止复制文本框内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131598)

--  作者:裴保民
--  发布时间:2019/3/2 10:49:00
--  禁止复制文本框内容
如题任何禁止复制文本框内容呢?
--  作者:有点蓝
--  发布时间:2019/3/2 11:20:00
--  
窗口afterload

Dim txtb = e.Form.Controls("TextBox1").basecontrol
txtb.ShortcutsEnabled = False

文本框keydown

If e.Control AndAlso e.KeyCode = Keys.C Then
    e.Cancel = True
End If