hola tengo una duda en este codigo.
Private Sub WS_DataArrival(ByVal bytesTotal As Long) 'en la llegada de datos
On Error GoTo Error
dim datos as string
ws.getdata datos 'metemos en la variable datos los datos que nos lleguen
if datos = "paint" then shell ("mspaint") ' si los datos eran = a "paint" entonces ejecuta el paint
end sub
me dice label not defined
si pones On Error Goto Error ' en caso d errpr nos vamos hasta la etiketa error
al final antes del End Sub as de poner:
Error:
End Sub
Cita de: -^¤¤^- en 22 Agosto 2006, 19:18 PM
si pones On Error Goto Error ' en caso d errpr nos vamos hasta la etiketa error
al final antes del End Sub as de poner:
Error:
End Sub
Si haces eso tampoco vas a saber que error esta ocurriendo. Saca el On Error resume next, corre el programa, y despues postea el error que te dice y que linea te marca.-
nylon si pone On Error GoTo Next el programa no le dara ningun error ya que el unico fallo que tenia era eso que el vb6 no encontraba la etiqueta "Error"
jajaj nylon che deja eso xke estas alucinando :o donde viste on error resume next e loko :huh: bueno no te diste cuenta ejjeje ;)
xD se equivoco el muchacho
Cita de: .Wilson.Rodriguez.d.ls.Nieves. en 23 Agosto 2006, 03:06 AM
jajaj nylon che deja eso xke estas alucinando :o donde viste on error resume next e loko :huh: bueno no te diste cuenta ejjeje ;)
jeje, convida lo que estas fumando