Foxtable(狐表)用户栏目专家坐堂 → [分享] 多行文本快速粘贴


  共有24521人关注过本帖树形打印复制链接

主题:[分享] 多行文本快速粘贴

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
[分享] 多行文本快速粘贴  发帖心情 Post By:2014/10/5 10:31:00 [只看该作者]

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

 

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

 

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

 

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

 


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

 

 

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/5 10:39:00 [只看该作者]

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

 

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

 

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:572 积分:3771 威望:0 精华:0 注册:2014/5/8 13:41:00
  发帖心情 Post By:2014/10/5 10:43:00 [只看该作者]

看看看看

 回到顶部
帅哥哟,离线,有人找我吗?
hanleey
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:991 威望:0 精华:0 注册:2014/8/9 22:43:00
  发帖心情 Post By:2014/10/5 10:45:00 [只看该作者]

图片点击可在新窗口打开查看看不懂,先抄下来。

 回到顶部
帅哥哟,离线,有人找我吗?
hjcslr
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:334 积分:2370 威望:0 精华:0 注册:2014/3/15 16:25:00
  发帖心情 Post By:2014/10/5 10:50:00 [只看该作者]

1111

 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2014/10/5 20:27:00 [只看该作者]

效率高,一定要看


 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1135 积分:11105 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2014/10/5 22:40:00 [只看该作者]

收藏

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2014/10/6 8:03:00 [只看该作者]

学习下

 回到顶部
总数 62 1 2 3 4 5 6 7 下一页