\' Gambas class file
Inherits IUsuarioChat
Private nombre As String
Private salon As SalonDeChat
Public colortexto As String
Public Sub _new(s As SalonDeChat)
salon = s
End
Public Sub recibe(de As String, msg As String)
Dim texto As String
\'< font color = "red" > Este texto est รก en rojo</font>
texto = "<font color=\\"" & colortexto & "\\">" & nombre & ": El usuario " & de & " te dice: " & msg & "</font><br> "
salon.ZonaEscribe.text &= texto
End
Public Sub envia(a As String, msg As String)
salon.envia(nombre, a, msg)
End
Public Function getnombre() As String
Return nombre
End
Public Sub setnombre(value As String)
nombre = value
End