Question

VB编程如何实现按下键盘F1即复制，按下F2即粘贴

我想弄一个VB软件，功能就是我按下键盘上的F1就可以复制任何界面被选中的文字，按下键盘上的F2就可以把刚才复制的文字粘贴到任何一个地方。我要的功能就这么简单，哪位大神能帮帮我，万分感谢！

Answer 1

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 300
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) Then SendKeys "^C"
If GetAsyncKeyState(vbKeyF2) Then SendKeys "^V"
End Sub

追问

你好，我按你这个代码编写程序，为什么复制粘贴时会出现一些卡顿的现象，还有假如我想按下键盘分号的那个键即复制，按下键盘逗号的那个键即粘贴。请问怎么修改代码呢？

追答

修改Timer1.Interval = 300这个数字调整到你需要的速度
别的问题开新帖子问

Answer 2

用API函数很简单的。

追问

你好，你能给我写一个代码看看吗？只要能实现，分不是问题。

追答

vb忘干净了，vb.net的简单。

追问

那VB.net的也可以，只要能实现都可以。