Controler a distance une listbox avec winsock.

Commenter

Contenu du snippet

Ce code permet de controler la liste d'un Server, avec une listbox sur le Client.

Source / Exemple : 


'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

Conclusion :


Voila, comme j'ai pas eu le temps d'ajoute les deux applications et leurs sources, si quelqun a besoins de ces sources ou au cas de beug, mon e-mail: greeksonic@hotmail.com
Galloi Floroi!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (lektrosonic)