Question

vb Picture控件

我的服务器上有一个窗体 里面有Picture1控件
我的客户端上有一个窗体 里面有Picture1控件

我想服务器上Picture1控件的内容与客户端Picture1控件的内容同步
我要详细的源码
谢谢

Answer 1

谈谈思路：
1、使用WinSock控件，进行客户端与服务器的通讯、数据传输。
2、根据你说的情况分析，应该是当客户端上的Picture控件里的图片有变化，就使得服务器里的Picture控件里的图片随之变化成相同的图片。那么就必须把客户端的图片文件传输到服务器端。
3、方法，当客户端改变了Picture控件里的图片，同时将该图片文件以二进制格式，传送给服务器，并保存到指定文件夹，然后服务器端接受完毕，就在自己的Picture控件里的装载该图片。

追问

我要详细的源码
可以帮我写一下吗
这个问题一直缠绕着我
麻烦你了
我的图片保存成二进制之后再100k左右
而且不是和一台客户端的机器Picture控件同步，是和好多台客户机的Picture控件同步

追答

你的问题比较复杂，我只能给你一个一对一、而且传送文本数据的简单例子，希望你自己研究，网上相关的文章也不满少。
本例子是在同一个工程里，而且是对同一台主机，所以IP使用“127.0.0.1” ，具体应用，你需要修改。
窗体1：form1作为客户机，添加文本框text1和按钮Command1，Winsock1：
添加Winsock控件的方法，［工程］－－［部件］，勾选：Microsoft Winsock control 6.0
代码如下：
Private Sub Command1_Click()
Winsock1.RemoteHost = "127.0.0.1" '设置要访问的计算机IP地址（或计算机名）
Winsock1.RemotePort = 1024 '设置要访问的计算机传送数据的端口
Winsock1.Connect '请求连接
End Sub

Private Sub Form_Load()
Form2.Show
End Sub

Private Sub Text1_Change()
Winsock1.SendData Text1 '向对方计算机传送文本数据
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim DData As String
Winsock1.GetData DData '获取对方传送过来的文本数据
Text1 = DData '将获取的数据显示在文本框里
End Sub

窗体2：form2作为服务器，添加文本框text1和Winsock1：
代码如下：
Private Sub Form_Load()
Winsock1.LocalPort = 1024 '设置端口，与客户机的Winsock1.RemotePort一致
Winsock1.Listen '开始侦听是否有客户请求连接
End Sub

Private Sub Text1_Change()
Winsock1.SendData Text1 '向客户机发送文本信息
End Sub

'当有客户发出请求连接时，触发本事件
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State 0 Then Winsock1.Close
Winsock1.Accept requestID '接收连接请求
End Sub

'当对方发送数据时触发本事件
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim DData As String
Winsock1.GetData DData '接收对方发送的文本数据
Text1 = DData
End Sub
启动程序：
客户机，单击“请求连接”按钮后，在任何一方文本框里输入内容，就可以在另一方文本框里显示对方发送的文本。
关于如何传送二进制信息，请参考网上文章。

Answer 2

得用winsock

Answer 3

同意 syx54