上面有几个文本框，里面有不同的内容，点击对应的文本框就会复制里面的内容到剪贴板
1.在你的窗体上面一个文本框，然后复制粘贴，需要几个就粘贴几个，粘贴的时候会提示你是否要创建一个控件数组？选择“是”。
2.双击text1，然后输入如下代码:
Private Sub Text1_Change(Index As Integer)
Clipboard.SetText TxtUser(Index).Text
End Sub
3.运行后单击测试通过
2.双击text1，然后输入如下代码:
Private Sub Text1_Change(Index As Integer)
Clipboard.SetText TxtUser(Index).Text
End Sub
3.运行后单击测试通过
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-12-21
做个text1的控件数组
比如text1(0),text1(1),text1(2)
Private Sub Text1_Click(Index As Integer)
Clipboard.Clear
Clipboard.SetText Me.Text1(Index).Text
End Sub
比如text1(0),text1(1),text1(2)
Private Sub Text1_Click(Index As Integer)
Clipboard.Clear
Clipboard.SetText Me.Text1(Index).Text
End Sub
