| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何通过剪贴板来写读复制相关信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105419) |
| -- 作者：zhuya820 -- 发布时间：2017/8/18 17:45:00 -- [求助]如何通过剪贴板来写读复制相关信息 如何通过剪贴板来写读复制相关信息 [此贴子已经被作者于2017/8/18 18:22:48编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2017/8/18 17:57:00 -- 参考：http://www.foxtable.com/webhelp/scr/2069.htm |
| -- 作者：zhuya820 -- 发布时间：2017/8/18 17:58:00 -- 请问老师逻辑代码如何写出入 没有示范 不会写 [此贴子已经被作者于2017/8/18 18:23:07编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2017/8/18 18:09:00 -- 复制 Dim s As String = e.Form.Controls("TextBox5").text & vbcrlf & e.Form.Controls("TextBox6").text ClipBoard.SetText(s) 粘贴 Dim s As String = ClipBoard.GetText() Dim arr() As String = s.Replace(vbcr,"").Split(vblf) e.Form.Controls("TextBox5").text = arr(0) e.Form.Controls("TextBox6").text = arr(1) |