\' Gambas class file
Inherits IMiembroConferencia
Private nombre As String
Private salon As SalonDeConferencia
Public colortexto As String
Public Sub _new(s As SalonDeConferencia)
salon = s
End
Public Sub recibirRespuesta(msg As String)
Dim texto As String
texto = "<font color=\\"" & colortexto & "\\">" & nombre & " recibo respuesta: " & msg & "</font><br> "
salon.ZonaEscribe.text &= texto
End
Public Sub enviarPregunta(msg As String)
Dim texto As String
texto = "<font color=\\"" & colortexto & "\\">" & nombre & " pregunto esto: " & msg & "</font><br> "
salon.ZonaEscribe.text &= texto
salon.enviarPregunta(Me, msg)
End
Public Sub RecibirImagen(msg As String)
Dim texto As String
texto = "<font color=\\"" & colortexto & "\\">" & nombre & " diapositiva se ha actualizado: " & msg & "</font><br> "
salon.ZonaEscribe.text &= texto
End
Public Function getnombre() As String
Return nombre
End
Public Sub setnombre(value As String)
nombre = value
End