在vb6.0里如何用剪贴板的内容粘贴到其它程序的文本框里？

以下是在VB6.0中使用剪贴板将内容粘贴到其他程序的文本框中的示例代码：

1. 首先需要将文本复制到剪贴板中：

Clipboard.SetText "需要复制的文本"

2. 打开目标程序并获取其窗口句柄：

Dim hWnd As Long
hWnd = FindWindow(vbNullString, "目标程序窗口标题")

3. 检查窗口是否存在并确保它处于活动状态：

If hWnd <> 0 Then
   SetForegroundWindow hWnd
End If

4. 将剪贴板中的内容粘贴到文本框中：

SendMessage hWnd, WM_SETTEXT, 0, ByVal Clipboard.GetText

完整的示例代码：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
Private Declare Function SetForegroundWindow Lib "user32" _
    (ByVal hWnd As Long) As Long
    
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Any) As Long
    
Private Const WM_SETTEXT As Long = &HC

Private Sub Command1_Click()
    ' 将文本复制到剪贴板中
    Clipboard.SetText "需要复制的文本"
    
    ' 打开目标程序并获取其窗口句柄
    Dim hWnd As Long
    hWnd = FindWindow(vbNullString, "目标程序窗口标题")
    
    ' 检查窗口是否存在并确保它处于活动状态
    If hWnd <> 0 Then
        SetForegroundWindow hWnd
    End If
    
    ' 将剪贴板中的内容粘贴到文本框中
    SendMessage hWnd, WM_SETTEXT, 0, ByVal Clipboard.GetText
End Sub