在VB中怎样把文本Text1的内容进行复制，粘贴，剪切到T文本ext2中？？？？？急~~~~~~~~

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:57:13

Private Sub Command1_Click()'复制
Clipboard.Clear
Clipboard.SetText (Text1)
End Sub

Private Sub Command2_Click()'剪切
Clipboard.Clear
Clipboard.SetText (Text1)
Text1 = ""
End Sub

Private Sub Command3_Click()'粘贴
Text2 = Clipboard.GetText
End Sub

Private Sub Command1_Click()
Text2.Text = Text2.Text + Text1.Text
End Sub

如果是TEXT1全部内容
复制:s$=text1.text
粘贴：text2.text=text2.text+s
剪切: s$=text1.text
text1.text=""
如果是选定内容运用
s$=txtNoteEdit.Seltext