Ayuda chat en vb v6.0 en winsock

[polmp]

Tengo un pequeño problema, que soluciono esto y ya tendré el chat listo.

El chat usa winsock, y usé un tutorial para hacerlo, pero a partir de ahí empecé a modificarlo para que no tenga errores, y ahora tengo este problema.

Cuando pongo la ip que no es, me da un error. Quiero que cuando la ip no esté bien salga un MsgBox que diga "Ip incorrecta, revisala" o algo por el estilo. Cómo lo hago?



Saludos,

Polmp

PD: Si puede ser, al pie de la letra, ya que de visual basic no sé mucho.

[pkj]

Debería ser facil si usas el control de errores:

Paso a paso sería:

Haz doble click sobre el boton conectar. Aparecerá el código del evento Click del botón donde se hace la conexión.

Algo así:

Código vb:

Private Sub Command1_Click()
 
 ... codigo 
 
 
 ... mas codigo
 
End Sub
 

Solo tienes que añadir al comienzo y al final unas líneas para que quede así:

Código vb:

Private Sub Command1_Click()
 
  On Local Error Goto ErrorConectar
 
  ... codigo 
 
 
  ... mas codigo
 
  Exit Sub
 
ErrorConectar:
  MsgBox Err.Description
  Err.Clear  
 
End Sub
 

Saludos

[polmp]

Iniciado por pkj

Debería ser facil si usas el control de errores:

Paso a paso sería:

Haz doble click sobre el boton conectar. Aparecerá el código del evento Click del botón donde se hace la conexión.

Algo así:

Código vb:

Private Sub Command1_Click()
 
 ... codigo 
 
 
 ... mas codigo
 
End Sub
 

Solo tienes que añadir al comienzo y al final unas líneas para que quede así:

Código vb:

Private Sub Command1_Click()
 
  On Local Error Goto ErrorConectar
 
  ... codigo 
 
 
  ... mas codigo
 
  Exit Sub
 
ErrorConectar:
  MsgBox Err.Description
  Err.Clear  
 
End Sub
 

Saludos

Muchas gracias!!!!!!! Ya me funciona. Ya podeis cerrar ;)