各位大侠救救我!!!!

Question

当然可以实现。由于代码太多，所以如果你想要解答：1、给我你的Email我把示例工程发过去；2、找一本王国荣的《vb6和Window api变成》（旗标出版社）书看一下。在第14章讲解有。

Answer 1

如果你上面两条路都不想走，我可以告诉你基本的原理，1。在接收的程序里（b）中定义一个消息处理函数例如：
Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If Msg = WM_USER + 1001 Then
        Form1.Text1.Text = Clipboard.GetText
        Clipboard.SetText "Receive2 已经收到" & Form1.Text1.Text & "资料"
    ElseIf Msg = WM_USER + 1002 Then
        Form1.Text2.Text = Clipboard.GetText
        Clipboard.SetText "Receive2 已经收到" & Form1.Text2.Text & "资料"
    Else
        WndProc = CallWindowProc(prevWndProc, hwnd, Msg, wParam, lParam)
    End If
End Function
然后在窗体的form_load 事件中加入：
    prevWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
    Call SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WndProc)
注意要在form_unload 中使用：
   Call SetWindowLong(Me.hwnd, GWL_WNDPROC, prevWndProc)
2.在发送程序中：
    Clipboard.SetText 要设置的字符串
    hWndRecv = FindWindow(vbNullString, b窗体的caption)
    SendMessage hWndRecv, WM_USER + 1001, 0, ByVal 0&
WM_USER=&H400
你试试吧。

Answer 2

我的Email: [email protected] 谢谢