高分奖劢:实现如下例子即可...

[luomopiao]

实例如下:
A程序有一个Form和一个Text文本框
B程序有一个Form和一个Text文本框,还有一个按钮
要求实现如下:
当B程序按下按钮时,在A程序文本框输入的所有信息在B程序的文本框中显示.
注意:A,B不是同一个程序里的两个程序,而是各自单独的程序.

谢谢!

[hpygzhx520]

高分是不指望了，你可以尝试用DDE，或者WM_COPYDATA，或者直接查找文本框句柄，然后发送WM_SETTEXT即可。
办法很多

[Tiger_Zhao]

http://blog.csdn.net/stefli/archive/2005/03/07/313282.aspx

[Simao]

楼主,这个好解决,你把邮箱告诉我,我把原码发给你!

[zdwk223]

经典问题，用winsock的send和listen功能即可。
在书上见过这个例程。

[zsjfd]

新建两个form 以下是例子:form1 和 form2
form1添加一个Text1控件
form2添加一个Text1控件和一个按钮Command1

form1窗口代码

Private Sub Form_Load()
Form2.Show
End Sub
--------------------------

form2窗口代码

Private Sub Command1_Click()
Form2.Text1 = Form1.Text1
End Sub
---------------------------

[vansoft]

[Quote=引用 1 楼 hpygzhx520 的回复:]
高分是不指望了，你可以尝试用DDE，或者WM_COPYDATA，或者直接查找文本框句柄，然后发送WM_SETTEXT即可。
办法很多
[/Quote]

方法都给你讲完了.

[树桩哥]

来个抬杠的
-------------A程序加一个定时器timer1-------
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Text1 = Clipboard.GetText
End Sub
-------------B程序----------------------
Private Sub Command1_Click()
If Not Len(Text1.Text) = 0 Then
Clipboard.Clear
Clipboard.SetText Text1.Text
End If
End Sub
--------------------------------------

给分!

[netsocket]

不懂，帮顶

[bdzwj]

[Quote=引用 7 楼 baidana 的回复:]
来个抬杠的
-------------A程序加一个定时器timer1-------
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Text1 = Clipboard.GetText
End Sub
-------------B程序----------------------
Private Sub Command1_Click()
If Not Len(Text1.Text) = 0 Then
Clipboard.Clear
Clipboard.SetText Text1.Text
End If
End Sub
--------------------------…
[/Quote]

用VB内置的粘帖板操作 应该是跨进程操作最简单的方法了

[嗷嗷叫的老马]

我再来个共享内存通讯的例子,嘿嘿:

http://www.m5home.com/blog2/blogview.asp?logID=363&cateID=2

睡觉睡觉......