以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教:复制文本框中内容到剪贴版的代码如何用?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4441)
--  作者：yangming
--  发布时间：2009/9/24 12:00:00
--  请教:复制文本框中内容到剪贴版的代码如何用?
复制文本框中内容到剪贴版的代码如何用?我按下面的代码,没有用
e.Form.Controls("TextBox2").Copy()
或
e.Form.Controls("TextBox2").Copy
[此贴子已经被作者于2009-9-24 12:00:26编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/9/24 12:04:00
--  
Dim txt as String = e.Form.Controls("TextBox2").Text
System.Windows.Forms.Clipboard.SetText(Txt)
--  作者：yangming
--  发布时间：2009/9/24 12:05:00
--  

帮助文件中是这样写的

Copy

复制文本框中选定内容复制到剪贴板。
--  作者：狐狸爸爸
--  发布时间：2009/9/24 12:07:00
--  
呵呵,前提是你得选定要复制的内容
--  作者：yangming
--  发布时间：2009/9/24 12:11:00
--  
噢,我说怎么没用的呢,你没写需要前提,呵呵
--  作者：yangming
--  发布时间：2009/9/24 12:16:00
--  
我这样就可以了,呵呵
e.Form.Controls("TextBox2").Select()
e.Form.Controls("TextBox2").Copy
--  作者：ybmjy
--  发布时间：2009/9/24 18:06:00
--  
假设要复制焦点所在文本框中的内容，又该如何写代码呢
--  作者：yangming
--  发布时间：2009/9/24 18:08:00
--  
以下是引用ybmjy在2009-9-24 18:06:00的发言：
假设要复制焦点所在文本框中的内容，又该如何写代码呢

六楼的就是焦点在文本框
--  作者：程兴刚
--  发布时间：2009/9/24 18:43:00
--  

他说的不是那个意思，他要的是这个通用选择代码，点击任意控件后的焦点，不需要修改代码：


e.Form.Controls(e.Sender.Name).Select()
e.Form.Controls(e.Sender.Name).Copy

--  作者：ybmjy
--  发布时间：2009/9/24 18:44:00
--  

呵呵，没说清楚。是指不定义是哪个文本框，只要是焦点所在的文本框，点按钮就可复制该文本框中内容。问按钮事件代码
这个好象只能复制当前按钮的：
Dim txt as String = e.Form.ActiveControl.Text
System.Windows.Forms.Clipboard.SetText(Txt)

因为点按钮时焦点已在按钮上了。
用于文本框内容改变后用还真是可以。

[此贴子已经被作者于2009-9-24 18:46:48编辑过]