\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
\'\'Note: Menu1 es un menu realizado usando el Formulario de "Editar Menu"
MenuButton1.menu = "Menu1" \' se pone el nombre del menu
End
Public Sub PrimerOpcion_click()
LabelMensaje.text = "Elijo la opcion de Abrir....."
End
Public Sub SegundaOpcion_click()
LabelMensaje.text = "Elijo la opcion de Guardar...."
End
Public Sub MenuAbrir_Click()
LabelMensaje.text = "Elijo la opcion de Abrir"
End
Public Sub MenuEditar_click()
LabelMensaje.text = "Elijo la opcion de Editar"
End
Public Sub ToggleButton3_Click()
Print "ToggleButton3 ", ToggleButton3.Value
End
Public Sub ToggleButton2_Click()
Print "ToggleButton2 ", ToggleButton2.Value
End
Public Sub ToggleButton1_Click()
Print "ToggleButton1 ", ToggleButton1.Value
End
Public Sub ButtonAceptar_Click()
Print "pulsado boton aceptar"
End
Public Sub ButtonCancelar_Click()
Print "pulsado boton cancelar"
End
Public Sub ColorButton1_Change()
Print "Color...", ColorButton1.Value
End
Public Sub ToolButton1_Click()
Print "Toolbutton1 has hecho click"
End
Public Sub ToolButton2_Click()
Print "Toolbutton2 has hecho click"
End
Public Sub ToolButton3_Click()
Print "Toolbutton3 has hecho click"
End