Question

VB复制文本框文本问题

Private Sub Command2_Click()
Clipboard.SetText Text2.Text
MsgBox "复制成功！!", 26, "提示!"
End Sub

复制是可以啦！但是只能在程序内部粘贴，不能粘贴到桌面的记事本

Answer 1

你是说什么意思？ 你是在记事本里面按 CTRL + V还是想用程序点击command2在记事本里面粘贴呀？

前者的话，就是按CTRL + V 就粘贴上了呗。这这是windows一个辅助程序而已。不可能不通用的。

后者的话，那就比较麻烦了、 首先用findwindow 这个API找到记事本的句柄。然后findwindowex找到记事本上文本框的句柄。 然后sendmessage、、参数设置为settext 、然后点击command2就会出现在第三方程序上面了。

如果你对于我说的不知所云的话，你百度 API 。

Answer 2

你忘了先清空剪贴板了！
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
MsgBox "复制成功！!", 26, "提示!"
End Sub

Answer 3

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
MsgBox "复制成功！!", 26, "提示!"
End Sub

Answer 4

没有问题。可以粘贴到记事本

追问

为什我不能，只能粘贴在程序里的文本框

追答

经实测可以
测试环境：XP, VB6.0+SP6

Answer 5

经测试，正常，运行后打开记事本，Ctrl+V能粘贴