Un truc qui resiste à "On Error Resume Next" ? O_O

Salut tous le monde.

J'ai ce bout de code là:

---

Sub ENVOYER_VIA_TAG( LE_TAG, DATA)

On Error GoToSuivant

    For i = 1 To Winsock.UBound
   
        If  Winsock(i).TAG = LE_TAGThen Winsock(i).SendData DATA
       
Suivant:
    Next i

End Sub

---

J'explique mon code:

C'est un serveur (TCP Winsock) que je monte avec vb6. Tous simplement quand un client se connecte au Serveur, le programme lui créer un socket, et lui donne un Nom qu'il enregistre dans le .TAG du Socket.

Donc, a chaque fois que le serveur veux envoyer quelque chose à un Socket, il lui suffit le nom. Exemple:


ENVOYER_VIA_TAG   "Paul"  ,     "Salut Paul ça va ?"

Il cherche dans le .TAG de tous les socket, quand il trouve un Socket avec le Winsock(x).Tag = "Paul". Il vois le blabla ..


Gros bref. Mais là le probléme: des fois par exemple il ya :

Winsock(0).tag = "Paul"
Winsock(1).tag = "Aller_Les_Bleu"
Winsock(2).tag = Riens car le socket a été Unload quand l'ancienne personne a quitter.
Winsock(3).tag = "Pokemon"

donc là, Erreur 340 (L'élément du groupe de contrôles n'existe pas) quand il trouve riens dans le Winsock(2). ça m'enerve et le pire c'est que même si je tape On Error resume next, et même On Error Goto Suivant, ça resiste toujours 

Quelqu'un a une idée s'il vous plait ? (Sans oublier que je veux toujours garder le Unload Winsock(x) quand une personne quitte). Merci . Et désolé pour ce long récit. lol




Technologie Reacen²

Yeah Super ! j'ai pas penser a ça, "For Each Control in Winsock" Super Merci ça marche mannant

Merci PCPT


Technologie Reacen²

Rappel : C'est une très mauvaise idée d'appeler ses objets, controles ou variables, comme des noms d'objet du système ou comme un mot clé du langage.
Un jour, le compilateur aura du mal à savoir si tu veux t'adresser à un de tes objets ou bien à la classe du système, les erreurs que cela peut entrainer ne sont pas facile à interpréter (déclenchement de message d'erreur n'ayant parfois rien à voir avec l'objet).

C'est vrais oui. Merci jack

Mais, j'ai remarquer que beaucoup de sources ici usent aussi "For Each Control in Blabla" (Control). Et pi ça m'as jamais causer de problèmes moi ...

Technologie Reacen²

bin ouai, y'a de tout, comme codes....
faut pas prendre les mauvais exemples en référence


for each ctrl in wsocks, par exemple

Voila biens dis Merci.

Technologie Reacen²

JE ne pense pas que Jack voulais parler du For Each Control .... (bien que cela s'applique là aussi). Sa remarque était plutôt pour ta variable Winsock() qui à la même nom que la classe (controle) Winsock.

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

Ah...

Technologie Reacen²