document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits IMiembroConferencia
  4.  
  5. Private nombre As String
  6. Private salon As SalonDeConferencia
  7. Public colortexto As String
  8.  
  9. Public Sub _new(s As SalonDeConferencia)
  10.  
  11.   salon = s
  12.  
  13. End
  14.  
  15. Public Sub recibirRespuesta(msg As String)
  16.  
  17.   Dim texto As String
  18.  
  19.   texto = "<font color=\\"" & colortexto & "\\">" & nombre & " recibo respuesta: " & msg & "</font><br> "
  20.   salon.ZonaEscribe.text &= texto
  21.  
  22. End
  23.  
  24. Public Sub enviarPregunta(msg As String)
  25.  
  26.   Dim texto As String
  27.  
  28.   texto = "<font color=\\"" & colortexto & "\\">" & nombre & " pregunto esto: " & msg & "</font><br> "
  29.  
  30.   salon.ZonaEscribe.text &= texto
  31.   salon.enviarPregunta(Me, msg)
  32.  
  33. End
  34.  
  35. Public Sub RecibirImagen(msg As String)
  36.  
  37.   Dim texto As String
  38.  
  39.   texto = "<font color=\\"" & colortexto & "\\">" & nombre & " diapositiva se ha actualizado: " & msg & "</font><br> "
  40.  
  41.   salon.ZonaEscribe.text &= texto
  42.  
  43. End
  44.  
  45. Public Function getnombre() As String
  46.  
  47.   Return nombre
  48.  
  49. End
  50.  
  51. Public Sub setnombre(value As String)
  52.  
  53.   nombre = value
  54.  
  55. End
');