Question

VB如何让两个程序的文本框内容一样

用VB编写一个程序，当按下按纽后，左边的文本框1，文本框2，文本框3显示在程序2中的文本1，2，3文本框中，同时程序2中的文本框4显示在VB编写的程序中文本框4里。请写一下代码。
各位大吓，帮帮忙，我就就是这点分了，分不够，只能精神上感激了。真的很急啊。

Answer 1

参考这个代码

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

Private Sub Command1_Click()
Dim h1 As Long
Dim h2 As Long
h1 = FindWindow(vbNullString, "Form1") 'Form1是要填入数据的窗口的标题
If h1 <> 0 Then
h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text1.Text)

h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text2.Text)

h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text3.Text)

h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text4.Text)

h2 = FindWindowEx(h1, h2, "ThunderRT6textbox", vbNullString)
SendMessage h2, &HC, 1, ByVal CStr(Text5.Text)

End If
End Sub

追问

你这个方法不能在指定的文本框里显示内容啊，还有就是程序2中的文本框4 没能显示在VB编写的程序中文本4里。

追答

大哥。。。源码都给你提供了。。。你那2个软件我也没见过。。。怎么指定这个代码琢磨不就出来了？

追问

不能在指定的文本框也就是B程序不只有4个文本框，而且它还是倒过来显示的，也是VB做的程序text1居然在B程序的text4里面显示，这样全部倒了。 还有就是我要求B程序的文本框4和前面3个文本框反过来，就是B 程序里的内容显示回VB做的程序的文本框4里面，这样说你明白了吗？你也可以自己用你写的代码做测试看看，结果不一样吧。我希望你能给我一个解决的代码，我将万分感谢

Answer 2

没太看懂你说的文本框4是什么意思
1.放置一个按钮 command1
2.放置6个文本框，分别为左面3个 text1 text2 text3 右面3个为 text4 text5 text6
3.清空所有代码，然后复制下面代码，开始后点击按钮，右面的文本框内容就会和左边的一样了
Private Sub Command1_Click()
Text4.Text = Text1.Text
Text5.Text = Text2.Text
Text6.Text = Text3.Text
End Sub

Private Sub Form_Load()
Text1.Text = "你好"
Text2.Text = "我们"
Text3.Text = "hello"
End Sub

Answer 3

首先你说的两个程序是两个独立的程序还是一个程序中的两个窗体。如果是前者，就需要利用抓取两个程序的句柄，然后用相关的API程序实现。如果是一个程序中的两个窗体，那太简单了。。由于无法确定你的两个程序的相关信息，所以就不好写代码，请提供更为详细的信息。。。

追问

独立程序

追答

楼下有正解。。。但是前提是你的两个程序都是用VB开发的。。。否则取句柄就不对。。。

Answer 4

要不用一个WORD表格或EXCEL做中介，我程序一中文本框1，文本框2，文本框3，文本框4的text值，写入中介中 ，程序二再从中介中读取。这样就不会乱了吧