字符串复制到粘贴板:
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text, vbCFText
End Sub
取出字符串:
Private Sub Command1_Click()
Text1.Text = Clipboard.GetText
Clipboard.Clear
字符串复制到粘贴板:
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text, vbCFText
End Sub
取出字符串:
Private Sub Command1_Click()
Text1.Text = Clipboard.GetText
Clipboard.Clear