menus

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

  GridView1.PopupMenu = "Menu1EspecialPopup"

End

Public Sub MenuAbrir_Click()

  Print "has pulsado abrir"

End

Public Sub MenuGuardar_Click()

  Print "has pulsado guardar"

End

Public Sub MenuSalir_Click()

  Print "has pulsado Salir"

End

Public Sub Menu1Acerca_Click()

  Print "has pulsado Acerca de..."

End

Public Sub Menu1Manual_Click()

  Print "has pulsado Manual"

End

'-------------------------------------
' popupmenu
'-------------------------------------
'
Public Sub Menu1Edito_Click()

  Print "Editando..."

End

Public Sub Menu1Borrar_Click()

  Print "Borrando...."

End

Public Sub Menu1Buscar_Click()

  Print "Buscar...."

End

Public Sub Menu1ActivarAjuste_Click()

  Print "Opcion Ajuste..."

End