document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   \'\'Note: Menu1 es un menu realizado usando el Formulario de "Editar Menu"
  10.  
  11.   MenuButton1.menu = "Menu1" \' se pone el nombre del menu
  12.  
  13. End
  14.  
  15. Public Sub PrimerOpcion_click()
  16.  
  17.   LabelMensaje.text = "Elijo la opcion de Abrir....."
  18.  
  19. End
  20.  
  21. Public Sub SegundaOpcion_click()
  22.  
  23.   LabelMensaje.text = "Elijo la opcion de Guardar...."
  24.  
  25. End
  26.  
  27. Public Sub MenuAbrir_Click()
  28.  
  29.   LabelMensaje.text = "Elijo la opcion de Abrir"
  30.  
  31. End
  32.  
  33. Public Sub MenuEditar_click()
  34.  
  35.   LabelMensaje.text = "Elijo la opcion de Editar"
  36.  
  37. End
  38.  
  39. Public Sub ToggleButton3_Click()
  40.  
  41.   Print "ToggleButton3 ", ToggleButton3.Value
  42.  
  43. End
  44.  
  45. Public Sub ToggleButton2_Click()
  46.  
  47.   Print "ToggleButton2 ", ToggleButton2.Value
  48.  
  49. End
  50.  
  51. Public Sub ToggleButton1_Click()
  52.  
  53.   Print "ToggleButton1 ", ToggleButton1.Value
  54.  
  55. End
  56.  
  57. Public Sub ButtonAceptar_Click()
  58.  
  59.   Print "pulsado boton aceptar"
  60.  
  61. End
  62.  
  63. Public Sub ButtonCancelar_Click()
  64.  
  65.   Print "pulsado boton cancelar"
  66.  
  67. End
  68.  
  69. Public Sub ColorButton1_Change()
  70.  
  71.   Print "Color...", ColorButton1.Value
  72.  
  73. End
  74.  
  75. Public Sub ToolButton1_Click()
  76.  
  77.   Print "Toolbutton1 has hecho click"
  78.  
  79. End
  80.  
  81. Public Sub ToolButton2_Click()
  82.  
  83.   Print "Toolbutton2 has hecho click"
  84.  
  85. End
  86.  
  87. Public Sub ToolButton3_Click()
  88.  
  89.   Print "Toolbutton3 has hecho click"
  90.  
  91. End
');