我的程序
Private Sub Form_Load()
　　 With udpPeerA
　　 .RemoteHost = "197.1.1.3" '要连接到的计算机名
　　 .RemotePort=1010 '要连接到的端口号
　　 .LocalPort=1011 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯
　　 .Bind 1011 '将该Winsock控制绑定到该本地端口
　　 End With
　　End Sub
　　Private Sub txtSend_Change()
　　 udpPeerA.SendData txtSend.Text'发送文本
　　End Sub
　　Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
　　 Dim strData As String
　　 udpPeerA.GetData strData,vbString
　　 txtOutput.Text = strData
　　End Sub

Private Sub Form_Load()
　　 With udpPeerB
　　 .RemoteHost = "197.1.1.3" '要连接到计算机的IP地址
　　 .RemotePort=1011 '要连接到的端口号
　　 .LocalPort=1010 '该Winsock控制将使用的本地端口号，便于其它方与之通讯
　　 .Bind 1010 '将该Winsock控制绑定到该本地端口
　　 End With
　　End Sub
　　Private Sub txtSend_Change()
　　 udpPeerB.SendData txtSend.Text '发送文本
　　End Sub
　　Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
　　 Dim strData As String
　　 udpPeerB.GetData strData,vbString
　　txtOutput.Text=strData
　　End Sub
运行后出现 编译错误:子程序或函数未定义 ,究竟是何解啊? 急急急~~~

看上去好像没有错误啊。
Debug后，错误定位在什么地方啊？
另外写代码要有缩进，看起来比较方便！

[此贴子已经被作者于2007-1-25 15:11:31编辑过]

你這是幾個工程啊? 建議把源文件發上來

楼住不会把上面的内容全部放在了一个工程里面吧？？？
那就晕死了！呵呵
代码上看应该是没有错误的！

沒必要做兩個工程吧 ? 一個程序就解決了啊....我也寫過同樣的....
另外說一句,樓主用TEXT的TEXT_CHANGE事件發送不好 ...一點不好...你可以去看看效果...會發送很多次....

他这样写的话，最好使用两个工程同时运行，这样比较好一点。
对的，用TEXT_CHANGE不是很好，最好等全部写完了，点击Button再发送。
他这段代码是从网上直接copy过来的，改都没有改，我之前在网上看过这段代码的。呵呵！
这年头，拷代码也太疯狂了，看都不看就直接copy，运行出错了，就直接去问别人，自己可能对代码一点都不理解呢，只等别人给他弄好，他运行没错就万事大吉了。

[此贴子已经被作者于2007-1-25 15:44:18编辑过]