VB中复制-粘贴-剪切键实现

时间：2021-11-09 21:06:26
If Me.ActiveControl.GetType.BaseType.ToString = "System.Windows.Forms.TextBoxBase" Then

 Windows.Forms.SendKeys.Send("^{X}")

End If

If Me.ActiveControl.GetType.BaseType.ToString = "System.Windows.Forms.TextBoxBase" Then

 Windows.Forms.SendKeys.Send("^{C}")

 End If

If Me.ActiveControl.GetType.BaseType.ToString = "System.Windows.Forms.TextBoxBase" Then

Windows.Forms.SendKeys.Send("^{V}")

End If

Clipboard.SetText('粘贴文本信息')

Clipboard.GetText('获取文本信息')

相关文章