asistente

' 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