Clipboard.SetText Text1.Text '把文本框中的内容复制到剪切板上
Text2.Text = Clipboard.GetText'把剪切板中的内容粘贴到文本框中
复制:
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024