ILSE PAOLA
24 de Junio del 2004

HOLA A TODOS ESPERO NO TENGAN NINGUN INCONVENIENTE EN AYUDARME A DECIFRAR MI ERROR

YA REALICE UN PROGRAMA, SI CORRE Y TODO EL UNICO DETALLE ES QUE AL EJECUTARLO ME APARECEN LAS BARRAS DE HERRAMIENTAS

1.- COMO LE HAGO PARA QUE YA NO ME APARESCAN
2.- OTRO DATO EL FONDO DEL PAPEL TAPIZ ME APARECE DEMASIDO GRANDE, COMO LE PUEDO HACER PARA QUE NO SE MAXIMIXE.

DE ANTEMANO AGRADESCO SU COLABORACIO, GRACIAS, SALUDOS DESDE MEXICO

onpg2002
24 de Junio del 2004

HOLA, TE RESPONDO LA PRIMERA INQUIETUD.....
SEGURAMENTE, TU CREAS UNA APLICACION NO UN EJECUTABLE, SI CREARAS UN EJECUTABLE ESO NO SUCEDERIA...
PARA OCULTAR LAS BARRAS DE HERRAMIENTAS EN UNA APLICACION DEBES HACER LO SIGUIENTE.

CREAS UNA VARIABLE "EJECUT" Y LA ESTABLECES EN .F.

ENTONCES DECIS SI EJECUT=.f. REALIZAS EL SIG METODO



* Guardamos todas las posibles barras de herramientas de VFP y también
* si están visibles o no. Si ocurre lo primero las ocultamos
Dimension This.aBarras[11,2]
This.aBarras[1,1]="Controles de formularios"
This.aBarras[2,1]="Controles de informes"
This.aBarras[3,1]="Distribución"
This.aBarras[4,1]="Estándar"
This.aBarras[5,1]="Diseñador de bases de datos"
This.aBarras[6,1]="Diseñador de consultas"
This.aBarras[7,1]="Diseñador de formularios"
This.aBarras[8,1]="Diseñador de informes"
This.aBarras[9,1]="Diseñador de vistas"
This.aBarras[10,1]="Paleta de colores"
This.aBarras[11,1]="Vista preliminar"
FOR i=1 to ALEN(This.aBarras,1)
This.aBarras[i,2]=WVISIBLE(This.aBarras[i,1])
IF This.aBarras[i,2]
HIDE WINDOW (This.aBarras[i,1])
ENDIF
NEXT

LUEGO ANTES DE SALIR CREAS UN METODO PARA MOSTRAR NUEVAMENTE LAS BARRAS.....

NOTA SI DECIDIS CREAR UN EJECUTABLE PONES LA VARIABLE EN .T. ASI NO SE EJECUTA ESTE METODO

SI NECESITAS EL CODIGO PARA MOSTRAR NUEVAMENTE LAS BARRAS AVISAME