vb执行粘贴

[aeae12]

我现在有两个程序，A程序是已经做好的程序不能修改，我自己写的B程序，现在我已经实现了左击A程序的文本框将B程序的文本框

中的内容复制到剪贴板，我想继续实现左击A程序文本框后，不但执行复制还能继续向下执行粘贴，就是点击A程序的文本框一次后

能自动将B程序文本框中的内容复制粘贴到A程序文本框中，请问语句应怎样写。

B程序其实是一个抓取句柄工具，我用的复制命令是 Clipboard.Clear

Clipboard.SetText Text1.Text

粘贴命令请高人指点

谢谢！

[redmudwashcompanion]

Clipboard.GetData

[redmudwashcompanion]

Clipboard.SetText Text1.Text
Text2.Text = Text2.Text & Clipboard.GetText

[aeae12]

上边的大哥，不行啊，我是用一个程序取抓取窗体外的（另一个程序）鼠标事件后，做windows的复制粘贴

[aeae12]

顶

[tongnaifu]

使用API函数sendmessage

[xieming19831985]

使用API函数sendmessage

[Tiger_Zhao]

既然是抓取句柄工具，那么A中文本的句柄肯定有了。用 GetWindowText() 取得文本框内容，与你的字符串拼接起来后再用 SetWindowText() 直接更改目标文本框的内容。

Private hWndTarget As Long

Private Sub Command1_Click()
    Dim iLen As Long, s As String
    iLen = GetWindowTextLength(hWndTarget)
    s = Space(iLen)
    GetWindowText hWndTarget, s, iLen + 1
    s = s & Text1.Text
    SetWindowText hWndTarget, s
End Sub

[zhufenghappy]

[Quote=引用 2 楼 redmudwashcompanion 的回复:]
Clipboard.SetText Text1.Text
Text2.Text = Text2.Text & Clipboard.GetText
[/Quote]
应该没问题啊