Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement