以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享] 多行文本快速粘贴  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57821)

--  作者:lsy
--  发布时间:2014/10/5 10:31:00
--  [分享] 多行文本快速粘贴

简单的将几百行文本复制、粘贴到多行文本框或单元格中,速度比较慢。

 

本案例,用单元格代替多行文本框,用于显示、编辑。

 

用Update语句,快速更新单元格,几百行的文本瞬间粘贴完毕。

 

2楼有点甜的代码,说明不是文本框控件慢,而是方法要对头。

 


以下内容只有回复后才可以浏览

 

 

[此贴子已经被作者于2014-10-5 11:33:01编辑过]

--  作者:有点甜
--  发布时间:2014/10/5 10:37:00
--  

简单一点,可以直接在textbox的keydown事件写入如下代码

 

If e.KeyCode = Keys.V AndAlso e.Control = True Then
    e.Cancel = True
    e.Sender.Text = ClipBoard.GetText
End If


--  作者:有点甜
--  发布时间:2014/10/5 10:39:00
--  

 再结合SelectionStart,基本就完美了。

 

 在文本框Leave事件写入代码 vars("sstart") = e.Form.Controls("TextBox1").SelectionStart

 

 在按钮写入代码 msgbox(vars("sstart"))

 

 从得到的位置,通过substring截取对应的字符串,然后拼凑成你要的


--  作者:lsy
--  发布时间:2014/10/5 10:42:00
--  
以下是引用有点甜在2014-10-5 10:37:00的发言:

简单一点,可以直接在textbox的keydown事件写入如下代码

 

If e.KeyCode = Keys.V AndAlso e.Control = True Then
    e.Cancel = True
    e.Sender.Text = ClipBoard.GetText
End If

以为文本框就是慢,看来还是方法问题,不是控件自身的问题。

 

这样更简单。


--  作者:freeants
--  发布时间:2014/10/5 10:43:00
--  
看看看看
--  作者:hanleey
--  发布时间:2014/10/5 10:45:00
--  
图片点击可在新窗口打开查看看不懂,先抄下来。
--  作者:hjcslr
--  发布时间:2014/10/5 10:50:00
--  
1111
--  作者:黄训良
--  发布时间:2014/10/5 20:27:00
--  

效率高,一定要看


--  作者:pyh6918
--  发布时间:2014/10/5 22:40:00
--  
收藏
--  作者:blackzhu
--  发布时间:2014/10/6 8:03:00
--  
学习下