saludos quisiera saber si me podrian ayudar a ver xq esta parte del codigo me suelta un error...
Private Sub WS_DataArrival(ByVal bytesTotal As Long) 'esta es la linea que me suelta el error
Dim datos As String
WS.GetData datos
'MsgBox datos
Select Case Left(datos, 3)
Case "VER"
WS.SendData "CVR 2 0x0409 win 4.10 i386 MSNMSGR 5.0.0544 MSMSGS " & Text1.Text & Chr(13) & Chr(10)
Case "CVR"
WS.SendData "USR 3 TWN I " & Text1.Text & Chr(13) & Chr(10)
Case "XFR"
Dim tmp() As String
tmp = Split(datos, " ")
WS.Close
WS.RemoteHost = Left(tmp(3), Len(tmp(3)) - 5)
WS.Connect
Case "USR"
Dim tmp2() As String
tmp2 = Split(datos, " ")
res = tmp2(4)
num = 0
Timer1.Enabled = True
End Select
End Sub
el error que me suelta es el siguiente:
(la declaracion del procedimiento no coincide con la descripcion del evento o el prosedimiento que tiene el mismo nombre)
como veran soy un poco novato en esto...
espero me puedan ayudar (=
Código: Seleccionar todo
Private Sub WS_DataArrival(ByVal bytesTotal As Long)(Estaria bien si mostrases donde haces uso de ese procedimiento)
Por ejemplo si pones:
Código: Seleccionar todo
WS_DataArrival(123)Por ejemplo, para calcular el area de un programa, me creo el siguiente procedimiento:
Código: Seleccionar todo
Private sub calcularArea(ByVal altura As Double, ByVal anchura As Double)
Dim area As Double
If altura = 0 Or anchura = 0 Then
Exit Sub
End If
area = altura * anchura
MsgBox (area)
End SubEn fin, creo que te he liado aún mas... a ver si puedes darnos algunos datos mas, porque en principio parece que la llamada al procedimiendo puede ser incorrecta.
Ur byteZ r mine
