Ayuda con ws_Error

[DJ_MAQUINA]

Buenas. Acudo a UDS. luego de haber preguntado, averiguado, googleado sin encontrar respuesta.

Diseñé una aplicación que utiliza MSWINSCK.OCX.

Existe una Sub para manejar los errores de Winsock, que sería:

Código (vb) [Seleccionar] Expandir

Private Sub ws_Error(ByVal Number As Integer, Description As String, _
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _
ByVal HelpContext As Long, CancelDisplay As Boolean)

Sin embargo, mi aplicación hace caso omiso a esta instrucción. Cuando ocurre un error Winsock, aparece el típico cartelito de "Run-time error", deteniéndose la ejecución. Lo normal sería que ante un error saltara la Sub ws_Error. Pero esto no sucede.

¿Por qué pasará esto?

Gracias.

[ignorantev1.1]

Emmm pues creo que necesitan mas informacion de tu problema (mas codigo) para que te puedan ayudar. Te sugiero muestres la parte donde haces la deteccion del error...

---------------------------------------------------------------------------------
Mi post 300!  quiero agradecer principalmente a...y es todo lo que tengo que decir gracias!

[DJ_MAQUINA]

Lo que pasa es que hago la tipica llamada ws_Connect y cuando la conexión falla, no salta ws_Error si no que la ejecución se detiene con un "run-time error".

Lo extraño es que en el pc donde estoy programando, funciona bien

Saludos.

[ignorantev1.1]

Código (vb) [Seleccionar] Expandir


private sub command1_click()
     on error goto huboerror
     ws.connect x, x
     exit sub
huboerror:
     call ws_Error(x,x,x,x,x)
end sub


mas o menos es tu codigo asi?

[BlackZeroX]

.
El evento Error de WinSock Jamas se debe invocar como lo hizo ignorante1.1. Para mi el problema esta en otro sitio ajeno al componente WinSock, pero hablar sin saber nada de este problema de manera concreta es como ver la Television (Sin sonido) siendo ciego y criticar sobre el programa en transmision actual.

Temibles Lunas!¡.