Question

vb,怎样按一下按钮能复制文本框的内容?

Answer 1

Clipboard.SetText Text1.Text '把文本框中的内容复制到剪切板上
Text2.Text = Clipboard.GetText'把剪切板中的内容粘贴到文本框中

Answer 2

复制:

Private Sub Command1_Click()
Text1.SetFocus '到得焦点
Text1.SelLength = 0 '设置选定的起始位置
Text1.SelLength = Len(Text1.Text) '设置选定的长度
Clipboard.Clear '清除剪贴板上的内容
Clipboard.SetText Text1.SelText '复制选中的文本到剪贴板上
End Sub

粘贴:

Private Sub Command2_Click()
Text1.SelText = Clipboard.GetText()
End Sub