vb 复制选中文本

来源：百度知道 编辑：UC知道 时间：2024/05/13 16:41:22
有多个文本框,怎么让选中的文本互相复制或粘贴
就是说我做了一个多文本框的程序，我想用一个控件复制任意一个文本框中选中的文本，再粘贴到任意一个文本框中光标位置，怎么写代码？

实现方法如下:
1、在窗体form1中放置两个文本框，Text1和Text2；
2、代码如下：（当然，这是简单的示例，你可据要求做变通处理,但原理是一样的：控件焦点的转移）,祝你成功！

Dim a As String

Private Sub Text1_GotFocus()

Text1.Text = Text1.Text & a

End Sub

Private Sub Text1_LostFocus()

a = Trim$(Text1.Text)

End Sub

Private Sub Text2_GotFocus()

Text2.Text = Text2.Text & a

End Sub

Private Sub Text2_LostFocus()

a = Trim$(Text2.Text)

End Sub

把选中的文本赋值给剪切板就完了，很简单。呵呵！！！

请将问题描述清楚，这样大家才可以帮助你，谢谢 ！