vb.net 通过按钮复制内容

   

   Private Sub BtnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCopy.Click
        My.Computer.Clipboard.Clear()
        If Me.RichTextBox2.Text.Length > 0 Then
            My.Computer.Clipboard.SetText(Me.RichTextBox2.Text)
        End If
    End Sub