WINSOCK , SBLIST URGENT QUOI !!!
sweefty2
Messages postés
44
Date d'inscription
samedi 30 novembre 2002
Statut
Membre
Dernière intervention
13 mars 2005
-
27 janv. 2003 à 09:04
derbiman10 Messages postés 11 Date d'inscription lundi 13 janvier 2003 Statut Membre Dernière intervention 9 février 2006 - 6 févr. 2003 à 09:26
derbiman10 Messages postés 11 Date d'inscription lundi 13 janvier 2003 Statut Membre Dernière intervention 9 février 2006 - 6 févr. 2003 à 09:26
A voir également:
- WINSOCK , SBLIST URGENT QUOI !!!
- Winsock listen - Forum C / C++ / C++.NET
- Winsock vb6 ✓ - Forum Visual Basic 6
- Vba winsock - Forum Visual Basic
- Winsock error 10049 - Forum C / C++ / C++.NET
- Winsock recv - Forum C++ & C++ .NET
1 réponse
derbiman10
Messages postés
11
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
9 février 2006
6 févr. 2003 à 09:26
6 févr. 2003 à 09:26
slt sweefty2 je pense avoir la saluce a ton prob car moi aussi j'ai fait un chat avec une sblist et pour le psaudo c tres simple
donc
Private sub command1_click()
winsock1.senddata "Message" & "\1" & psaudo & "\2" & text1.text
end sub
alors je decompose "Message" = requet senddata
"\1" = couleurs 1 de la sblist donc couleurs du psaudo
"\2" = couleurs 2 de la sblist couleurs du text
text1.text = Text a envoier
ca c'etais coter client maintenant la reception du message
Private sub Winsock1_DataArrival()
dim Données as string
winsock1.getdata Données
if données = "Message" then
sblist.additem données
end if
end sub
je n'est pas tester cet soluce car la mien est bcp plus complex mais je croit que ca marche
j'espere avoir repondut a ta question n'essite pas a me contacter soit par mail adwanmarc@wanadoo.fr
ou sur mon site www.alienx.fr.st
je serait ravie de d'aider d'avantage dans ton projet de chat
donc
Private sub command1_click()
winsock1.senddata "Message" & "\1" & psaudo & "\2" & text1.text
end sub
alors je decompose "Message" = requet senddata
"\1" = couleurs 1 de la sblist donc couleurs du psaudo
"\2" = couleurs 2 de la sblist couleurs du text
text1.text = Text a envoier
ca c'etais coter client maintenant la reception du message
Private sub Winsock1_DataArrival()
dim Données as string
winsock1.getdata Données
if données = "Message" then
sblist.additem données
end if
end sub
je n'est pas tester cet soluce car la mien est bcp plus complex mais je croit que ca marche
j'espere avoir repondut a ta question n'essite pas a me contacter soit par mail adwanmarc@wanadoo.fr
ou sur mon site www.alienx.fr.st
je serait ravie de d'aider d'avantage dans ton projet de chat
