for...each

Question

Bonjour, 

j'ai une petite question concernant la boucle for..each
j'ai plusieurs composants winsock sur mon form serveur et j'aimerai envoyer des données à plusieurs clients par l'intermédiaire de ces winsock.

je dois donc faire une boucle for.. each mais j'y arrive pas... (je suis un noob en vb)

mon code
dim w as winsock
for each w in F_serveur 'F_serveur est le nom de mon form
w.senddata(data)
doevents
next

capoueidiablo · Answer

j'ai une autre methode,
si tu as un groupe de composant
w(1),w(2),....

code : 

Private Sub Form_Load()
    For Each Winsock In F_serveur
        Winsock.SendData (data)
    Next
End Sub


je pence qu'il n'est pas utile d'utiliser une variable (w) c'est ca qui te genere l'erreur :D
--Capoueidiablo--

scoder · Answer

Arf merci quand même mais ça ne marche pas....
il me fait une erreur "Variable requise" 
quand je passe par une variable (dim w as winsock) il me fait une erreur "type incompatible"....

capoueidiablo · Answer

Chez moi ca a l'aire de marché pourtant...

t'as combien de controle winsock ?
envoie moi precisement le bout de ton code je vais voir ce que je peut faire  ;) 
--Capoueidiablo--

crenaud76 · Answer

Voila le bon code :

Dim W As Winsock

    For Each W In WSck
        W.SendData ....
    Next


... en admettant que tes controles  winsock soient nommés WSck(0), WSck(1), WSck(2), ...

Christophe R.

scoder · Answer

cette solution ne marche pas il me dit "erreur de connexion ou de protocole pour la transaction ou la requête requise"

j'ai opté pour cette solution qui pour l'instant est la seule qui fonctionne :

Dim w As Integer
w = winsock.Count - 1
For i = 0 To w
    If winsock(i).State = sckConnected Then
       winsock(i).SendData ("test")
       DoEvents
    End If
Next

For...each

5 réponses

Discussions similaires