### http://www.lawebdelprogramador.com ###
### RESPUESTA A LA PREGUNTA 5285 - FoxPro/Visual FoxPro ###


MIRA YO UTILICE EL TOOLBAR Y EL IMAGELIST PARA MI BARRA DE HERRAMIENTAS PRIMERO
DEBES AGREGAR LOS CONTROLES ACTIVEX 
 
LUEGO LE CAMBIAS EL NOMBRE AL IMAGE LIST TE PASO MI CODIGO A MI ME FUNCIONO 
PRIMERO AGREGAS EL CONTROL DE IMAGE LIST TE VA APARECER COMO OLE LE CAMBIAS EL
NOMBRE Y LE PONES IMAGELIST 
LUEGO AGREGAR LA BARRA DE TOOLBAR TAMBIEN APARECE COMO OBJETO OLE LE CAMBIAS EL
NOMBRE Y LE PONES TB 
 
LOS AGREGAS A TU FORMULARIO Y SELECCIONAS EL TB TE VAS A CODIGO Y PEGAS ESTO 
**** EVENTO BUTTON CLICK 
*** ActiveX Control Event *** 
LPARAMETERS button 
 
do case 
 case button.index=1 
 thisform.cmd_agregar.click 
 case button.index=2 
 thisform.cmd_guarda.click 
 *button.enabled=.t. 
 case button.index=3 
 thisform.cmd_modificar.click 
 case button.index=4 
 thisform.cmd_actualizar.click 
 case button.index=5 
 thisform.cmd_eliminar.click 
 case button.index=6 
 thisform.cmd_cancelar.click 
 case button.index=7 
 thisform.cmd_Nvo_bus.click 
 case button.index=8 
 thisform.cmd_salir.click 
 *case button.index=8 
 * thisform.cmd_Acerca.click 
endcase 
 
LUEGO EN LA PROPIEDAD AVTIVE DE TU FORMULARIO PEGAS ESTO 
********** AŅADE BARRA DE HERRAMIENTAS ************ 
************************************************ 
if Barra=0 
 for i= 1 to 8 && Crea Botones 
 thisform.tb.object.buttons.add 
 next i 
 thisform.tb.object.imagelist=thisform.imagelist &&Carga la Imagenes en TB 
 
 with thisform.tb.buttons && Carga la configuracion de TB 
 *.item(1).caption="Nuevo" 
 .item(1).image=1 
 .item(1).enabled=.t. 
 .item(1).tooltiptext="Nuevo" 
 *.item(2).caption="Guardar" 
 .item(2).image=3 
 .item(2).enabled=.f. 
 .item(2).tooltiptext="Guardar" 
 *.item(3).caption="Modifica" 
 .item(3).image=4 
 .item(3).enabled=.f. 
 .item(3).tooltiptext="Modifica" 
 *.item(4).caption="Actualizar" 
 .item(4).image=8 
 .item(4).enabled=.f. 
 .item(4).tooltiptext="Actualizar" 
 *.item(5).caption="Eliminar" 
 .item(5).image=5 
 .item(5).enabled=.f. 
 .item(5).tooltiptext="Eliminar" 
 *.item(6).caption="Cancelar" 
 .item(6).image=2 
 .item(6).enabled=.f. 
 .item(6).tooltiptext="Cancelar" 
 *.item(7).caption="Buscar" 
 .item(7).image=6 
 .item(7).enabled=.t. 
 .item(7).tooltiptext="Buscar" 
 *.item(8).caption="Salir" 
 .item(8).image=7 
 .item(8).enabled=.t. 
 .item(8).tooltiptext="Salir" 
 
 *.item(9).image=7 
 *.item(9).enabled=.t. 
 *.item(9).tooltiptext="Acerca de" 
 endwith 
 barra=1 
endif 
 
EN EL IMAGE LIST LO SELECCIONAS BOTON DERECHO TE APARECE UN MENU VAS EN PROPIEDADES
IMAGELISTCTL Y AHI AGREGAS TU IMAGENES Y YA LO CORRES TE TIENE QUE JALAR AMI ME
FUNCIONA MUY BIEN.


JENY  JENY329@YAHOO.COM