>Gracias por tu interés en ayudarme, pero si por favor: me envías un ejemplo de crear una clase, insertar en un programa dicha clase y ejecutarla, te agradecería mucho más.
Nota: no tengo VFP a la mano en este momento; espero acertar, más o menos.
Crear la clase: Ejemplo, ToolBar, que es lo que te interesa. Desde el proyecto, selecciona la ficha de clases, y da la orden "New". Las clases se almacenan en librerías de clases; una librería puede tener cero o más clases.
Para nuestro ejemplo, creá una clase llamada cMiToolBar, y guardalo en la librería Pruebas (pruebas.vcx).
Tienes que fijarte que tu clase debe basarse en "Toolbar".
En tu ToolBar, meté unos cuantos CommandButtons. Hazlos pequeños, quitales el Caption, e insertá iconos con la propiedad Picture. Asignales un comando en el evento Click().
Puedes poner separadores entre grupos de botones.
Usar la clase: Básicamente, necesitas estos comandos:
public goMiToolBar
set classlib to Pruebas additive
goMiToolBar = CreateObject("cMiToolBar")
goMiToolBar.Dock()
goMiToolBar.Show()
Parece complicado, pero el manejo con clases te da muchas ventajas. Especialmente, a través de la herencia, puedes tener varios ToolBars (o Forms, o CommandButtons, o TextBoxes, etc.) similares, que heredan de una "clase padre". Cualquier cambio en la clase padre se propagará a toda la jerarquía que hereda de la clase padre.
HTH,
Hilmar.
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)