Controler a distance une listbox avec winsock.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 195 fois - Téléchargée 30 fois

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

Ajouter un commentaire Commentaires
Messages postés
3
Date d'inscription
samedi 17 octobre 2009
Statut
Membre
Dernière intervention
28 septembre 2010

merci beaucoup..............
Messages postés
64
Date d'inscription
mardi 28 septembre 2004
Statut
Membre
Dernière intervention
24 octobre 2007

mmm ... j'ai pas encore checké si sa marchait mais sa semble etre ce dont j'ai de besoin pour mon chat, tu est mon sauveur! (un chat sans liste de pseudo sa fait dur :) )
Messages postés
57
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
29 avril 2005

G fait le meme code a peu pres sur un programme, mais tout seul ca sert pas a grand chose....ce n'est qu'un début.

Continue!

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.