Raul
22 de Febrero del 2003

Hola, he creado un chat en Visual Basic 6 con su respectivo Kliente y Servidor. estoy usando Winsock para la coneccion, pero obtengo un error en el servidor cuando intento eliminar un usuario del kliente. Les dejo el Codigo fuente del Modulo del servidor donde especifica el error haber kien me hecha una mano.

Codigo fuente del Modulo del servidor donde esta el error:

Public Sub BorraCombo()
' limpia el listbox lstclientes
FrmServidor.lstClientes.Clear


Dim i As Integer

For i = 1 To MaxCon

' un cliente está conectado en el socket i

'!!!AQUI ESTÁ EL ERROR!!! Cuando tiene que borrar al usuario seleccionado del lstclientes,pone no coinciden los tipos (Type Missmatch )
If bSocketStatus(i) = True Then FrmServidor.lstClientes.RemoveItem "Cliente " & i & " (" & FrmServidor.SockConecta(i).RemoteHostIP & ")"

Next i
End Sub

jorge
22 de Febrero del 2003

El metodo RemoveItem solo admite valores Integer, y tu le estas pasando una cadena. Ademas, tal y como tienes la expresion, tienes que encerrar el valor entre parentesis

xe:
If bSocketStatus(i) = True Then FrmServidor.lstClientes.RemoveItem(2)