Tecsys Proyectos Informáticos S.L.

Ribbon para torpes (que diría el gran Forges)

Uno de los cambios –todo el mundo dice que a peor- de 2003 a 2007 y sucesivas versiones es el ribbon. La verdad es que a mi no me acaba de gustar, es menos flexible que las barras de menús, aunque permite hacer más cosas. Pero al fin y al cabo la barra de menús es eso, una barra de menús, nada más, intentar hacer más cosas con ella al final se paga.

Uno de los problemas es crear el ribbon, que si con este programa, con aquel, con un editor de xml, ... y no, ... la manera más simple de hacer un ribbon es con un editor de texto, el NotePad para ello va genial. Y con un poquitín de práctica, no mucha, se hacen los ribbon en un plis-plas.

Para ello hay que tener en cuenta que el Ribbon es un fichero que cumple normas xml y hay que seguirlas a rajatabla, todo Ribbon sigue este esquema básico:

En el caso de Office 07 la primera línea quedaría: <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnRibbonLoad">

En la segunda línea el valor 'true' de startFromScratch lo que hace es eliminar toda referencia al ribbon propio de Access, es decir creamos un ribbon con nuestras opciones únicamente. Si ponemos el valor a 'false' añade nuestras opciones a las que Access tiene. Yo me creo dos ribbon, uno con y otro sin, el con es para mi, para desarrollo, y el sin es el que le envío al cliente, que solo necesita las opciones del programa.

Bien, ya tenemos el ribbon creado :XD, ahora solo hay que poner las opciones que deseemos, para ello hay que crear las pestañas y dentro de estas los grupos. Hay que tener en cuenta que cada pestaña tiene que tener al menos un grupo.

Cada pestaña debe tener id y nombre (label), cada grupo debe tener id, no hace falta que tenga nombre. Los id deben ser únicos, es el índice que usa access para poder acceder a ellos (y nosotros cuando aprendamos a sacarle partido al invento este).

Cada pestaña se abre y se cierra con la pareja de marcadores <tab> y </tab>.

Cada grupo se abre y se cierra con la pareja de marcadores <group> y </group>.

Así que siguiendo el esquema html la cosa para una pestaña con dos grupos nos quedará así:

Bueno, ya tenemos el 'esqueleto' de nuestro ribbon, ahora falta ponerle los botones con las opciones de nuestro menú. El esquema de un botón es el siguiente:

Todo ello escrito en una sola línea queda mejor, ya que las últimas opciones no las vamos a tocar casi nunca, y para eso el notepad es perfecto, solo hay que desactivar la opción de 'ajuste de línea' que está en el menú Formato.

Las opciones del botón son las siguientes:
ID: Un Id único.
Label: El título que queramos poner al botón.
ImagenMso: Nombre de la imagen que queramos poner, Gunter tiene un ejemplo (el número 3) que las muestra todas. Sobre este tema haré una entrada posterior, hay que ser más simples.
Tag: Información interna para su posterior uso. Yo pongo aquí el nombre del formulario que quiero lanzar, así todos los botones tienen el mismo OnAction, me simplifica mucho las cosas.
Size: Tamaño del botón. Puede ser small o large. Si no ponemos nada toma small por defecto.
OnAction: Nombre de la rutina del BackStage que se va a ejecutar al hacer click el el botón.
GetVisible: Nombre de la rutina que controlará si el botón será o no visible.
GetEnabled: Nombre de la rutina que controlará si el botón va a estar activo o no.
GetScreentip: Nombre de la rutina que controlará el 'tip' del botón. Si no queremos que se muestre nada, ni siquiera el 'F1 - ayuda' de Microsoft hay que mandarle a esta rutina en vacio.

Normalmente solo vamos a modificar el id, el label, la imagen y el tag, con lo que es facilmente comprensible que un proceso de copia/pega nos va a permitir avanzar muy rápidamente en la confección de nuestro ribbon.

Un ejemplo de ribbon, obviando el final de las líneas para que se vean en pantalla, sería:

¿Como definir una barra de separación vertical?

¿Y en horizontal? Yo me creo un botón que no llama a ningún menú. El número de guiones hay que ajustarlo en función de los labels superior e inferior

Un menú en vertical se compone de una linea <menu> que lo abre y otra </menu> que lo cierra. Entre medias colocamos las opciones de menú que deseemos

Un split Button (que ya no es para torpes .. :XD) se compone de la apertura y cierre del mismo, una declaración del valor del botón (lo que se ejecuta al hacer click en el mismo) y un menú en vertical todo junto, es más fácil verlo que explicarlo

Y con esto ya nos hemos creado nuestro ribbon, si no vamos a usar las funciones Visible y Enabled nos podemos ahorrar el definir ambas en el BackStage y en la línea del Ribbon. Yo las he puesto para que estén completas las definiciones, ya que acabaremos usándolas.
Nos falta definir los CallBacks que controlarán las funciones que hemos definido.

Option Explicit
Option Compare Database
Public gobjRibbon As IRibbonUI

Sub OnRibbonLoad(ribbon As IRibbonUI)
   Set gobjRibbon = ribbon
End Sub

Sub OAB(Control As IRibbonControl) '** OnActionButton **
   If Len(Control.Tag) > 0 Then
     On Error GoTo ErrorRun
     DoCmd.OpenForm Control.Tag, acNormal
     End If
   Exit Sub
ErrorRun:
   MsgBox "No existe el formulario: " & Control.Tag
   Resume Next
End Sub

Sub Gen(Control As IRibbonControl, ByRef Enabled) '** GetEnabled **
   Enabled = True
End Sub

Sub Gsc(Control As IRibbonControl, ByRef Screentip) '** GetScreentip **
End Sub

Sub Gvi(Control As IRibbonControl, ByRef Visible) '** GetVisible **
   Visible = True
End Sub

Quedan temas por tocar:
* Eliminar opciones del backstage
* Imágenes en el menú
* Visible / Enabled según usuario (seguridad con tabla)
* Crear ribbon desde una tabla
* ...

Pero eso será otro dia

Tecsys Proyectos Informaticos, S.L.