vb中实现跨程序的粘贴功能

Private Sub Command1_Click()  '旦毕点击按钮Command1

Clipboard.SetText Text1.SelText  '把Text1中已选择的文本复制笑肆到系统剪贴板

End Sub

这样的话再到记事本中（或其他任模升芹何软件中）按Ctrl-V就能粘贴了。

如果想复制Text1的全部内容而不是选择的内容，可改为

Clipboard.SetText Text1.Text

'新建一个文本框，名为Text1

Sub CreateClipBoard(CopyText As String)

    Clipboard.Clear

    Clipboard.SetText CopyText

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = KeyCodeConstants.vbKeyF1 Then

        CreateClipBoard (Text1.Text)

        MsgBox 宴磨"文本已经复制！"

    End If

End Sub

Private Sub Form_Load()

    Me.KeyPreview = True

    Text1.Text = "需要复制的文本"

End Sub

注意，在别的程序F2粘贴，必须要那个程序支持按下F2，粘贴。本晌稿斗程序按下F1使文本框，就复制了敬猛文本哦~

---