主题：请教:复制文本框中内容到剪贴版的代码如何用?

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


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

如果是通过点击其它按钮来实行，当然这样不行：

第一步：添加一个全局变量：vars.add("最后活动窗口")

窗口全局事件：

if left(e.Sender.Name,7) = "TextBox"
    vars("最后活动窗口") = e.Sender.Name
end if  '保证只在活动控件为文本框时向全局变量赋值为该控件的名称（所有控件名称均以TextBox开始，据有统一判断标识性）。

按钮代码：

e.Form.Controls(vars("最后活动窗口") ).Select() ’在点击按钮时选中的是最后一个活动文本框的内容
e.Form.Controls(vars("最后活动窗口") ).Copy ’复制最后一个活动文本框的内容到剪贴板

没有上诉结合措施，点击按钮时焦点转移，当然就选择不了最后选中的那个文本框的内容，而要去选择按钮的内容，报错也就在情理之中，只要理清逻辑，灵活运用是不难实现的！