Question

VB复制粘贴问题？

请教高手：我想用VB编程实现按下命令按钮，就复制文本内容，并自动切换界面后将他粘贴到新的文本内。（就类似于申请账号时填邮箱之类信息时，自动把信息复制并粘贴到里面）复制代码我已经解决，切换界面也已经解决，但是粘贴不好使，我用API函数模拟键盘ctrl+V没成功，用SendKeys，也粘贴不了，就是复制并切换界面后，不能进行粘贴。
附代码：Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text '复制文本内容SendKeys ("%{Tab}") '切换界面
Sleep 500 '延时500毫秒keybd_event VK_Ctrl, 0, 0, 0 '按下Ctrl键
keybd_event VK_V, 0, 0, 0 '按下V键
Sleep 500 '延时500毫秒
keybd_event VK_V, 0, KEYEVENTF_KEYUP, 0 '释放V键
keybd_event VK_Ctrl, 0, KEYEVENTF_KEYUP, 0 '释放Ctrl键End sub哪位大侠帮我解决一下，不胜感激！

Answer 1

你没有成功很有可能是因为另外一边的文本没有获得焦点，你应该在切换过来的时候就让它先获得焦点再执行ctrl+v的操作~

Answer 2

keybd_event VK_Ctrl, 0, 0, 0 '按下Ctrl键
keybd_event VK_V, 0, 0, 0 '按下V键
Sleep 500 '延时500毫秒
keybd_event VK_V, 0, KEYEVENTF_KEYUP, 0 '释放V键
keybd_event VK_Ctrl, 0, KEYEVENTF_KEYUP, 0 '释放Ctrl键 为何不用sendkeys "^(v)"

Answer 3

没道理吧 我这里试验成功了啊 用的是sendkeys 窗体之切换与窗体与网页间切换都可以正常粘贴啊