以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何解决TextBox复制输入时很慢的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84006)
--  作者：Exon_Liang
--  发布时间：2016/4/21 10:33:00
--  如何解决TextBox复制输入时很慢的问题
使用TextBox复制输入时，看到会逐字复制输入，速度很慢，有没有解决办法呢？
--  作者：大红袍
--  发布时间：2016/4/21 10:53:00
--  

mark TextBox慢

 

你在keydown事件处理一下就好了

 

If e.Control = True AndAlso e.KeyCode = keys.V Then
    Dim txt As WinForm.TextBox = e.sender
    Dim pstr As String = txt.text.SubString(0, txt.SelectionStart)
    Dim lstr As String = txt.text.SubString(txt.SelectionStart)
    txt.text = pstr & ClipBoard.GetText & lstr
    txt.SelectionStart = pstr.Length + ClipBoard.GetText.length
    e.cancel = True
End If
--  作者：Exon_Liang
--  发布时间：2016/4/23 10:24:00
--  

非常感谢！

 

如是是通过右键粘贴时，请教是否有办法解决？
--  作者：Hyphen
--  发布时间：2016/4/23 10:43:00
--  
屏蔽文本框的菜单，用自定义菜单