Makabey
Messages postés152Date d'inscriptionmercredi 27 juin 2001StatutMembreDernière intervention11 juillet 20021 5 févr. 2002 à 18:14
Moi je te suggère une approche très simple: recopie tout dans une chaine tel
Dim iCmpt as integer
Dim Msg as string
Msg = "LISTBOX;" 'Sert à l'arrivée pour savoir où vont les données, on pourrais mettre List1 ou Toto et ce serais pareil, à toi de le traiter correctement à l'arrivée...
For iCmpt=0 to (List1.listcount-1)
Msg = Msg & List1.List(iCmpt) & ";"
Next iCmpt
TcpClient.SendData Msg
en réception tu utilise la fonction SPLIT(VB6) pour créer un tableau aisément copiable dans ta ListBox d'arrivée. Si tu n'as pas VB6, vois mes sources, j'ai une fonction qui le fait.