Tipos de Botones

' 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