CONTROLER A DISTANCE UNE LISTBOX AVEC WINSOCK.

'Au Server, a la suite de la connection, pour envoyer le contenu de la listbox au Client..
Private Sub sckMain_ConnectionRequest(ByVal requestID As Long)
With sckMain
.Close
.Accept RequestID
End With
L = "Send|"
For i = 0 To lstSend.ListCount - 1
L= L & lstSend.List(i) & "|"
Next
sckMain.SendData L
End Sub

'Au Client pour recevoir les donnees et les placer dans la listbox..
Private Sub sckMain_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
sckMain.GetData Data
SData = Split(Data, "|")
If SData(0) = "Send" Then
If UBound(SData) > 0 Then
For i = 1 To UBound(SData)
lstGet.AddItem SData(i)
Next
End If
End If
End Sub

'Au Client, pour que quand on selectione un object de la liste, a la listbox du Server, le meme
object soit selectione...
Private Sub lstGet_Click()
If lstGet.ListIndex >= 0 Then
sckMain.SendData "Choose|" & lstGet.ListIndex
End If
End Sub

'Au Server pour selectioner le meme object...
Private Sub sckMain_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
sckMain.GetData Data
PData = Split(Data, "|")
If PData(0) = "Choose" Then
If UBound(PData) = 1 Then
If IsNumeric(PData(1)) Then
lstSend.Selected(PData(1)) = True
End If
End If
End If
End Sub

04 avril 2005 21:47:36 :

Correction.