document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits IMiembroConferencia
  4. Private salon As SalonDeConferencia
  5. Public colortexto As String
  6.  
  7. Public Sub _new(s As SalonDeConferencia)
  8.  
  9.   salon = s
  10.  
  11. End
  12.  
  13. Public Sub RecibirPregunta(a As Asistente, msg As String)
  14.  
  15.   Dim texto As String
  16.  
  17.   texto = "<font color=\\"" & colortexto & "\\">" & "Conferenciante: me ha preguntado " & a.getnombre() & " lo siguiente: " & msg & "</font><br> "
  18.  
  19.   salon.ZonaEscribe.text &= texto
  20.  
  21. End
  22.  
  23. Public Sub enviarRespuesta(a As Asistente, msg As String)
  24.  
  25.   salon.enviarRespuesta(a, msg)
  26.  
  27. End
  28.  
  29. Public Sub enviarNuevaImagen(msg As String)
  30.  
  31.   salon.ActualizarDiapositiva(msg)
  32.  
  33. End
');