Un truc qui resiste à "On Error Resume Next" ? O_ORésolu

Question

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_TAG Then 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²

PCPT · Accepted Answer

salut,

"winsock" étant un groupe de contrôles, "winsock" est utilisable comme collection

un FOR EACH résoudra ton problème
++

Reacen · Answer

Yeah Super ! j'ai pas penser a ça, "For Each Control in Winsock" Super Merci ça marche mannant 

Merci [../auteur/PCPT/401740.aspx PCPT]

Technologie Reacen²

cs_Jack · Answer

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).

Reacen · Answer

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²

PCPT · Answer

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

Reacen · Answer

Voila biens dis  Merci.

Technologie Reacen²

cs_casy · Answer

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) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

Reacen · Answer

Ah...

Technologie Reacen²

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

8 réponses

Votre réponse

Discussions similaires