ACCIÓN DE BORRAR Y SALIR

Acción "Borrar"

Como en el caso anterior, el ListBox debe tener alguna línea, y el usuario debe haber seleccionado una al menos. El código es similar al del botón "Modificar":

PUBLIC SUB Borrar_Click()
   i AS Integer
   i = ListBox1.Index
   IF i >= 0 THEN
       ListBox1.Remove(i)  ' El método Remove quita una línea, justo
                           ' lo que queremos
   ELSE IF ListBox1.Count > 0 AND i = -1 THEN
       ' Comprobamos que el ListBox no esté vacío y que
       ' haya algo seleccionado.
       message.Info("Debe seleccionar la línea que desea borrar.")
   END IF
END

Podemos observar que la implementación de estas cuatro acciones es común para los botones y las entradas equivalentes en el menú.

Ahora pasamos a implementar las acciones relativas al manejo de ficheros (Abrir, Guardar) y salir de la aplicación. Empezaremos por lo fácil:

Acción "Salir"

La función de este botón (y la correspondiente entrada en el menú) es cerrar la aplicación. Nada más sencillo:

PUBLIC SUB Salir_Click()
   ME.Close(0) ' ME es una referencia al propio formulario
FInputBox
END

Se podría hacer un poco más amigable esta acción agregando un diálogo del tipo " ¿Está Ud. seguro de que quiere salir de la aplicación?" y actuar en consecuencia. Dejamos esta mejora como ejercicio para el lector.